2000F (OPTION 200/205) TSB SYSTEM 
(REV A) 



BINARY TAPES 24337-60001 

24337-60002 
24337-60003 

SOURCE TAPES 24337-80001 

24337-80002 
24337-80003 
24337-80004 
24337-80005 
24337-80006 
24337-80007 
24337-80008 
24337-80009 
24337-80010 
24337-80011 
24337-80012 
24337-80013 
24337-80014 
24337-80015 
24337-80016 
24337-80017 
24337-80018 
24337-80019 
24337-80020 
24337-80021 
24337-80022 
24337-80023 
24337-80024 
24337-80025 
24337-80026 
24337-80027 
24337-80028 
24337-80029 
24337-80030 
24337-80031 
24337-80032 
24337-80033 
24337-80034 
24337-80035 
24337-80036 
24337-80037 
24337-80038 
24337-80039 
24337-80040 
24337-80041 
24337-80042 
24337-80043 
24337-80044 
24337-80045 



SOURCE TAPES 
CONTINUED 24337-80046 

24337-80047 
24337-80048 
24337-80049 
24337-80050 
24337-80051 
24337-80052 

SOURCE LISTING 24337-90001 
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0001 A$M8,A,B,l 2000F (OPTION 200/205) TSB SYSTEM 

** NO ERRORS* 



PAGE 


0002 #01 


0001 






0002* 






0003 


02002 




0004* 






0005* 


LINKAGE INF 


0006* 


MAG 1 


fAPE OU 


0007* 






0008 


02002 


075000 


0009 


02003 


072037 


0010 


02004 


000024 


0011 


02005 


057326 


0012 


02006 


057331 


0013 


02007 


001567 


0014 


02010 


177224 


0015 


02011 


001224 


0016 


02012 


070340 


0017 


02013 


114732 


0018 


02014 


031234 


0019 


02015 


000075 



ASMB,A,B,L 2000F 



ORG 2002B 
J USED BY 



(OPTION 200/205) TSB SYSTEM 
VERSION A 8/1/73 



THE TSB LOADER AND THE 



DEF LIBRA SYSTEM LIBRARY PROGRAM ORIGIN 

DEF C0M6 ■> SYSTEM LIBRARY DISC ADDRESSES 

ABS TTY0UTTY00 LENGTH OF A TTY TABLE 

DEF TTy00*?DISC ADDRESS OF USER DISC ADDRES 

DEF TTY00*?ID ADDRESS OF ID-NAME 

DEF LNAME ADDRESS OF USER.DEPENDENT ITEMS 

ABS USER.PROGB-l LENGTH OF SWAP AREA 

DEF USER CORE ADDRESS OF SNAP AREA 

DEF TSB SYSTEM STARTING ADDRESS 

jSB POWjN,i TO GO INTO LOC 4 t 

DEF GMqB MESSAGE BUFFER GETTER 

ABS SSLPL-LIBRA NUMBER OF LIBRARY PROGRAMS 
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0021 


00000 




A 


EQU 


A REGISTER ADDRESS 




0022 


00001 




B 


EQU 1 


B REGISTER ADDRESS 




0023 


00000 




DEATH 


EQU 






0024 


00017 




FTEL 


EQU I5 


FILE TABLE ENTRY LENTH 




0025 


00002 






ORG 7 






0026 


00002 


102002 




HLT DEATH+2 


FOR SYSTEM 




0027 


00003 


024002 




JMP *-l 


PROTECTION 




0028 


00004 


103004 




HIT 4,C 


CHANGED BY LOADER* 




0029 


00005 


102005 




HLT DEA T H+5 


PARITY ERROR 




0030 


00006 


107706 




CLC 6,C 






0031 


00007 


107707 




CtC 7,C 






0032 


00010 


114734 


CHI 


JS8 Rl4DR#I 


COMMUNICATION FROM I/O PROCESSOR 


0033 


00011 


102011 


CH2 


HLt DEAjH^HB 






0034 


00012 


114756 


?sc 


JSB T35DR*I 


CONSOLE LINK 




0035 


00013 


107713 




CLC J3B,C 






0036 


00014 


114630 


CLOCK 


JSB CLKDr,I 


CLOCKLINK 




0038* 














0039** TEMPORARIES AND 


POINTERS 






0040* 














0041 


00030 






ORG 30B 






0042 


00030 


000000 


UTEMP 


BSS 16 


TEMPS USED BY NONRESIDENT 


FUNCS, 


0043 


00050 


000000 


MOVES 


BBS 1 


SOURCE AND DESTINATION 




0044 


00051 


000000 


MO v ED 


BSS t 


FOR MOyEw RQuTlN*. 




0045 


00052 


000000 


ID 


BSS 1 


USED FOR RESULTS OF SITID 


ROUTIN 


0046 


00053 


000000 


MID 


BSS 1 






0047 


00054 


000000 


T35CP 


BSS 1 


T35 BUFFER PNTR FOR LIBR, PROGS. 


00 4 8 


00055 


000000 


T3 5 LC 


BSS 1 


RESULT OF T35CH ROUTINE. 




0049 


00056 


000000 


PBPtR 


BSS 1 


POINTER TO END OF CURRENT 


PROGRA 


0050 


00057 


000000 


TIMER 


BSS 1 


POINTS TO CLOCK OF ACTIVE 


USER, 


0051 


00060 


000000 


SBHED 


BSS 1 






0052 


00061 


000000 


SCHL 


BSS l 






0053 


00062 


000000 


TTQ 


BSS 1 






0054 


00063 


000000 


SCHID 


BSS 1 






0055 


00064 


000000 


SCHP 


BSS 1 






0056 


00065 


000000 


SCNT 


BSS 1 






0057 


00066 


000000 


SCHT 


BSS i 






0058 


00067 


000000 


SCHPP 


BSS 1 






0059 


00070 


000000 


CmA 


BSS 1 






0060 


00071 


000000 


CM8 


BSS 1 






0061 


00072 


000000 


CME 


BSS 1 






00^2 


00073 


000000 


SVCH2 


BSS 1 






0063 


00074 


000000 


TCNT 


BSS 1 






0064 


00075 


000000 


IDjAD 


BSS 1 


■> IDT DISC ADDRESS 




0065 


00076 


000000 


IDTLN 


BSS 1 


«> IDT TRACK LENGTH 




0066 


m^n 


000000 


STDAP 


BSS 1 


SYSTEM TABLE DISC ADDRESS 


PQINTR 
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0068* 

0069************************************************************** ****** 

0070* 

0071* BEGINNING OF EQUIPMENT TABLE 

0072* 

0073* THE NEXT SECTION, ORIGINED AT 100B, CONSTITUTES THE RESIDENT 

0074* INFORMATION ABOUT THE DISC RESIDENT TABLES, THESE TABLES ARE 

0075* INITIALIZED BY T H E VARIOUS LOADERS AND THEIR CONTENTS ARE 

0076* WRITTEN ON DISC BY THE SLEEP ROUTINE, 

m77* 



0078 00100 ORG 100B 

0079 00100 000000 IDEC BSS \2 
0080* 

0081* 
0082* 
0083* 
0084* 
0085 0^114 000000 NIDT BSS j 

0087 00115 000000 NDIRT BSS l 



0089 


00116 


000000 


ADtAt 


BSS 


24 


0090* 












0091* 












0092* 












0093* 












0094 


00120 




ADTLN 


EQU 


ADTAT+2 


0096 


0014 6 


000000 


dktbl 


BSS 


8 


0097 


00156 


000000 


DADsL 


BSS 


2 


0098 


00160 


000000 


DLNSL 


BSS 


1 


0099 


00161 


000000 


SYsIO 


BSS 


5 


0100 


00166 


000000 


MAGSC 


BSS 


1 


0101 


00167 


000000 


NPQRT 


BSS 


1 


0102 


00170 


000000 


year 


BSS 


1 


0103 


00I7I 


000000 


DATIM 


BSS 


2 


0104* 












0105* 












0106 


00173 


000000 


HDATE 


BSS 


1 


0107 


00174 


000000 


SLEPT 


BSS 


1 


0108* 












0109* 


END OF THE EQuIPMEN] 


r TABLE 


0110* 












0111********************************* 


0112* 












0113 


00175 


000000 


LDBSA 


BSS 


1 


0114 


00176 


000000 


lstda 


BSS 


1 


0115 


00177 


000000 


mhad 


BSS 


1 


0116 


00200 


000000 


GMQBP 


BSS 


1 


0117 


00201 


000000 


DI S CA 


BSS 


1 


0118 


00202 


000000 


DISCB 


BSS 


1 


0119 


00203 


000000 


MBU3Y 


BSS 


1 


0120 


00204 


000000 


MWORD 


BSS 


1 


0121 


00205 


000000 


OREDP 


BSS 


1 - 


0122* 












0123* 


END OF Ad 


EA THAI 


r Muj 


IT COrrE 



ID TABLE HEADERS 

EACH 4 WORD ENTRY CONSISTS OF; 

1) FIRST ID ON THE TRACK 

2) DISC 

3) ADDRESS 

4) LENGTH IN «wQRD$ 
NUMBER OF ID TRACKS 

NUMBER OF DIRECTORY TRACKS/DISC 

ADT di s c address table 

EACh 3 WORD ENTRY CONSISTS Oft 

1) DISC 

2) ADDRESS 

3) LENGTH in -WORDS 
POINTS TO LENGTH OF DISC 

DISC SELECT CODE/UNIT NUMBER 
DlsC ADDRESS OF SYST** LIBRARY 
DISC LENGTH OF SYSTEM LIBRARY 
SYSTEM IDENTIFICATION 
MAG TAPE SELECT CODE 
•NUMBER OF AVAILABLE PORTS 
CURRENT YEAR - TO 99 
TWO WORD ENTRY FOR TIME OF YEAR 

1) HOUR OF YEAR 

2) # OF 100MS UNITS IN HOUR 
LASt HIBERNATE DAtE 

SEZ SLEPT, -1 SE2 NO 



DISC BOOTSTRAP ADDRESS 
LOADER SEGMENT TABLE ADDRESS 
ADDRESS OF M f H, DISC TABLE 
•> MESSAGE BUFFER GETTER 
ADDrEss OF DlsC OrIVEr ENTRY 
DISC DRIVER INTERRUPT ENTRY ADDR 
DI8C DRIVER BUSY FLAG 
DISC REQUESTEO WORD COUNT 
»> DISC AUTO RESTART ROUTINE 
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0124* 

0125******************************************************************** 

0126* 

0127 00206 031060 DISCZ DEF ZDISC 

0126* 

0129* 

0130** DISC ERROR ROUTINE POINTERS 

0131* 

0132 00207 061234 SlCKp DEF SICK SYSTEm TRACK CAN'T BE READ 

0133 00210 060524 PTZAP DEF JETPT SWAP TRACK CANiT BE READ/WRITTEN 

0134 00211 060647 SIVAG DEF 8ALVG SYSTEM TRACK CAN'T BE WRITTEN 

0135 00212 061303 DEaDP DEF DEAD SYSTEM TRACKS INCOMPaTaBLE 



0137* 

0138** 

0139*** MutRTo 

0140** 

0141* 

0142* ALL SyS T EM HAL T S CAN BE REFERENCED By t he LABEL 'DEA^Hi, T HE 

0143* FOLLOWING IS A LIST OF THE HALTS AND THEIR MEANINGS AS WELL 

0144* AS AN INDICATION OF POSSIBLE RECOVERY Or A MEs$AGE OF DOOM, 

0145* 

0146* 2 » ERRONEOUS, NON-RECOVERABLE SYSTEM TRANSFER HAS OCCURRED 

0147* 

0148* 5 • A PARjTY ERROR HAS OCCURRED, CHECK THE HARDWARE, 

0149* 

0150* 11B «. UNEXPECTED INTERRUPT FROM THE PROCESSOR INTERCONNECT, 

0151* T A KE a COLD DUMP OF THIS UNRECOVERABLE SYSTEM, 

0152* 

0153* 30B * DI S C DRIVER I s BusY, RECOyERy NO T PO S sIBLE, 

0154* 

0155* 31B . DISC CALLED IS NQ T PRESENT, NO WAY T° RECOyER, 

0156* 

0157* 32B * DISC ERROR WHILE WRITING A SySTEM TRACK, SySTEM 

0158* TRACK HAS BEEN MOVED AND Au TABLES h^VE BEEN 

0159* UPDATED, RECOVERY IS POSSIBLE, 

0160* 

0161* 33B - DiSC ERROR WHjLE READiNG TRACk OR WR|TiNG NON* 

0162* ESSENTIAL TRACK, RECOVERY IS POSSIBLE, 

0163* 

0164* 34B - DISC ERROR CAUSING THE SYSTEM TABLES TO BE InCQMPAT* 

0165* ABLE, RECOVERY IS OUT OF THE QUESTION, 

0166* 

0167* 35B • A DIRECTORY TRACK COULD NOT BE FOUND, RECOyERy IS 

0168* IMPOSSIBLE, 

0169* 

0170* 36B » POWERFAIL HAS OCCURRED, CHECK RESTART SWITCH POSITION, 

0171* 

0172* 37B - BAD ADT DISC ADDRESS GENERATED, RECOyERy • NO wAy, 

0173* 
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0175* 
0176** 
0177* 
017B 

0179 
0180 
0181 
0182 
0183 
0184 
0185 
0iS6 

0187 
0188 
0189 

0190 
0191 
0192 
0193 
0194 

0195 
0196 
0197 
0198 
0199 

0200 
0201 
0202 

0203 
0204 
0205 
020 6 
0207 
020a 
020g 
0210 
0211* 



I/O PROCESSOR SEND DRIVER OPCODES 



00213 
00214 
00215 
00216 
00217 
00220 
00221 
00220 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 

00232 
00233 

00234 
00235 

0023 fi 
00237 

00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
0025 1 
00252 



000000 

020000 

040000 

060000 

00000 

20000 

40000 

60000 

60001 
60002 
60003 
60004 
60005 

60006 
60007 

60010 
60011 
60012 
60013 

60014 
60015 

60016 
60017 
60020 

60021 
60022 
60023 
60024 
60025 

60026 
60027 

60030 



OCR 
STfc 
GTC 
PHO 
SPE 
SBP 
RBP 
FBP 
INI 
UIR 
UNR 
IwT 
HUU 

ul-Q 

ECO 
ECF 
TPQ 

HI 

NUC 
KAO 
All 
OWy 
IBF 

Psc 
lpr 

LPD 
LPS 
BKS 
CHS 
STP 
GRP 
ABT 

wtp 

KSN 



OCT 000000 

OCT 020000 

OCT 040000 

OCT 060000 



OCT 
OCT 
OCT 



EQU SBP 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 

OCT 
OCT 

OCT 
OCT 

OCT 
OCT 
OCT 
OCT 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 

OCt 
OCT 



00000 
20000 
40000 



60000 

60001 
60002 
60003 



60005 

60006 
60007 

60010 
600U 
60012 
60013 

60014 
60015 

60016 
60017 
60020 
60021 

600e c 

60023 
60024 
60025 

60026 
60027 

60030 

60031 



OUTPUT CHARACTER 

start timing enter 
get character 
phones time 
baud rate info 
save buffer pointer 
restore buffer pointer 
free saved space 
initialize System 
user is running 

USER NOT RUNNING 

INPyT wAIT 

HANG USER UP 

gSER LOGGED ON 

ECHO-ON 

ECHO.OFF 

TAPE MODE ON 

ILLEGAL INPUT? 

NEW USER CALLED 

KILL ALL OUTPUT 

ALLOW INPUT 

OUTPUT WAIT 

IS BUFFER FULL? 

LINE PRIN T ER 3ELECT CODE 

tjNE PRINTER REQUEST 

LINE PRINTER DISCONNECT 

LINE PRINTER STATUS 

BACKSPACE IN BUFFER 

CHARACTER SIZE 

SgBTyPE INFO 

GET RECEIVE PARAMETER 

USER IS BEING ABORTED 

WHA T TERMINAL TYPE* 

I/O PROCESSOR CORE DUMP 



0213* 

0214*^ 

0215* 

0216 

0217 

0218 

0219 

0220* 

0221 

0222* 

0223 

0224* 

0225* 

0226 

0227 



SYSTEM STATUS VARIABLES 



00253 000000 PRIST NOP 

00254 000000 LFLAG NOP 

00255 000000 MAIN NOP 

00256 000000 LIB NOP 

00257 000000 DlRWD NOP 
00260 000000 HQDIS NOP 



24000 
75000 



ULEN EQg 10240 
LIBRA EQU 750008 



LP INDICATOR 

INDICATES USER IN COREtg IF NONE 
«> DISC ADDRESS QF LIBRARY 

PROGRAM IN CORE, IF NONE 
■> DISC ADDRESS Qf DIRECTORY 

TRACK IN' CORE," I? NONE 
• UNLESS HEAD OF QUEUE 

IS DISCONNECTED 

LENGTH OF uSER AREA 

SYSTEM LIBRARY PROGRAM ADDRESS 
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POINTERS AND TEMPORARIES FOR ASR-35 DRIVER 



0229* 

0230** 

0231*** 

0232** 

0233* 

0234 00261 

0236* 

0236 00262 

0237* 

0238 00263 

0239 00264 

0240 00265 

0241 00266 

0242 00267 
00270 

0243 00271 

02 4 4 00272 

0245 00273 

0246 00273 
0247* 

0248** TTY TABLE ENTRY FOR TTY35 

0249* 

0250 00274 



000000 

000000 

000277 
000000 
000266 
005122 
042501 
042131 
000272 
000272 
$77777 



T35FG NOP 
TlMEF NOP 

T35LN DEF J35LK 

LCHCR NOP 
READY DEF *4l 
OCT 5122 
ASC 2 # EADY 

MLINK DEF **1 
DEF * 
OCj 77777 

INF EQU MLINK+2 



0251 00275 

0252 00276 

0253 00277 
02^4 00300 
0255* 

02 5 6 00301 

0257 00302 

0258 00303 



000000 
000000 
000000 
000000 
000000 



T35C|_ NOP 
T35RS NOP 
T35ST NOP 
T35LK NOP 
T3$PR NOP 



PStuDO*FLAG|M(jST BE 11 
WORDS BEFORE T35CI 

■ I WHEN CURRENT PROGRAM 
13 TIMED 



LF-R 



POINTS TO BASIC QUEUE ENTRy, 

LINK TO HEAD OF QUEUE. 

MAx f PRI0RI T Y USED FOR Q IN8ERj3 



PSEUDQ C^OCk. 

RESTART ADDRESS 

STATUS 

LINK 

PRIORITY 



1 7 1 45 2 T3 5 B2 ABS T3 6 BF*T3 5 BF CHAR POINTER TO TTY3s BUFFER 
171562 T35N0 ABS T35bF+T35bF*72 POINTS TO END OF BUFFER 
074625 T35B1 DEF T35BF POINTS TO WORD ADDRESS OF BUFFER 



0260 00047 

026i 00352 

0262 00304 000000 

0263 003 5 056572 

0264 00306 056267 

0265 00307 056641 

0266 00310 056267 



MESLN EQU 39 LENGTH OF OPERATOR MESSAGES 

MESBN EQU MESLN*MESLN*MESLN*ME3LN*MESLN*MiSLN 

MSQCT OCT MESSAGE COUNTER 

MSQP1 DEF MSQHD+MESBN-MESLN 

MSQP3 DEF MSQHD 

MSqNO DEF MSQHD+MESBN LIMITS 

MSQBG DEF MSQHD OF MESSAGE QUEUE 



0268 00311 000000 
026g 00312 000000 
0270 00313 000000 



T35F1 NOP 
T35F2 NOP 
T35F3 NOP 



SYSTEM 
CONSOLE 
FLAGS 
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0272* 












0273* 


* GENERAL USAGE CONSTANTS 


0274* 












0275 








SUP 




0276 


00314 


160010 


M8184 


DEC 


•8184 


0277 


00315 


177000 


M512 


DEC 


.512 


0278 


00316 


177400 


M256 


DEC 


•256 


0279 


00317 


177640 


M96 


OCT 


• 140 


0280 


00320 


177700 


D100 


OCT 


• 100 


0281 


00321 


177667 


M73 


DEC 


• 73 


0282 


00322 


177706 


D72 


OCT 


• 72 


0263 


00322 




M728 


EQU 


D72 


0284 


00323 


177744 




DEC 


•28,«27,.»26,«25, a 24,.23,4»22,* 


0285 


00333 


177754 




DEC 


•20 , •19,«18,«l7,«16,wl5,wl4,* 


0286 


00345 


177766 




DEC 


• 10, •9 # »8 # »7 f •6^*5|i«4 r «3 r «2f • 


0287 


00357 


000000 


■ 


DEC 


0,1,2, 3,4,5,6,7,8, 9 


0288 


00371 


000012 




DEC 


10, 11, 12, 13, 14, 15, 16, 17 # 18, 19 


0289 


00403 


000024 




DgC 


20,21,22,23,24,25,26,27,20,29 


0290 


00415 


000036 




DEC 


30,31,32,33,34,35,36,37,36,39 


0291 


00427 


000050 




D£C 


40,41,42,43,44,45,46,47,48,49 


0292 


00441 


000062 




DEC 


50,51 


0293 


00443 


011610 


.5000 


DEC 


5000 


0294 


00215 




8IT14 


EQU 


GTC 


0295 


00360 




XABOR 


EQU 


.*i 


0296 


00361 




XINPT 


EQU 


• ♦2 


0297 


00362 




XOUTW 


EQU 


.43 


0298 


00363 




XSYNT 


EQU 


,♦4 


0299 


00355 




XDISC 


EQU 


.•2 


0300 


00354 




XENTO 


EQU 


,•3 


0301 


00353 




XPUN 


EQU 


t «»4 


0302 








UNS 
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0304* 

0305* 

0306* 

0307* 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0316 

0319 

0320 

0321 
0322 
0323 

0324 

0325 

0326 
0327 
0326 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 

0342 
0343 
0344 
0345 
0346 
0347 
0346 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 



* LANGUAGE PROCESSOR CONSTANTS AND ADDRESSES 

00444 001577 OFILT DEF FISTS 

00445 033027 SBJTB DEF #FSC 

00446 031731 SYNTA DEF SYNTX 

00447 033463 DEF flSBCK 

00450 177740 M32 DEC »32 

00451 033304 DEF #FRcR 

00452 000072 .58 DEC 58 

00453 033335 DEF #FPOP 

00454 000073 B73 OCT 73 

00455 034131 DEF #VROP 

00456 000074 D60 DEC 60 

00457 033603 DEp #ARlD 

00460 mm77 B77 OCT 77 

00461 034506 DEF *PGIN 

00462 000100 B100 oCT 100 

00463 034603 DEF #TBSR 

00464 000105 E OCT 105 

00465 034473 DEF #GTPF 

00466 0001J0 ,72 DEC 72 

00467 035214 DEp #IPCK 

00470 000140 ,140 OCT 140 

00471 034740 DEF #RPCK 

00472 000144 ,100 DEC 100 

00473 034716 DEF #LTR 

00474 000177 B177 OCT 177 

00475 034730 DEF #STOP 

00476 000200 b200 OCT 200 

00477 034210 DEF #CRST 

00500 000377 B377 OCT 377 

00501 034752 DEF #DGCK 

00502 000400 b 4 00 OCT 400 

00503 034764 DEF #LTCK 

00504 %m777 B777 OCT 777 

00505 035205 DEF #SbPU 

00506 001000 B1000 OCT 1000 

00507 034774 DEF #SYCK 
00510 001130 D600 DEC 600 
005U 043627 DEF #FINC 

00512 001777 B1777 OCT 1777 

00513 052717 DEF #NMCK 

00514 002000 B2000 OCT 2000 

00515 053117 DEF #MB10 

00516 003000 B3000 OCT 3000 

00517 053265 DEF #0810 

00520 004000 B4000 OCT 4000 

00521 053147 DEF #NRMl 

00522 020000 B20M OCT 2 000 
00g23 053202 DEF #PACK 

00524 030000 B30M OCT 30000 

00525 052670 DEF #O v FL 

00526 106240 D36K ABS 30000+6000 

00527 034240 DEF #DLPR 
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0360 


00530 


0361 


00531 


0362 


00532 


0363 


00533 


0364 


00534 


0365 


00535 


0366 


00536 


0367 


00537 


0366 


00540 


0369 


00541 


0370 


00542 


0371 


00543 


0372 


00544 


0373 


00545 


0374 


00546 


0375 


00547 


0376 


00550 


0377 


00551 


0378 


00552 


0379 


00553 


0380 


00554 


0381 


00555 


0382 


00556 


0383 


00557 


0384 


00560 


0385 


00561 


0386 


00562 


0387 


00563 


0388 


00564 


0389 


00565 


0390 


00566 


0391 


00567 


0392 


00570 


0393 


00571 


0394 


00572 


0395 


00573 


0396 


00574 


0397 


00575 


0398 


00576 


0399 


00577 


0400 


00600 


0401 


00601 


0402 


00602 


0403 


00603 


0404 


00604 


0405 


00605 


0406 


00606 


0407 


00607 


0408 


00610 


0409 


00611 


0410 


00612 


0411 


00613 


0412 


00614 


0413 


00615 


0414 


00616 


0415 


00617 



030060 
034421 
020040 
036731 
045000 
037001 
062000 
036447 
047000 
036573 
060000 
035173 

070000 

033607 
044000 
033635 
100003 
033647 
073000 
042377 

012000 
043547 
013000 
044006 
022000 
043426 
055000 
044661 
174003 
044612 
100777 
043347 

043330 
100017 
042350 
065000 
042020 
051000 
042111 
010000 
043571 
016000 
043747 

043000 
044721 
075000 
043650 
175000 
043643 

176000 
043657 
074312 
043711 
034400 
044635 



ASC00 
ASCBB 

COMOP 

DATOP 

DlMOP 

ENDOP 

F1LOP 

IMGOP 

INTFL 

tETOP 

LBOP 

IPOP 

MULOP 

NXTOP 

OFOP 

OPOMK 

OPMSK 

POFFL 

PRTOP 

REMOP 

RPOP 

SCOMM 

USEOP 

*LIB* 

#LI6I 

M2000 

ABCK 

ACC5A 



ASC 
PEF 
ASC 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
OEF 

OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 

OCT 
DEF 

OCT 
DEF 
OCT 
DEF 
OCT 
DEF 

OCT 
DEF 

OCT 

DEF 

OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OCT 
DEF 

DEF 
DEF 
DEF 
DEF 
OCT 
DEF 
DEF 
DEF 
DEF 
DEF 



1,00 
#FDP3 

X, 

#SSYM 

45000 

#A$YM 

62000 

*DCMP 

47000 

#PN$T 

60000 

#CUSP 

70000 

tfSTRI 

44000 

*RSTO 

100003 

#GTST 

73000 

#FORM 

12000 

#STST 

13000 

#SBFX 

22000 

#PSTR 

55000 

*OUCK 

174003 

#TRST 

100777 

*CMPR 

77Z%^ 

#PCHK 

100017 

#FTCH 

65000 

#STDP 
51000 
#FDAT 
10000 
#F3CH 

16000 
#PSHS 

43000 
#ARIN 

LIBRA 
#BNOP 

HBRArl 
*STTP 

176000 

#OPCK 

ABCHK 

#RSCK 

ACCS5 

*FAD 
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0416 00620 034307 ACC3A DEF ACCST 

0417 00621 044647 dEF #FSB 

0418 00622 053340 aNOT DEF NOT 

0419 00623 044675 DEF #FMP 

0420 00624 053505 ATAB DEF TAB 

0421 00625 044707 oEF *FDV 

0422 00626 053475 ATHEM DEF THEN 

0423 00627 044730 DEF #FLUN 

0424 00630 070024 CLKDR DEF CLKIN 

0425 00631 044017 DEF #IFIX 

0426 00632 070041 DCLCi DEF CLCl 

0427 00633 050010 DEF *ENOT 

0428 00634 070045 DCLX2 DEF CLC2 

0429 1)0635 050026 pEF #NMOT 

0430 00636 070617 DEH DEF EH 

0431 00637 050345 DEF #GTDG 

0432 00640 000030 DLTEM DEF LTEMP 

0433 00641 050436 DEF *QTL.N 

0434 00642 060524 DTT32 DEF TTY32 

0435 00643 050416 DEF #EDLM 

0436 00644 057324 DTTY0 DEF TTY00 

0437 00645 042355 DEF #STPT 

0438 00646 001703 ERS32 DEF ERSEC+32 

0439 00647 051523 DEF #EXP 

0440 00650 001643 ERSCA DEF ERSEC 

0441 00651 051647 DEF #LOG 

0442 00652 041653 ExlTA DEF EXIT 

0443 00653 051073 DEF #CHEB 

0444 00654 001560 FCUCA DEF FCUC 

0445 00655 051146 DEF #IENT 

0446 00656 042203 FDT4A DEF FDAT4 

0447 00657 051164 DEF #pWR2 

0448 00660 033360 FOPBS DEF Qu0tE«2 
044g 00661 042246 DEF #INQL 

0450 00662 042622 FRET DEF FOR10 

0451 00663 050474 DEF #GTCR 

0452 00664 001364 FScHa DEF FSCH 

0453 00665 050466 DEF #BKSP 

0454 00666 072041 FUSS DEF C0M6*2 

0455 00667 050450 DEF #oTCR 

0456 00670 001650 IHB DEF HB 

0457 00671 050370 DEF #QTIN 

0458 00672 003230 L1024 DEF UBUS*1024 

0459 00673 052614 DEF *MCQT 

0460 00674 021230 I8i92 DEF UBUS+8192 

0461 00675 052651 DEF #OTST 

0462 00676 001230 LIBD DEf UBuS 

0463 00677 042373 DEF *SINI 

0464 00700 101230 LIBDI DEF LIBU3,I 

0465 00701 034516 DEF #BLDI 

0466 00702 072231 LO G Bg DgF LOGG* 

0467 00703 047303 DEF #RDIm 

0468 00704 072331 LOGND DEF LOGGR+64 POINTS TO END OF LOGGR 

0469 00705 047252 DEF #VCHK 

0470 00706 072330 LOGP1 DEF LOGGR+63 POINTERS TO FIRST AND 

0471 mi%7 045122 DEF #SERR 



POINTER TO DISC ADDRESS O^ FUSS 



points to beginning of loggh 
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0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 

0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
051g 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 



00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
00724 
00725 

00726 
00727 

00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
00742 
00743 
00744 
00745 

00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 

mm 

00771 
00772 
00773 

m?7A 

00775 

00776 
mi77 



072330 
052677 

025230 
045112 
025063 
034550 
025224 
034571 
053317 
042043 

100001 
044055 
071623 
044324 
002000 
044442 
053516 
044505 
056653 
035043 
062025 
037056 
062000 
043636 
071470 
056000 
071444 
056010 
074152 
056022 
071724 
056064 
072025 
056072 
134213 
056103 
074460 
056124 
057133 
056150 
057113 
033667 
040031 
035017 
037753 
054006 
040055 
041027 
154360 
035223 
000000 
073307 
176550 
043606 
154000 
051743 



L0GP2 DEE 

DEF 
LULEN DEF 

DEF 
LW97 DEF 

DEF 
LWAU3 DEF 

DEF 
MCBOP DEF 

DEF 
ONEI DEF 

DEF 
OUTCH DEF 

DEF 
PBUFF DEF 

DEF 
PDFNS DEF 

DEF 
POWlN DEF 

DEF 
R14DR DEF 

DEF 
S14SC DEF 

DEF 
SCHEN DEF 

DEF 
SCHIN DEF 

DEF 
SCHL8 DEF 

DEF 
SCOM1 DEF 

DEF 
SC0M5 DEF 

DEF 
STBAs DEF 

DEF 
T35CH DEF 

DEF 
T35DR DEF 

DEF 
TTY35 DEF 

DEF 
XEC1A DEF 

DEF 
XEC3I DEF 

DEF 
XEC5I DEF 

DEF 
MAySN DEC 

DEF 
LOgCT NOP 

DEF 
ML1BD ABS 

DEF 
MULEN ABS 

DEF 



LOGGR+63 

#CHOU 

LIBUS+ULEN 

#MOVE 

UsER*ULEN-97 

#RECR 

user*ule.n 

*FILR 
MCBOS 
#VLFI 

1#I 

#RQST 

#OUTC 

#FILS 

PROGB+1 

#GTTY 

PRDFS 

#WRBU 

ROW 

*ALCO 

R14CM 

*RSTP 

S14SH 

#FENC 
SCHEQ 
#MTGl 
SCHIO 

*DTL1 

SCHLQ 

#RUND 

COM1 

#OTBL 

C0M5-1 

#OTCL 

3YNTB*42B,I 

#DSCH 

T35CQ 

#McHR 

?TT2 

#EVEP 

?TT35 

*USCK 

XECl 

#PFSH 

XEC3 

JFRMT 

XEC5 

#EPRU 

•10000 

#SLCK 



LAST ENTRIES IN LOGGR 



LINKAGE FOR INPUT REQUEST, 



#LCDL 
•LIByS 

#FCUC 
• ULEN 
#EDAB 



NUMBER OF ELEMENTS IN LQGGR 



PAGE 0013 #01 BASE PAGE 



0528 

0529 

0530* 

0531* 

0532* 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

054a 

0549 

0550 



01000 125000 
00736 



PDFBS JMP PDFTB-1,1 
S14LP EQU S14SC 



FUNCTION EXECUTION ENTRY ADDRESSES 



01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 



050523 
050610 
050553 
051273 
051411 
051521 
051645 
050660 
052010 
050663 
050743 
051016 
001023 
051027 
050677 
051204 
051202 
052076 



PDFTB DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 

DEF 
DEF 

DEF 
DEF 
DEF 
LDVSR DEp 
DEF 
DEF 
DEF 
DEF 
DEF 



ETAB 
ELIN 
E3PA 
ETAN 
EATN 
EEXP 
ELOG 
EABS 
ESQR 
EINT 
ERND 
ESGN 

UVsKw 

ETYP 
ETIM 
ESIN 
ECOS 
EBRK 



»lEn ! is done in a special may 



0552 01023 023420 DVSRS DEC 10000 

0553 01024 001750 DEC 1000 

0554 01025 000144 DEC 100 

0555 01026 000012 DEC 10 

0556 01027 100000 MNEG OCT 100000 

0557 01030 000376 OCT 376 

0558 01031 040000 HALF DEC 0.5 
01032 000000 

0559 00320 M64 EQU D100 

0560 00316 HIMSK EQU M256 

0561 00356 EOF EQU t *l 

0562 00355 EOR EQU t -2 

0563 01027 BIT15 eQU MNEG 

0564 00514 A000 EQU B2000 
0565* 

0566* THE FolLOWjnG CONSTANTS ARE MASKS FOR THE 6iT*F L AG WORD 

0567* IN EACH USERtS TTY TABLE 

0568* 

0569 00360 

0570 00361 

0571 00363 

0572 00367 

0573 00377 

0574 00417 

0575 00462 

0576 00476 

0577 00502 

0578 00506 

0579 00612 

0580 00520 

0581 00600 



TERR 


EqU 


• ♦1 


TAPE ErrOr 


CFLAG 


EQU 


.♦2 


COMPILE MOOE 


HFLAG 


EQU 


• ■♦4 


SHELLO IS RUNNING 


TAPEF 


EQU 


,♦8 


USER IN TAPE NODE 


UNA8T 


EQU 


• ♦16 


UNABLE TO ABORT 


OUTWT 


EQU 


,+32 


OUTPUT BUFFER FULL 


C0M14 


EQU 


B100 


COMMUNICATION FROM 2114 


ABTRY 


EQU 


B200 


ABORT ATTEMPT 


DFCHK 


EQU 


B400 


CHECK FoR DIRTY FILES 


CHNFG 


EQU 


Bl 000 


CHAIN RUNNING 


PUALT 


EQU 


M2000 


PROGRAM UNALTERED 


MBUST 


EQU 


B4000 


MBUSY POSITIVE 


PBFLG 


EQU 


RPOP 


ABORT CAPABILITY DISABLED 
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0582 


00522 




CBFLG EQU 


B20M 


0583* 










0584** ERROR JUMP 


TABLE 




0585* 










0586 


01033 


001472 


SERRS DEF 


SERR 


0587 






REP 


35 


0588 


01034 


001472 


DEF 


SERR 


0588 


01035 


001472 


DEF 


SERR 


0588 


01036 


001472 


DEF 


SERR 


0588 


01037 


001472 


DEF 


SERR 


0588 


01040 


001472 


DEF 


SERR 


0588 


01041 


001472 


DEF 


SERR 


0588 


01042 


001472 


DEF 


SERR 


0588 


01043 


001472 


DEF 


SERR 


0588 


01044 


001472 


DEF 


SERR 


0588 


01045 


001472 


DEF 


SERR 


0588 


01046 


001472 


DEF 


SERR 


0588 


55 1 047 


001472 


DEF 


SERR 


0588 


01050 


001472 


DEF 


SERR 


0588 


01051 


001472 


DEF 


SERR 


0588 


01052 


001472 


DEF 


SERR 


0588 


01053 


001472 


DEF 


SERR 


0588 


01054 


001472 


DEF 


SERR 


0588 


01055 


001472 


DEF 


SERR 


0588 


01056 


001472 


DEF 


SERR 


0588 


01057 


001472 


DEF 


SERR 


0588 


01060 


001472 


DEF 


SERR 


0588 


01061 


001472 


DEF 


SERR 


0568 


01062 


001472 


DEF 


SERR 


0588 


01063 


001472 


DEF 


St KK 


0588 


01064 


001472 


DEF 


SERR 


0588 


01065 


001472 


DEF 


SERR 


0588 


01066 


001472 


DEF 


SERR 


0588 


01067 


001472 


DEF 


SERR 


0588 


01070 


001472 


DEF 


SERR 


0588 


01071 


001472 


DEF 


SERR 


0588 


01072 


001472 


DEF 


SERR 


0588 


01073 


001472 


DEF 


SERR 


0588 


01074 


001472 


DEF 


SERR 


0588 


01075 


001472 


DEF 


SERR 


0588 


01076 


001472 


DEF 


SERR 


0589 


01077 


001472 


RERR8 DEF 


SERR 


0590 






REP 


50 


0591 


01100 


001472 


DEF 


SERR 


0591 


01101 


001472 


DEF 


SERR 


0591 


01102 


001472 


DEF 


SERR 


059i 


01103 


001472 


DEF 


SERR 


0591 


01104 


001472 


DEF 


SERR 


0591 


01105 


001472 


DEF 


SERR 


0591 


01106 


001472 


DEF 


SERR 


0591 


01107 


001472 


DEF 


SERR 


0591 


01110 


001472 


DEF 


SERR 


0591 


01111 


001472 


DEF 


SERR 


0591 


01112 


001472 


DEF 


SERR 


0591 


01113 


001472 


DEF 


SERR 


0591 


01114 


001472 


DEF 


SERR 



"BREAK" COMMAND GIVEN 
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0591 


01 


115 


001472 


OEF 


SERR 


0591 


01 


116 


001472 


DEF 


SERR 


0591 


01 


117 


001472 


DEF 


SERR 


0591 


01 


120 


001472 


DEF 


SERR 


0591 


01 


121 


001472 


OEF 


SERR 


059] 


01 


122 


001472 


OEF 


SERR 


059] 


01 


123 


001472 


DEF 


SERR 


059] 


01 


124 


001472 


DEF 


SERR 


059] 


01 


125 


001472 


DEF 


SERR 


059] 


1 01 


126 


001472 


DEF 


SERR 


059] 


i 01 


127 


001472 


DEF 


SERR 


059] 


1 01 


130 


001472 


DEF 


SERR 


059] 


01 


131 


001472 


DEF 


SERR 


059] 


01 


132 


001472 


DEF 


SERR 


059] 


01 


133 


001472 


DEF 


SERR 


0591 


01 


134 


001472 


DEF 


SERR 


059] 


01 


135 


001472 


DEF 


SERR 


059] 


01 


136 


001472 


DEF 


SERR 


0591 


01 


137 


001472 


DEF 


SERR 


059] 


01 


140 


001472 


DEF 


SERR 


0591 


01 


141 


001472 


DEF 


SERR 


0591 


01 


142 


001472 


DEF 


SERR 


059] 


01 


143 


001472 


DEF 


SERR 


0591 


01 


144 


001472 


DEF 


SERR 


059] 


01 


145 


001472 


DEF 


SERR 


0591 


01 


146 


001472 


DEF 


SERR 


0591 


01 


147 


001472 


DEF 


SERR 


0591 


01 


150 


001472 


DEF 


SERR 


0591 


01 


151 


001472 


DEF 


SERR 


059J 


01 


152 


001472 


Qter 


SERR 


0591 


01 


153 


001472 


DEF 


SERR 


0591 


01 


154 


001472 


DEF 


SERR 


0591 


01 


155 


001472 


DEF 


SERR 


0591 


01 


156 


001472 


DEF 


SERR 


0591 


01 


157 


001472 


DEF 


SERR 


0591 


01 


160 


001472 


DEF 


SERR 


059] 


01 


161 


001472 


DEF 


SERR 


0592 


! 01 


162 


001472 


FErrs DEF 


SERR 


0593 


\ 






REP 


14 


0594 


\ 01 


163 


001472 


DEF 


SERR 


0594 


i 01 


164 


001472 


DEF 


SERR 


0594 


t 01 


165 


001472 


DEF 


SERR 


0594 


i 01 


166 


001472 


DEF 


SERR 


0594 


1 01 


167 


001472 


DEF 


SERR 


0594 


► 01 


170 


001472 


DEF 


SERR 


0594 


1 01 


171 


001472 


DEF 


SERR 


0594 


1 01 


172 


001472 


OEF 


SERR 


0594 


t 01 


173 


001472 


DEF 


SERR 


0594 


\ 01 


174 


001472 


DEF 


SERR 


0594 


1 01 


175 


001472 


DEF 


SERR 


0594 


I 01 


176 


001472 


DEF 


SERR 


0594 


1 01 


177 


001472 


DEF 


SERR 


0594 


1 01 


200 


001472 


DEF 


SERR 


0595 


> 01 


201 


001472 


WERRS DEF 


SERR 


0596 








REP 


9 


059? 


' 01 


202 


001472 


DEF 


SERR 
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0597 


01203 


001472 


DEF 


SERR 


0597 


01204 


001472 


DEF 


SERR 


0597 


01205 


001472 


DEF 


SERR 


0597 


01206 


001472 


DEF 


SERR 


0597 


01207 


001472 


DEF 


SERR 


0597 


01210 


001472 


DEF 


SERR 


0597 


012V1 


001472 


DEF 


SERR 


0597 


01212 


001472 


DEF 


SERR 
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0002 
0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 

001U 

0012** 

0013* 

0014 

0015 

0016 

0017 

0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 

0036 
0037 

0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0046 
0049 
0050 
0051 

0052 
0053 
0054 
0055 
0056 
0057 



1213 
1214 

1224 
1224 
1224 
1225 
1226 
1227 
1230 



001224 
101224 



005670 
000310 
000000 
000000 



SUBROUTINE 



1230 
1231 

1232 
1233 

1234 
1235 
1 236 
1237 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1250 
1251 
1252 
1253 
1254 
1255 

1256 
1257 
1260 
1261 
1262 
1263 

1264 
1265 

1266 

1267 

1270 

1271 
1272 
1273 

1274 
1275 
1276 
1277 

1300 
1301 
1302 
1303 



000000 
124445 

000000 

124447 
000000 
124451 

000000 

124453 
000000 
124455 

000000 
124457 
000000 
124461 
000000 
124463 
000000 
124465 
000000 
124467 
000000 
124471 
000000 
124473 
000000 
124475 
000000 
124477 
000000 
124501 
000000 
124503 
000000 
124505 
000000 
124507 
000000 
124511 
000000 
124513 
000000 
124515 
000000 
124517 



USE 
USEI 

USER 
AREG 
BREG 
EREG 
PREG 
LIBuS 

RETURN 
FsC 
SBSCK 
FRCUR 
FPOP 
yAROP 
ARRID 
PRGIN 
TBSRH 
GETPF 
LPCK 
RPCK 
UTR 
STROP 
CHRST 
DI6CK 
LEtCK 
SBPUD 
SYMCK 
FINCH 
NyMCK 
MBY10 
DBY10 



DEF USER 
OEF USER* I 
ORG 1224B 
EQU * 
DEC 3000 
DEC 200 
NOP 
NOP 
EQu * 

ADDRESSES 

NOP 

JMP #«JTD,I 

NOP 

J M p #.JTD,I 

NOP 

JMP # .JTD,I 

NOP 

JMP #«JTD,I 

NOP 

JMP *«JTD,I 

NOP 

JMP *-JTD,I 

NOP 

JMP **jtd,i 

NOP 

JMP *.JTD,I 

NOP 

JMP *»jtd,i 

NOP 

JMP *-JTD,I 

NOP 

JMP **JtD, I 

NOP 

JMP fJTD,I 

NOP 

JMP #-JTD#I 

NOP 

Jmp #»jtd,i 

NOP 

JMP #.JTD,I 

NOP 

JMP *-jTD,j 

NOP 

JMP *-JTD#I 

NOP 

J M P *-JTD f I 

NOP 

JMP #.JTD,I 

NOP 

JMP ♦•JTD,! 

NOP 

JMP *-JTD,I 

NOP 

JMP *«JTD,I 



SYSTEM LEVEL CODE 
FEATURE LEVEL CODE 



PA0E * 8 #®2 U8gR ARgA 



0058 


01304 


0059 


01305 


0060 


01306 


0061 


01307 


0062 


01310 


0063 


01311 


0064 


01312 


0065 


01313 


0066 


01314 


0067 


01315 


0066 


01316 


0069 


01317 


8078 


01320 


0071 


01321 


0072 


01322 


0073 


01323 


0074 


01324 


0075 


01325 


0076 


01 326 


^77 


01327 


m7* 


01330 


0079 


01331 


0080 


0l33 2 


0081 


01333 


0082 


01334 


0083 


01335 


0084 


01336 


0085 


01337 


0066 


01340 


0087 


01341 


0088 


01342 


0089 


01343 


0090 


01344 


0091 


01345 


0092 


01346 


0093 


01347 


0094 


01350 


0095 


01351 


0096 


01352 


0097 


01353 


0096 


01354 


0099 


01355 


0100 


01356 


0101 


01357 


0102 


01360 


0103 


01361 


0104 


01362 


0105 


01363 


0106 


01364 


0107 


01365 


0106 


01366 


0109 


01367 


0110 


01370 


0111 


01371 


0112 


01372 


0113 


01373 



000000 
124521 
000000 
124523 
000000 
124525 
000000 
124527 
000000 
124531 
000000 
124533 
000000 
124535 
000000 
124537 

000000 
124541 
000000 
124543 

000000 
124645 
000000 
124547 
000000 
124551 
000000 
124553 
000000 
124555 

000000 

124557 
000000 
124561 
000000 
124563 
000000 
124565 

000000 
124567 
000000 
124571 
000000 
124573 
000000 
124575 
000000 
124577 
000000 
124601 
000000 
124603 
000000 
124605 
000000 
124607 



NORML NOP 
JMP 

.PACK NOP 

JMP 
OVFlW NOP 

JMP 
DEIPR NOP 

JMP 
FN0P8 NOP 

JMP 

SSyMT NOP 
JMP 

ASYMT NOP 
JMP 

DCMPl NOP 
JMP 

PRN8T NOP 

JMP 

CUSP NOP 

JMP 

strip nop 
Jmp 

rstop nop 

JMP 
GETST NOP 

JMP 
FORMX NOP 

JMP 

STSTR NOP 

JMP 
S8P1X NOP 

JMP 
PSTR NOP 

JMP 
OyCHK NOP 

JMP 
TRSTR NOP 

JMP 

COMPR NOP 
JMP 

PCHK NOP 
JMP 

FETCH NOP 

JMP 
SETOP NOP 

JmP 
FOATA NOP 

JMP 
FsCH NOP 

JMP 

pshst nop 

Jmp 

arinv nop 

JMP 

BINOP NOP 

JMP 



♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦-JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦-JTD, 
♦•JTD, 
♦•JTD, 
♦-JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦•JTD, 
♦-JTD, 
♦•JTD, 
♦-JTD, 



PAGE 0019 #02 USER AREA 



0114 

0115 
0116 
0117 
0116 
0119 
0120 
0121 
0122 
0123 
0124 
012S 
0126 
0127 
012d 
0129 

0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 

0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
016a 
0169 



01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
01423 
01 424 
01425 
01426 
01427 
01430 

01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
Gt45i 
01452 
01453 

01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 



000000 
1246H 
000000 
124613 

000000 
124615 
000000 
124617 
000000 
124621 
000000 
124623 
000000 
124625 
000000 
124627 
000000 
124631 

000000 
124633 
000000 
124635 
000000 
124637 
000000 
124641 
000000 
124643 
000000 
124645 
000000 
124647 

000000 
124651 

000000 
124653 
000000 
124655 
000000 
124657 
000000 
124661 

000000 
124663 
000000 
124665 

000000 
124667 
000000 
124671 
000000 
124673 

000000 
124675 

000000 

124677 



STTOP 


NOP 






JMP 


*-JTD#I 


OPCHK 


NOP 






JMP 


*-JTD,i 


RSCHK 


NOP 






JMP 


#-jtd,i 


.FAD 


NOP 






JMP 


**JTD,1 


.t-sB 


NOP 






JMP 


*-JTD, I 


,FMP 


NOP 






JMP 


**JTD*I 


t FDV 


NOP 






JMp 


*-JTD, I 


.FLUN 


NOP 






JMP 


*«,JTD*I 


IFIx 


NOP 






JMP 


**JTO,i 


ENQUT 


NOP 






JMp 


♦-JTD, I 


NUMOT 


NOP 






JMP 


*-JTD,I 


GETOG 


NOP 






Jmp 


*»jtd,i 


OUTLN 


NOP 






JMP 


♦-JTD, I 


EDELM 


NOP 






JMP 


*-JTD, 1 


SETPT 


NOP 






JMP 


**JTD,I 


,EXP 


NOP 






JMP 


*"JTD,i 


.LOG 


NOP 






JMP 


*-jTD,i 


,CHEB 


NOP 






JMP 


#-jTO#l 


.IENT 


NOP 






Jmp 


*«jtd*i 


.PWR2 


NOP 






JMP 


*,pJTD,1 


1NCAL 


NOP 






JMP 


*-jTD, 1 


GETCR 


NOP 






•Jmp 


*«JTD, I 


BCKSP 


NOP 






JMP 


*-JTD#l 


OUTCR 


NOP 






Jmp 


*»JTD, I 


OUTIN 


NOP 






JMP 


*~JTD,I 


MCOUT 


NOP 






JMP 


*«JTD,i 


OUTST 


NOP 






JMp 


*»JTD, I 


SINIT 


NOP 






JMP 


*-JTD,I 



PAGE 0020 #02 USFR AREA 



0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 

0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 

02U 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 



01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 

0U74 
01475 

01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
0I5II 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 

01532 
01533 
01534 
01535 
01536 
01537 

01540 
01541 

01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 

0155? 
01553 



000000 
124701 
000000 
124703 
000000 
124705 
000000 
124707 
000000 
124711 
000000 
124713 
000000 
124715 
000000 
124717 
000000 
124721 

000000 

124723 
000000 
124725 
000000 
124727 
000000 
124731 
000000 
124733 

000000 
124735 
000000 
124737 
000000 
124741 

000000 
124743 
000000 
124745 

000000 
124747 
000000 
124751 
000000 
124753 
000000 
124755 

000000 
124757 

000000 
124761 
000000 
124763 
000000 
124765 
000000 
124767 



bldin nop 

JMP 
REDIM NOP 

JHP 
VCHK NOP 

JMP 
SERR NOP 

JmP 
CHOUF NOP 

JMP 
MOVER NOP 

JMP 
RECRF NOP 

JmP 
F1LRF NOP 

JMP 
VLFIL NOP 

JMP 
RQSTR NOP 

JMP 
FILST NOP 

JMP 
GTTYP NOP 

JMP 
WRBUF NOP 

JMP 
ALCQM NOP 

JMP 
RSTPT NOP 

JMP 
FENCH NOP 

JMP 
MfGl NOP 

JMP 
DTL1 NOP 

J MP 
R OuND NOP 

JMP 

OUTBL NOP 

JMp 

OUTCL NOP 

JMP 

DSRCH NOP 

Jmp 
mchar nop 

JMP 
EVEXP NOP 

JMP 
USTCK NOP 

JMp 
PFSRH NOP 

JMP 

frmat nop 

Jmp 
eprus nop 

JMP 



*-JTDt 
♦-JTD, 

**JTOr 
**JTD, 
*-JTD, 

**JTDr 
♦-JTD, 
♦-JTD, 
♦-JTD, 
*«.JTD, 
*~JTDr 
**JjD f 
*~JTD, 
*«JTD, 
♦-JTD, 
*-JTD, 
*-*jTD, 
♦-JTD, 
♦-JTD, 
*-JTD, 
*„JTD, 
**JTD, 
♦-JTD, 
♦-JTD, 
**JTD, 
♦ ••JTDf 
*-JTD, 
*.JTD, 
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0226 


01554 


000000 


STLCK 


NOP 






0227 


01555 


124771 




JMP 


*«JTD,I 




0228 


01556 


000000 


LCOI.P 


NOP 






0229 


01557 


124773 




.JMP 


*-JTO,i 




0230 


01560 


000000 


FCUC 


NOP 






0231 


01561 


124775 




JMP 


♦-JTD, I 




0232 


01562 


000000 


EDABR 


NOP 






0233 


01563 


124777 




JMP 


♦-JTDfl 




0234 


00564 




JTD 


EQU 


FSCSBJTB+1 


0235* 














0236** GENERAL USAGE INFORMATION 




0237* 














0238 


01564 


000000 


RNDX1 


BSS 




30-BIT RANDOM 


0239 


01565 


000000 


RN0X2 


bss 




INTEGER. 


0240 


01566 


000000 


,LNUM 


BSS 






0241 


01567 


000000 


LNAME 


BSS 






0242 


01570 


000000 


CHRCT 


BSS 






0243 


01571 


000040 


BLANK 


OCT 


40 




0244 


01572 


000000 


SBPTR 


Bss 






0245 


01573 


000000 


SYMTB 


BSS 






024 6 


01574 


000000 


VALTB 


BSS 






0247 


01575 


002000 


SPROG 


DEF 


PROGB+1 




0248 


01576 


000000 


VLFLG 


BSS 






0249 


01577 


000000 


FLSTS 


BSS 


4 




0250 


01603 


000000 


FILPT 


BSS 






0251 


01604 


000000 


FILCT 


BSS 






0252 


01605 


000000 


USESN 


BSS 






0253 


01606 


000000 


NUMPT 


BSS 






0254 


01607 


000000 


ENOUF 


NOP 






0255 


01610 


000000 


ATIM 


BSS 


1 




0256 


01611 


000000 


TEMP 


BSS 


9 




0257 


01622 


000000 


XTEMP 


BSS 


2 




0258 


01624 


000000 


YTEMR 


BSS 


2 




0259 


01626 


000000 


UTEMP 


BSS 


2 




0260 


01630 


000000 


X2TMP 


BSS 


2 




0261 


01632 


000000 


ATMP 


BSS 


2 




0262 


01634 


000000 


BTMp 


BSS 


2 




0263 


01636 


000000 


OTMP 


BSS 


2 




0264 


01640 


000000 


BlNOi 


BSS 






0265 


01641 


000000 


BIn02 


BSS 






0266 


01642 


125372 




JMP 


BIN0P,I 




0267 


01643 


000000 


ERSEC 


BSS 


64 




0268 


01743 


000000 


CC 


BSS 






0269 


01744 


000000 


CCi 


BSS 






0270 


01745 


000000 


CC2 


BSS 






0271 


01746 


000000 


CONTR 


BSS 






0272 


01747 


000000 


DP 


Bss 






0273 


01750 


000000 


DPFLG 


BSS 






0274 


01751 


000000 


EDSTA 


BSS 






0275 


01752 


000000 


FFLAG 


BSS 






0276 


01753 


000000 


EST 


BSS 






0277 


01754 


000000 


FFLG 


BSS 






0278 


01755 


000000 


FSP 


BSS 






0279 


01756 


000000 


IFSS 


BSS 






0280 


01757 


000000 


IFSTR 


BSS 






028i 


01760 


000000 


NCH 


BSS 
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0282 


01761 


000000 


NUM1 


BSS 


1 


0283 


01762 


000000 


NUM2 


BSS 


1 


0284 


01763 


000000 


PCI 


BSS 


1 


0285 


01764 


000000 


PC2 


BSS 


1 


0286 


01765 


000000 


SAD 


BSS 


1 


0287 


01766 


000000 


8BD 


BSS 


1 


0288 


01767 


000000 


PMASK 


BSS 


1 


0289 


01770 


000000 


RETCO 


BSS 


1 


0290 


01771 


000000 


ASINP 


BSS 


1 


0291 


01772 


050000 


DEFQP 


OCT 


50000 


0292 


01773 


054000 


FOrOP 


OCT 


54000 


0293 


01774 


000000 


REPCT 


BSS 


1 


0294 


02000 






ORG 


USER+554B 


0295 


01777 




PROGB 


EQU 


*-l 


0296 


01027 




flgbt 


EQU 


MNEG 


0297 


01420 




GFLAG 


EQU 


NUMOT 


0298 


01643 




pIntg 


EQU 


ERSEC 


0299 


01266 




SIGN 


EQU 


LETCK 


0300 


01316 




MANTl 


EQU 


SSYHT 


0301 


01320 




MANT2 


EQU 


ASYMT 


0302 


01322 




EXP 


EQU 


DCMPL 


0303 


01324 




EXPON 


EQU 


PRNST 


0304 


01336 




FFUAG 


EQu 


FORHx 


0305 


01360 




NMTMP 


EQU 


SETOP 


0306 


01362 




NMPTR 


EQU 


FOATA 


0307 


01614 




NUMBF 


EQU 


TEMP+3 


0308 


01356 




OIGCT 


EQU 


FETCH 


0309 


01300 




NT0 


EQU 


MBY10 


0310 


01310 




OCTMP 


EQU 


OVFLW 


0311 


01400 




IT0 


EQU 


RSCHK 


0312 


01426 




LT1 


EQU 


EDEtM 


0313 


012;4 




LT2 


EQU 


FINCH 


0314 


01430 




LT3 


EQU 


SETPT 


0315 


01436 




LT4 


EQU 


,CHEB 


0316 


01440 




LT5 


EQU 


.IENT 


0317 


01442 




LT6 


EQU 


# PWR2 


0318 


01432 




LT7 


EQU 


.EXP 


0319 


01550 




LT8 


FQU 


FRMAT 


0320 


01444 




OT1 


EQU 


INCAL 


0321 


01450 




0T3 


EQU 


BCKSP 


0322 


01374 




DGCNT 


EQU 


STTOP 


0323 


01510 




SOURC 


EQU 


FlLST 


0324 


01512 




DEST 


EQU 


GTTYP 


0325 


01476 




TAP0 


EQU 


MOVER 


0326 


01472 




TApl 


EQU 


SERR 


0327 


01474 




CU1 


EQU 


CHOUF 


0328* 












0329** SYNTAX INFORMATION TEMPORARIES 


0330* 












0331 


01574 




ERRCT 


EQU 


VALTB 


0332 


01616 




SBUFA 


EqU 


TEMp+5 


0333 


01470 




SYNTO 


EQU 


VC H K 


0334 


01615 




SSTAK 


EQU 


TEMP+4 


0335 


01402 




MAXCR 


EQU 


,FAD 


0336 


01404 




table 


EQU 


«FSB 


0337 


01406 




LNGTH 


EQU 


.FMP 
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0338 


01410 


SMBGN 


EQU 


,FDV 


0339 


01432 


SLENG 


EQU 


.EXP 


0340 


01436 


COUNT 


EQU 


.CHEB 


0341 


01440 


TBLPT 


EQU 


.IENT 


0342 


01442 


TSPTR 


EQU 


,PWR2 


0343 


01306 


SBT0 


EQU 


.PACK 


0344 


01412 


CDFLG 


EQU 


,FLUN 


0345 


01617 


pFLAG 


EQU 


TEMp*6 


0346* 










0347** COMPILE INFORMATION TEMPOrAr 


0346* 










0349 


01234 


FLINK 


EQU 


FRcUR 


0350 


01502 


FILTB 


EQU 


FILRF 


0351 


01242 


STEND 


EQU 


ARRID 


0352 


01230 


SPTR 


EQU 


FSC 


0353 


01236 


NSPTR 


EQU 


FPOP 


0354 


01240 


SIYPe 


EQU 


VAROP 


0355 


01611 


STMPl 


EQU 


TEMP 


0356 


01612 


STMP2 


EQU 


TEMP^ 1 


0357 


01611 


VTMPl 


EQU 


TEMP 


0358 


01612 


VTMp2 


EQU 


TEMp*l 


0359 


01613 


VTMP3 


EQU 


TEMP+2 


0360 


01614 


VTMP4 


EQU 


TEMP+3 


0361 


01615 


VTMP5 


EQU 


TEMP*4 


0362 


01615 


COMSN 


EQU 


TEMP*4 


0363 


01616 


STPTR 


EQU 


TEMP*5 


0364 


01616 


CqHPT 


EQU 


TEMp*5 


0365 


01617 


STCT1 


EQU 


TEMP*6 


0366 


01613 


STCT2 


EQU 


TEMP+2 


0367 


01614 


STCT3 


EQU 


TEMP*3 


0368 


01617 


DCKLG 


EQU 


TEMP*6 


0369 


01550 


INFST 


EQU 


FRhAT 


0370* 










0371** EXECUTION 


informa- 


rION 


TEMPOR 


0372* 










0373 


01232 


FCORE 


EQU 


SBSCK 


0374 


01500 


FCnTR 


EQU 


RECRF 


0375 


01240 


RTRNQ 


EQU 


VAROP 


0376 


01242 


RTN3T 


EQU 


ARRID 


0377 


01246 


forq 


EQU 


TBSRH 


0378 


01250 


FOrsT 


EqU 


GETPF 


0379 


01330 


tmpst 


EQU 


STRId 


0380 


01332 


OPDST 


EQU 


RSTOP 


0381 


01464 


QPTRQ 


EQU 


BlDIn 


0382 


01334 


PRGCT 


EQU 


GETST 


0383 


01262 


OCCNT 


EQU 


CHR8T 


0384 


01244 


NXTOT 


EQU 


PRGIN 


0385 


01611 


TEMPI 


EQU 


TEMP 


0386 


01252 


TEMP2 


EQU 


LPCK 


0387 


01254 


TEMP3 


EQU 


RPCK 


0388 


01256 


TEMP4 


EQU 


LTR 


0389 


01272 


TEMP5 


EQU 


SYMCK 


0390 


01260 


TE M P6 


EQU 


STROP 


0391 


01476 


GTMP 


EQU 


MOVER 


0392 


01426 


FVT 


EQU 


EOELm 


0393 


01420 


EFN0 


FQU 


NUMOT 



PAGE 


0024 #02 


USER AREA 






0394 


01422 


EFN1 


EQU 


GETDG 


0395 


01424 


FFN2 


EQU 


OUTLN 


0396 


01366 


EFN3 


EQU 


PSHST 


0397 


01456 


INITF 


EQU 


mcout 


0398 


01420 


IKNT 


EQU 


NUMOT 


0399 


01420 


R8PTR 


EQU 


NUMOT 


0400 


01476 


MCNT 


EQU 


MOVER 


0401 


01354 


INTMP 


EQU 


PCHK 


0402 


01550 


STRLN 


EQU 


FRMAT 


0403 


01470 


EOL 


EQU 


VCHK 


0404 


01456 


EOPF 


EQU 


MCOUT 


0405 


01572 


BSi 


EQU 


SBPTR 


0406 


01350 


BS2 


EQU 


TRSTR 


0407 


01352 


BS3 


EQU 


COMPR 


0408 


01312 


MT0 


EQU 


DElPR 


0409 


01314 


MT1 


EQU 


FNDPS 


0410 


01622 


MT2 


EQU 


XTEMP 


0411 


01623 


M-T3- 


EQU 


XTEMP41 


0412 


01340 


P^OP 


EQU 


STSTR 


0413 


01364 


MEXIT 


EQU 


FSCH 


0414 


01632 


MMT0 


EQU 


AJMP 


0415 


01633 


MMT1 


EQU 


ATMP+1 


0416 


01634 


MMT2 


EQU 


BTMP 


0417 


01635 


MMT3 


EQU 


BTMP+i 


0418 


01636 


MMT4 


EQU 


DTMP 


0419 


01637 


MMt5 


EQU 


DTMp.fl 


0420 


01630 


MMT6 


FQU 


X2TMP 


0421 


01631 


MMT7 


FQU 


X2TMP+1 


0422 


01376 


MMT8 


EQU 


OPCHK 


0423 


01514 


ID0 


EQU 


WRBUF 


0424 


01362 


ID1 


EQU 


FDATA 


0425 


01470 


RO0 


EQU 


VCHK 


0426 


01400 


VT0 


EQU 


RSCHk 


0427 


01622 


SCALR 


EQU 


XTEMP 


0428 


01624 


MAXE 


EQU 


YTEMP 


0429 


01626 


tol 


EQU 


UTEMP 


0430 


01344 


PIVEL 


EQU 


PSTR 


0431 


01436 


EST1 


EQU 


.CHEB 


0432 


01440 


F8T2 


EQU 


.XENT 


0433 


01442 


EST3 


EQU 


,PWR2 


0434 


01616 


Al 


EQU 


TEMPOS 


0435 


01617 


A2 


EQU 


TEMP+6 


0436 


01620 


CI 


EQU 


TEMP+7 


0437 


1 402 


FD0 


EQU 


.FAD 


043$ 


01264 


TT1 


EQU 


DIGCK 


0439 


01266 


TT2 


EQU 


LETCK 


0440 


01614 


TT3 


EQU 


TEMp+3 


0441 


01615 


TT4 


EQU 


TEMP+4 


0442 


01644 


RQ1 


EQU 


ERSEC+1 


0443 


01647 


RQ2 


EQU 


ERSEC+4 


0444 


01645 


RQ3 


EQU 


FRSEC+2 


0445 


01646 


RQ4 


EQU 


ERSEC+3 


0446 


01650 


RQ5 


EQU 


ERSEC+5 


0447 


01236 


FBASE 


EQU 


FPOP 


0448 


01651 


Eorfl 


EQU 


ERSEC+6 


0449 


01234 


FILE* 


EQU 


FRCUR 



PAGE 


0025 #02 


USER AREA 






0450 


01520 


RCRD* 


EQU 


RSTPT 


0451 


01514 


VL0 


EQU 


WRBUF 


0452 


01652 


DADrr 


tQU 


ERSEC+7 


0453 


01653 


FILT 


EQU 


ER8EC*8 


0454 


01400 


MPT 


EQU 


RSCHK 


0455 


01376 


NUT 


EQU 


OPCmK 


0456 


01406 


TNULU 


EQU 


.FMP 


0457 


01410 


TPRME 


EQU 


,FDV 


0458 


01466 


PS0 


EQU 


REOlM 


0459 


01462 


PS1 


EQU 


SINIT 


0460 


01432 


CP0 


EQU 


,EXP 


0461 


01344 


CP1 


EQU 


PSTR 


0462 


01402 


TRf-CH 


EQU 


.FAD 


0463 


01404 


TRS0 


EQU 


,FSB 


0464 


01436 


RT0 


EQU 


.CHEB 


0465 


01440 


RT1 


EQU 


.ient 


0466 


01434 


LBTMP 


EQU 


• LOG 


0467 


01376 


CTMP 


EQU 


OPCHK 


0468 


01643 


EC 


EQU 


ERSEC 


0469 


01644 


F8T 


EQU 


ERSEC+1 


0470 


01646 


SFLG 


EQU 


ERSEC+3 


0471 


01647 


EXPW 


EQU 


ERSEC+4 


0472 


01650 


HB 


EQu 


ERSEC+5 


0473 


01726 


HBp 


EQU 


ERSEC+51 


0474 


01727 


LCH 


EQU 


ERSEC*52 


0475 


0l73» 


NAD 


EQU 


ERSEC+53 


0476 


01731 


NBD 


EQU 


ERSEC+54 


0477 


01732 


NBLK 


EQU 


ERSEC+55 


0478 


01733 


NHBW 


EQU 


ERSEC+56 


0479 


01736 


NUMW1 


FQU 


ErsEC*59 


0480 


01737 


NUMN2 


EQU 


ERSEC+60 


0481 


01740 


SNFLG 


EQU 


ERSEC+61 


0482 


01741 


TOTDG 


EQU 


ERSEC*62 


0483 


01742 


DCTR 


EQU 


ERSEC+63 


0484 


01470 


ELCNT 


EQU 


VCHK 


0485 


01550 


ORDNO 


EQU 


fr m at 


0486 


01554 


AS8FP 


EQU 


STLCK 


0487 


01466 


ASTYP 


EQU 


REDIM 



46 word Buffer 
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0002* 

0003** 

0004** 

0005** 

0006* 

0007* 

0000* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

001B* 

0019* 



DIREC TABLE 

DIREC IS A 560 WORD RESIDENT TABLE WHICH CONTAINS INFORMATION 
ABOUT THE DIRECTORY. THE TABLE HAS 80 ENTRIES, ONE FOR EACH 
POSSIBLE DIRECTORY TRACK, EACH ENTRY IS SEVEN NOROS LONG AND 
HAS THE FOLLOWING STRUCTURE! 

1) LENGTH In *WORDS 

2) SAME AS FIRST 

3) FOUR WORDS OF 

4) DIRECTORY 

5) TRACK 

6) DISC 

7) address 



0021 30000 ORG 30000B 

0022 30000 000000 DIrEC B$S 560 



0024 31051 

0025 31060 



DlREL EQU *-7 
DIREU EQU * 



■> START OF LAST ENTRY 

■> FIRST LOCATION BEYOND TABLE 
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0027* 
0028* 
0029* 
0030* 
0031* 
0032* 
0033* 
0034* 
0035* 
0036* 
0037* 
0038* 
0039* 
0040* 
0041* 
0042* 
0043* 
0044* 
0045* 
0046* 



THIS ROUTINE CALLS THE REAL DISC DRIVER AND WAITS FOR THE 
TRANSFER TO BE SUCCESSFULLY COMPLETED, THE CALLING SEQUENCE 
TO THIS DRIVER IS AS FOLLOWS! 



JSB DISCZrl 
A REGISTER 

B REGISTER 



MWORD 
MBUSY 



* MUST CONTAIN THE ADDRESS OF A DOUBLE 
WORD CONTAINING THE DISC AODRESS (BLOCK 
NUMBER) Of THE FIRST RECORD OF THE TRANSFER, 

* BITS 1410 - CORE ADDRESS AT WHICH THE 

TRANSFER IS TO BEGIN, 
BIT 15 - TRANSFER CqDE 
1 - DI3C READ 
• DISC WRITE 

- MUST CONTAIN THE NEGATIVE NUMBER 0^ WORDS 
TO BE TRANSFERRED, 

- SET TO •! BY THE DISC DRIVER WHILE IT IS BUSY 



0048 31060 000000 ZDlSc NOP 

0049 31061 07007/ STA STDAP 

0050 31062 114201 JSB DlSCAtl 

0051 31063 102030 HLT DEATH+30B 

0052 31064 102031 HLT DEATH*3lB 

0053 31065 060203 LDA MBUSY 

0054 31066 002020 SSA 

0055 31067 027065 JMP *„2 

0056 31070 002003 SZArRSS 

0057 31071 037060 ISZ ZDISC 

0058 31072 127060 JMPZDISC^I 



SAVE POINTER 
CALL DISC DRIVER 
DRIVER BUSy 
DISC NOT PRESENT 
WAIT FOR 
COMPLETION 

IF NO ERRQRS# ADVANCE 
RETURN ADDRESS 
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0060* 

0061** 

0062*** 

0063** 

0064* 

0065* 

0066* 

0067* 

006a* 

0069* 

0070* 

0071* 

0072* 

0073* 

0074* 

0075* 

0076* 

9^77* 



DLOOK 



DLOOK SEARCHES THE DIRECTORY FOR A PARTICULAR ENTRY, 
DESIRED ENTRY IS DEFINED BY LTEMP(0t3) # 

ENTRY IS FOUND? 

THE APPROPRIATE DIRECTORY TRACK IS IN CORE 
(LTEmP+4) « POINTER TO DlREC ENTRY 
(LTEMP+5) • DIRECTORY MEMORY ADDRESS OF ENTRY 
DLOOK RETURNS TO P*i 

ENTRY IS NOT FOUNDS 

(LTEPM+4) a POINT AT ThE L.AST ENTRY 
(LTEMP+5) ■ LESS THAN THE 6IVEN ENTRY 
DLOOK RETURNS TO P*2 



THE 



0079 
0080 

0081 
0082 
0083 
0084 
0085 
0086 
0087 

0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 

0110 
0111 
0112 
0113 
0114 
0115 



1073 
1074 
1075 
1076 
1077 



31 
3 1 
31 
31 
31 
31 
31 
31 
31 

31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 

31 
31 
31 
31 
31 
31 



00 
01 
02 
03 

04 
05 
06 
07 
10 

11 
12 
13 
14 

15 

16 
17 

20 
21 

22 

23 
24 
25 
26 
27 

30 
31 
32 
33 
34 
35 



000000 
067230 
074034 
160001 
002002 
027104 
064034 
044350 
027075 

006004 
000640 
017203 
027101 
000000 
160034 
003004 
040676 
040343 
070035 
060034 
040364 
050257 
027137 
060257 
002003 
027130 
064676 
114206 
114211 

160034 
070204 
060034 
040364 
064700 
114206 



DLOOK NOP 

LDB DIRDL 
DLOKi STB LTEMP+4 

LDA 6,1 
S^A 

JMP DL0K3 
DL0K2 LDB LTEMP*4 
ADB t -»7 
JMP DLOKl 



DL0K3 INB 
L D * 
J3B 
JMP 
NOP 
LDA 
CMA, 
ADA 
ADA 
ST A 
LDA 
ADA 
CPA 
JMP 
LDA 
SZA, 
JMP 
LDB 
JSB 
JSB 



DLTEM 
DIrCm 
DL0K2 

LTEMP+4,1 

INA 

LIBD 

.-12 

LTEMP+5 

LTEMP*4 

.♦» 

DIRWD 

DL0K4 

DIRWD 

RSS 

DL0K6 

LlBD 

DISCZ,I 

SLVAGfl 



SET LTEMP*4 TO POINT tf 
LAST DIRECTORY TRACK 

TE8T FOR 

EMPTy TRACK 

NOT EMPTY 

BUMP BACK TO 
NEXT TRACK 



COMPARE THE FIRST 
ENTRY ON THIS TRA<;K 
TO THE DESIRED E N TRY 
NOT ON THIS TRACK 
POUND THE 

RIGHT TRACK 
SET UP INITIAL 
POINTER FOR 
TRACK SCAN 

GET DIRECTORY DISC 

ADDRESS POINTER 
IS THIS TRACK ALREADY IN CORE? 
YES 
NO « CHECK FOR ANY TRACK IN CORE 

NONE, SO JUST READ IN NEW TRACK 
YES, WRITE PREVIOUS 
TRACK OUT TO D53C 
DISC ERROR 



DLOKB LDA LtEMP*4,I SET UP DIRECTORY T^CK 

STA MWORD transfer length 

LDA LTEMP*4 SET UP POINTER TO 

ADA ,+5 DISC ADDRE3S 

LDB LIBDI 

JSB DISCZ,! READ IN DIRECTORY TRACK 
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0116 31136 114207 



JSB SICKP,I 



0110* 
0119* 

0120* 

0121* 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130* 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145* 

0146 

0147 

0148 

0149 

0150* 
0151 

0152 

0153 

0154* 

0155 

0156 

0157 

015d 
0159 



NOW SEARCH DIRECTORY FOR DESIRED ENTRY, A BINARY SEARCH IS USED, 
WITH LTEMP(14S15) USED AS POINTERS TO THE FIRST AND LAST OF ALU 
UNTESTED ENTRIES. 



31137 060676 DL0K4 LDA LIBD 

31140 070046 STA lTEMP+14 

31141 060640 LDA DLTEM 

31142 064035 LDB LTEMP+5 

31143 017203 JSB DIRCM 

31144 027147 JMP DL0K5 

31145 037073 ISZ DLoO* 

31146 127073 JMP DLOOK,I 

31147 060035 DL0K5 LDA LTEMP+5 

31150 070047 STA LTEMP+15 

31151 060046 LDA LTEMP*l4 

31152 003004 DL0K6 CMAflNA 

31153 040047 ADA LTEMP*15 

31154 001100 ARS 

31155 006400 CLB 

31156 100400 DIV f +l2 

31157 000373 

31160 100200 MPy ,*12 

31161 000373 

31162 04004£ ADA LTEMP*j4 

31163 070035 STA LtEMP+5 

31164 064640 LDB DLTEM 

31165 050046 CPA LTEMP+M 

31166 027176 JMP DL0K8 

31167 017203 JSB DIrC m 
31170 027173 , JMP DLOK7 
3U7i 027147 JMP DL0K5 

31172 127073 JMP DLOOK,I 

31173 060035 DL K7 LDA LTEmP+5 

31174 070046 STA LTEMP+14 

31175 027152 JMP DL0K6 

31176 050676 DL0K8 cPA LIBD 

31177 017203 jSB DjRCm 

31200 037073 ISZ DLoqK 

31201 000000 NOP 

31202 127073 jMPDLOOKrl 



SET POINTER TO BEGINNING OF 

DIRECTORY, 
TEST LAST ENTRY IN TRACK, 



LAST ENTRY TOO BjG*»8TART CHOP, 
TOO SMALL*«IT'S THE ONE, 
LAST ENTRY IS IT, 

SET END POINTER, 

COMPUTE DIFFERENCE BETWEEN FIRST 
ANO LAST ENTRIES, 

DIVIDE BY TWO, 
ROUND TO A 
MULTIPLE 

OF TwELvE 

GET ADDRESS OF MIDDLE ENTRY, 
3ET INyO RESULT LOCArlON, 
SETUP FOR JSB DIRCM, 
TEST FOR ONLy 2 ENTRIES LEFT, 
THERE ARE«„WEiVE GOT THE RESULT, 

TEST MIDWAY *NTRY, 

TOO SMALL w »G0 RESET LTEMP(t4), 

too big»»go reset lt|mp(t5), 
equal^,return; 

RE8ET LTEmPCH), 



IF LTEMPU4)<*LTEMP# WE KNOW 
lT»S LESS, SO WE SKIP tE ST, 
LESS THAN ENTRY, 

EQUAL TO ENTRY, 
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0161* 

0162* 

0163* 

0164* 

0165* 

0166* 

0167 

016* 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 



DIRCM 
BIT 15 
P + 
P* 

P* 

31203 
31204 
31205 
31206 
31207 
31210 
31211 
31212 
31213 
31214 
31215 
31216 
31217 
31220 
31221 
31222 
31223 
31224 

31225 
31226 

31227 



COMPARE 
IS NOT 
l: A<B 
2: A>6 
3 A»B 
000000 
073232 
060353 
073231 
077233 
163233 
001665 
003004 

167232 
005665 
040001 
002002 
027225 
037233 
037232 
037231 

027210 
037203 

002021 
037203 
127203 



S THE 4 WORD ENTRIES 
USED. IT RETURNS AS 



POINTED TO BY A AND B. 
FOLLOWS t 



DIRCM NOP 
STA 
LDA 
STA 
STB 

DIRC3 IDA 
ELA, 
CMA, 
LDB 

ELB, 
ADA 
SZA 
JMP 
ISZ 
ISZ 
ISZ 
JMP 
ISZ 
DIRC4 8SA, 
ISZ 
JMP 



DIRC2 

• -4 

DIRCt 

DIRC5 

DIRC5,I 

CLEfERA 

INA 

DIRC2, I 
CLE,ERB 
1 

DIRC4 

DIRC5 

DIRC2 

DIRC1 

DIRC3 

DIRCM 

RSS 

DIRCM 

DI«CM,I 



SET COUNTER, 

SUBTRACT WORD FROM B 
FROM WORD FROM A. 



TEST FOR EQUAL. 

NOT EQUAL-GO RETURN, 

BUMP 

POINTERS, 
TEST FOR FINISHED. 

DOUBLE ISZ FOR EQUAL. 

ONE ISZ IE A>B 
NONE IF A <B. 



0189 31230 031051 

0190 31231 000000 

0191 31232 000000 

0192 31233 000000 



DIRDL DEE DIREL 
DIRC1 BSS 1 
DIrC2 BSS 1 
DIRC5 BSS ] 
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0194* 

0195** 

0196** 

0197** 

0198* 

0199* 

0200* 

0201* 

0202* 

0203* 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 
0213 

0214 
0215 
0216 



GET MESSAGE BUFFFR 



THIS ROUTINE IS USED TO GET A MESSAGE BUFFER FOR THE DX8C 
DRIVER. THE LINK TO IT IS PASSED IN THE LINKAGE AREA* AND 
IS STORED" ON BASE PAGE BEFOrE THE SYSTEM Is STARTED UP* 
PRIOR TO THAT TImE, THE LOADER USES ITS O^N VER8lONt 



31234 000000 GMQB NOP 

31235 060304 LDA MSQCT 

31236 050364 CPA .+5 

31237 127234 JMP GMQB, I 

31240 034304 ISZ MSQcT 

31241 060306 LDA MSQP3 

31242 064306 LOB MSQP3 

31243 044426 ApB t +ME3LN 

31244 054307 CPB MSGND 

31245 064310 LDB MSGBG 

31246 074306 STB MSQP3 

31247 037234 ISZ GMQB 
31250 127234 JMP GMQB, I 



CHECK FOR MESSAGE BUFFERS ALL 

BEING USED 
NO SKIP SEZ NO BUFFER 
INCREMENT COUNT 
LOAD CURRENT POINTER 
ADVANCE POIN T ER FOR 

NfXT MESSAGE 
CHECK FOR END OF QUEUE 
IF END, START OVER 

ADVANCE TO BUFFER PRESENT RETURN 
RETURN 
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0216 

0219 

0220 

0221 

0222 

0223* 

0224* 

0225* 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237* 

0238* 

0239* 

0240* 

0241* 

0242* 

0243* 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253* 

0254* 

0255* 

0256* 

0257* 

0258* 

0259* 

0260* 

0261* 

0262* 

0263* 

0264* 

0265* 

0266* 

0267* 

0268* 
026 9 * 

0270* 
0271* 
0272* 
0273 



31701 ORG 31701B 

31701 000151 .105 OEC 105 

31702 044737 TAPEA DEF TAPER 

31703 045437 SER7A DEF SERR7 

31704 153064 L.W200 ABs ~10240-UsEr+200 

* 
* CLEAN UP for new program ** 



103100 
060361 
003000 
110255 
170255 
102100 
064726 
075575 
006400 
075573 
027743 



CLNUP 



31705 

31706 

31707 

31 7 10 

31711 

31712 

31713 

31714 

31715 

31716 

31717 
* 
** DELFTE A PrOG r AM STATEMENT 



CLF 
LDA 
CMA 
AND 
STA 

STF 
LDB 
STB 
CLB 
STb 
JMP 





cflag 

MAIN, I 
MAIN, I 


PBUFF 
SFROG 

SYMTb 
SYNTi 



SET 

PROGRAM 
MODE TO 

tUNCOMPXlED! 

insure correct 
start«of«*program setting 

INITIALIZE 
ERROR FLaG 



** 

*** 

** 



the statement referenced by the sequence ngmber in 
(b> is deleted, exit to executive. 



31720 
31721 
31722 
31723 
31724 
3172b 
31726 

31727 
31730 



060056 
015314 
124 6 1 6 
124616 
002400 
006004 
164001 
015312 
124616 



DELST 



LDA 


PBPTR 


LOAD SEARCH TERMINATION POINTER 


JSB 


FnDPS 


SEARCH FOR statement 


JMP 


ACC5A, I 


NOT 


JMP 


ACC5A,I 


FOUND 


CLA 






INB 




(B),I » STATEMENT LENGTH 


ldb 


1,1 


loa d length of old statement 


JSB 


DELPR 


DELETE 


JMP 


ACC5A,I 


STATEMENT 



******************************* 
*** *** 

** CHECK SYNTAX OF STATEMENT *** 
*** *** 

******************************* 



PBPTR POINTS TO THE LAST WORD +1 OF THE PREVIOUS PROGRAM AND 
THUS ALSO POINTS TO THE FIRST WORD OF AVAILABLE USER SPACE* 
WHErE THE NEW STATEMENT WILL BE TRANSLATED, WHEN AN ErrOr 
OCCURS UNDER 'TAPE 1 MODE, ThE USER'S TERR BlT IN ThE FIRST WORD 
OF HIS TTY TABLE IS SET AND HIS COPY OF ERRCT IS BUMPED, IF AN 
OUT-OF-STORAGE ERROR OCCURS IN »TAPE» MODE, SYMTB IS SET TO 1 
AND ALL SUBSEQUENT PROGRAM MATERUL IS REJECTED, IF UPON ENTRY 
The PRIOR PROGRAM IS NULL, ALL FLAGS AR e SeT TO NULL! IF THE 
PRIOR PROGRAM IS NOT NULL, IT IS PLACED IN tSOURCE' MODE, SYNTAX 
WILL REJECT ADDITIONAL STATEMENTS IF FEWER THAN 200 WORDS OF 
USER SPACE ARE AVAILABLE BUT W ILL ACCEPT STATEMENT DELETIONS IF 
IN 'KEY' MODE. 



31731 064056 SyNT x LDB PBPTR 



NULL 
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0274 

0275 

0276 

0277 

0276 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299* 

0300** 

0301* 

0302* 

0303* 

0304 ^ 

0305* 

0306* 

0307 

0306 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318* 

0319** 

0320* 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0326 

0329 



31732 
31733 
31734 
31735 

3*736 
31737 
31740 
31741 
31742 
31743 
31744 
31745 
31746 
31747 
31750 
31751 
31752 
31753 

*} \ T *# 4 

31755 
31756 
31757 
31760 
31761 
31762 



054726 
027705 
060360 
110255 

002003 
027743 
002400 
051574 
127702 
015462 
015322 
006400 
174056 
060056 
071572 
071616 
043701 
071615 
071470 
006004 
055573 
127703 
015446 
I246i6 
015450 



SYNT1 



CPB PBUFF 

JMP CLNUP 

LOA TERR 

AND MAIN, I 

SZA,RSS 

JMP SYNT1 

CLA 

CPA 

JMP 

J$B 

JSB 

CUB 

STB 
IDA 

8TA 
STA 
ADA 
STA 
SyA 

IN* 
CPB 
JMp 
JSB 
JMP 
JSB 



ERRCT 
TAPEA,I 
SINIT 
DCMPL 

PBPTR,! 

PBPTR 

SBPTR 

SBUFA 

,105 

SSTAK 

SyNjQ 

SYMTB 
SER7A,I 

getcr 

ACC5A,I 
BCKSP 



PROGRAM? 
YES 

no, Error 

FLAG 
SET? 
NO 
YES, ERRORS 

IMBEDDED IN CODE? 
NO, FINISH ABORTED ERROR CLEANUP 
YES, PREPARE PROGRAM 

FOR SYNTAX 
SET LINE NUMBER 

TO ZERO 
SET SYNTAX POINTER TO FIRST 

AVAILABLE wORD OF USER SPACE 
SAVE POINTER TO SyNTAX BUFFER 

AND TO 

Syntax stack 
does 'out of storagef 

ERROR EXIST? 

yEs 

no, empty record? 

YES 
NO 



Determine sequence number 



* 
** 



A RECORD C0N S IST ING on «-Y OF A S E Q uENCE NyMBER WILL CAusE T H E 
DELETION OF a PREVIOUSLY ACCEPTED STATEMENT REFERENCED BY THAT 
SEQUENCE NUMBER, 



31763 
31764 

31765 
31766 
31767 
3I770 
31771 

31772 
31773 
31774 
31775 



015464 
175572 

035572 
050374 

027720 

035572 
171572 
060056 
043704 
002021 
115033 



JSB 

STB 

IS Z 

CPA 

JMP 

ISZ 

STA 

LDA 

ADA 

SSA, 

JSB 



BLDIN 

SBpTR,I 

SBPTR 

• + 15B 

DELST 

SBPTR 

SBPTR* I 

PBPTR 

LW200 

RSS 

SERRS,I 



DETERMINE STATEMENT TYPE ** 



31776 
31777 

32000 
32001 
32002 
32003 
32004 
32005 
32006 



060366 
071402 
063735 
064326 
015246 
060552 
064346 
077447 
064362 



LDA 
STA 
LDA 
LDB 
JSB 
LDA 
LDB 
STB 
LDB 



,♦7 

MAXCR 

STTYP 

.-25 

TBSRH 

LETOP 

,»9 

MSFLG 

.♦3 



RECORD 

SEQUENCE 
NUMBER 
NULL STATEMENT? 
YES 

NO, SKIP STATEMENT LENGTH WORD 
SAVE FIRST CHARACTER 
ACCEPTABLE AMOUNT 

OF USER SPACE 
REMAINING? 
NO 



s et maximum 

SYMBoL LENGTH 
STATEMENT«TYPE NAMES 
.(NUMBER OF STATEMENT TYPES) 
FInO STATEMENT TYPE 
NO, ASSUME 'IMPLIED' LET 
DISALLOW 

MULTIPLE STORE 
SET MAXCR TO MOST 
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0330 


32007 


075402 




STB 


MAXCR 


COMMON VALUE 


0331 


32010 


006400 




CUB 




TURN OFF 


0332 


32011 


075617 




STB 


PFUG 


'PARAMETER' MODE 


0333 


32012 


101051 




LSR 


9 


RIGHT JUSTIFY OPERATOR CODE 


0334 


32013 


073453 




STA 


SFLAG 


TURN OFF STRING AND STORE MOOES 


0335 


32014 


073445 




STA 


DFLAG 


TURN ON 'SUBSCRIPT' MODE 


0336 


32015 


040752 




ADA 


STBAS 


BRANCH TO 


033/ 


32016 


124000 




JMP 


0#I 


SYNTAX ROUTINE 


0338* 














0339*** 








** 




0340** <LET StAtEMENt> SyNtAx ** 




034J*** 








** 




0342* 














0343 


32017 


060552 


LET0 


IDA 


tETOP 


FAKE 


0344 


32020 


171572 




STA 


SBPTRfl 


A 


0345 


32021 


015450 




JSB 


BCKSP 


'LET' 


0346 


32022 


065572 


LETS 


LDB 


SBPTR 


ENABLE A 


0347 


32023 


077453 




STB 


SFLAG 


STRING VARIABLE 


0348 


32024 


037447 




IS2 


MSFLG 


TURN ON 'MULTIPLE STORE' MODE 


0349 


32025 


015230 




JSB 


FSC 


ANALYZE FORMULA 


0350 


32026 


037453 




ISZ 


SFLAG 


STRING VARIABLE FOUND? 


0351 


32027 


026035 




JMP 


LETl 


NO 


0352 


32030 


015272 




JSB 


SYMCK 


YES, (B) IS LEFT AT -1 


0353 


32031 


033415 




DEF 


ASSQP-1 


DEmAnD ASSIGNMENT OPERATOR 


0354 


32032 


115036 




JSB 


SERRS+3, 


>I NOT FOUND 


0355 


32033 


015332 




JSB 


RSTOP 


RECORD A STRING OPERAND 


0356 


32034 


026037 




JMP 


EOST 


DEMAND END OF STATEMENT 


0357 


32035 


037453 


LETl 


ISZ 


SFLAG 


DID A STORE OCCUR? 


0358 


32036 


115036 




JSB 


SErrs+3, 


'I NO 


0359** 










** 


0360*** Ch^CK pOR 


End op 


STATEMENT *** 


0361** 










** 


0362 


32037 


050374 


EOST 


CPA 


• + 15B 


END OF STATEMENT? 


0363 


32040 


124620 




JMP 


accsa#i 


YES 


0364 


32041 


115037 




JSB 


SERRS+4, 


,1 NO 


0365* 














0366*** 








** 




0367** <DIM STATEMENT SYNTAX ** 




0368*** 








** 




0369* 














0370 


32042 


002400 


DIMS 


CLA 




FLAG AS DIM STATEMENT 


0371* 














0372*** 








** 




0373** <COM STATEMENT SYNjAx ** 




0374*** 








** 




0375* 














0376 


32043 


071412 


COMS 


STA 


CDFLG 


FLAG AS COM STATEMENT 


0377 


32044 


077445 




STB 


DFLAG 


TURN ON iDIM» MODE ( (B)«0 ) 


0378 


32045 


061572 




LDA 


SBPTR 


ENABLE STRING 


0379 


32046 


073453 




STA 


SFLAG 


VARIABLE 


0380 


32047 


015240 




JSB 


VAROP 


SEE K VARIABLE OPERAND 


0381 


32050 


115040 




JSB 


SERRS+5, 


,1 IMPROPER SUBSCRIPT 


0382 


32051 


026055 


COMS0 


JMP 


COMSi 


ARRAY OR STRING FOUNp 


0383 


32052 


006400 




CLB 




SIMPLE VARIABLE 


03g4 


32053 


055412 




CPB 


CDFLG 


'DIM'? 


0385 


32054 


115040 




JSB 


SERRS4.5, 


I YES«.*ERROR 
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0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393* 

0394* 

0395* 

0396* 

0397* 

0398 

0399 

0400 

0401 

0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 

0420 
0421 

0422 
0423 
4 2 4 
0425 
0426 
0427 
0428 
0429 

0430* 
0431* 

0432* 
0433* 

0434* 

0435 

0436 

0437 

0438 

0439 

0440 

0441 



32055 
32056 
32057 
32060 
32061 
32062 
32063 



050374 
124620 
007400 
015272 
033363 
115041 
026045 



COMSl 



CPA 
JMP 
CCB 
JSB 
DEF 
JSB 
JMP 



t + 15B 
ACCSA,I 

SYMCK 
COMMAS 
SERRS*6,I 
COMS+2 



NO, CARRIAGE RETURN FOLLOWS? 

YES 

NO 

COMMA? 

NO 
YES 



• * ** 

* <DEF STAtEMENt> SYNTAX ** 
** ** 



32064 
32065 
32066 
32067 

32070 
32071 
32072 
32073 
32074 
32075 
32076 
32077 
32100 
32101 
32102 
32103 
32104 

32105 
32106 
32107 
32110 
32111 
32112 
32113 

32tU 
32115 
32116 
32117 
32120 
32121 
32122 
32123 



015256 
115042 
001727 
031612 
053375 
002001 
115042 
015256 
115042 
061612 
064452 
015260 
061613 
015252 
031027 
171572 
015240 
000000 
M5043 
015254 
007400 
015272 
033415 
115036 

060355 
041572 

160000 
010504 
071617 
015230 
015270 
026037 



DEF 3 



JSB LTR 


FIRST TWO 


JSB SERRS+7,1 




ALF,ALF 


CHARACTERS 


IQR TEMp*l 




CPA FN 


'FN' ? 


RSS 


YES 


JSB SERRS*7 # T 


NO 


JSB LTR 


FOLLOWED BY A LETTER? 


JSB SERRS+7, I 


NO 


L.DA temp+i 


YES, 


LOB f 58 


RECORD 


JSB STROP 


FUNCTION 


I DA TEMP*2 


retrieve following character 


JSB LPCK 


DEMANO LEFT PARENTHESIS 


IOR FLGBT 


SET FLAG FOR 


STA SBPTR, I 


FORMAL PARAMETER 


JSB VAROP 


DEMAND A SIMPLE VARIABLE 


NOP 


NONE 


JSB SERRS*8,I 


FOUND 


JSB RPCK 


DEMAND A RIGHT PARENTHESIS 


CCB 


ASSIGNMENT 


JSB SYMCK 


OPERATOR 


DEF ASSOP*l 


NEXT? 


JSB SERRS*3,I 


NO 


LOA ,»2 


YES/ 


ADA SBPTR 


ISOLATE 


LDA 0,1 


AND SAVE 


AND B777 


FORMAL 


STA PFLAG 


PARAMETER 


JSB FSC 


FETCH DEFINING FORMULA 


JSB SBpUO 


RECORD EnD«qF*FoRmUlA OPERATOR 


JMP EOST 


DEMAND END OF STATEMENT 



** ** 

* <IMAGE STATEMfcNT> SYNTAX ** 



** 

32124 
32125 
32126 
32127 
32130 
32131 
32132 



** 



065572 
077457 
006400 
060374 
015262 

000000 
061612 



IMAGS 



LDB 


SBPTR 


SAVE CURRENT 


STB 


ARYAD 


BUFFER POINTER 


CLB 






LDA 


.*15B 


SET DELIMETER 


JSB 


ChRST 


RECORD STRING CONSTANT 


NOP 






L DA 


TEmP*1 


length 
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0442 

0443 
0444 

0445 

0446 

0447 

0448 

0449* 

0450** 

0451** 

0452** 

0453* 

0454 

0455 

0456 

0457 

0458 

0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
046g 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 

0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
04 9 6 
0497 



32133 
32134 
32135 
32136 
32137 
32140 
32141 



040321 

00202^ 
115072 
163457 
041612 
173457 
124620 



ADA M73 

SSA,RSS >72? 

J3B SERRS+31,1 YES 

LDA ARYAD,I NO, 

ADA tEMP+1 RECORD 

STA ARYAD,I LENGTH 

JMP ACCSA,i 



** 



<GOTO STATEMENT & <60SUB STATEMENT SYNTAX ** 

** 



32142 
32143 
32144 
32l4f> 
32146 

32147 
32150 
32151 
32152 
32153 
32154 
32155 
32156 
32157 
32160 
32161 
32162 
32163 

32164 
32165 
32166 
32167 
32170 
32171 
32172 
32173 
32174 
32175 
32176 
32177 
32200 
32201 
32202 
32203 
32204 
32205 
32206 
32207 

32210 
32211 
32212 

32213 
32214 

32215 



060220 
064255 
006004 
130001 
114736 

003400 
071420 
015244 
026212 
007400 
045572 
075572 
161572 
010570 
171572 
060221 
064255 
006004 
130001 
114736 
015230 
050374 
115044 
001727 
071612 
015446 
115044 
031612 
053377 
002001 
115044 
060564 
171572 
015270 
015464 
175572 
015270 
050433 
026204 
026037 
050374 
026217 
071420 
064355 



60T0S LDA 
LDB 
INB 
IOR 
JSB 

CCA 
STA 

JSB 
JMP 
CCB 

G T0l adb 
STB 

LDA 
AND 
STA 

LDA 
LDB 
INB 
IOR 
JSB 
JSB 
CPA 

JSB 

ALF, 

STA 

JSB 

JSB 

tOR 

CPA 

RSS 

JSB 

LDA- 
STA 
JSB 
G0 T 02 JSB 
STB 

JSB 
CPA 

JMP 
JMP 
G0T03 CPA 
JMP 
STA 
LDB 



SBP 
MAIN 

irl 
S14SC,I 

GF^AG 
PRGIN 
G0TQ3 

SBpTR 
SBPTR 
SBPTR#I 
OPMSK 
SBPTR, I 

RBP 
MAIN 

1,1 

3l4SC,I 

FSC 

.♦15B 

8ERRS+9,I 

ALF 

TEmP+1 

GETCR 

SERRS*9,I 

TEMP+l 

OF 

SERRS+9,1 

OFOP 

SBPTR, I 

SBPUD 

BLDIN 

SBPTR,I 

SBPUD 

,♦44 

G0T02 

EOST 

. + 15B 

G0T04 

GFLAG 



Save 

BUFFER 

POINTER 
SET INTCK MODE TO 

'EX|T ON ERROR* 
SEEK SEQUENCE NUMBER 
FOUND 
NOT FOUND 
BACK Up 

SYNTAX POINTER 
ERASE 

'INTEGER FOLLOWS* 
FLAG 
RESTORE 

BUFFER 

POINTER 
SEEK fORMULA 
END-OF-RECORDT 
YES 

NO, DO 
NEXT 
TWO 

CHARACTERS 
FORM 
tOFi ? 
YES 
NO 

RECORD 
«OF» AND 

ADVANCE POINTER 
DEMAND A SEQUENCE NUMBER 
RECORD IT 

COMMA NEXT? 

YES 

NO, DEMAND END OF STATEMENT 

END OF STATEMENT? 

YES 

NO, RE-ENABLE BAD INTEGER ERROR 
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026154 

060220 60T04 

064255 

006004 

130001 

114736 

124620 



STATtMENj> SYNTAX 



IFS 



lF0 



0496 32216 

0499 32217 

0500 32220 

0501 32221 

0502 32222 

0503 32223 

0504 32224 

0505* 
0506*** 
0507** <IF 
0506*** 
0509* 

0510 32225 

0511 32226 

0512 32227 

0513 32230 

0514 32231 

0515 32232 

0516 32233 

0517 32234 

0518 32235 

0519 32236 

0520 32237 

0521 32240 

0522 32241 

0523 32242 

0524 32243 

0525 32244 

0526 32245 

0527 32246 
0526 32247 

0529 32250 

0530 32251 

0531 32252 

0532 32253 

0533 32254 

0534 32255 

0535 32256 

0536 3 2 257 

0537 32260 
0536 32261 

0539 32262 

0540 32263 

0541 32264 

0542 32265 

0543 32266 

0544 32267 

0545 32270 

0546 32271 

0547 32272 

0548 32273 

0549 32274 
0550* 
0551*** 

0552** <FqR STATEMENT> SYNJA 
0553*** 



035572 
015446 
115072 
171572 
063451 
007400 
015246 
026240 
015502 
115073 
026265 
015450 
007400 
045572 
075572 
077453 
015230 
037453 
026265 
071612 
06*354 

171572 
063736 

015246 
002001 
026264 
061612 
064353 
015272 
033431 
115053 
015332 
171572 
035402 
060626 
007400 
015246 
115045 
015244 
026037 



IFl 



JMP GOTOl 




LDA FBP 


FREE 


LOB MAIN 




INB 


SAVED 


IOR 1,1 




JSB S14SC,I 


BUFFER SPACE 


JMP ACCSA,I 


accept statement 


*• 
TAX ** 




** 




I3Z SBPTR 


FETCH NEXT 


JSB GETCR 


CHARACTER 


JSB SERRS+31, 


,1 NONE FOUND 


STA SBPTR, I 


FOUND, SAVE IT 


LDA AENO 


LOOK 


GCB 


FOR 


JSB TB8RH 


'End* 


JMp IF0 


not Found 


JSB FILRF 


FOyND, GET FILE REFERENCE 


jSB sERRS+32, 


>i none found 


JMP IFU1 


found 


JSB BCkSP 


RESTORE 


CCB 


TO 


AOB sBpTR 


Entry 


STB SBPTR 


status 


STB SFLAG 


ENABLE STRING yARXABLE 


JSB FsC 


SEEK DECISION FOrMuLA 


ISZ SFLAG 


STRING VARIABLE FOUND? 


JMP I F i *1 


mM ^1 


STA TEMp*l 


YES, SAVE NEXT CHARACTER 


LDB .-3 


MAXCR » 3 FROM FSC 


STA SBPTR,! 


MULTICHARACTER 


LPA mcrel 


Relational 


JSB TBSRH 


OPERATOR? 


RSS 


NO 


JMP IF1 


YES 


LOA TEMP*! 


RETRIEVE CHARACTER 


LDB ,~4 


SINGLE CHARACTER 


jSB SYMCk 


RELATIONAL 


DEF RELOS*i 


OPERATOR? 


JSB SERRS+16, 


.1 NO 


JSB RSTOP 


yES, RECORD A STRING OPERAND 


STA S BP TR,I 


S AVE NEXT CHArACtEr 


I$Z MAxCr 


BUMP LIMI T T FOUR CHArACtErs 


LDA ATHEN 


LOOK 


CCB 


FOR 


JSB TBSRH 


'ThEN* 


JSB SERRS+10, 


,1 NOT FOUND 


jSB PRGIN 


DEMAND A SEQUENCE NUMBER 


JMP EOST 


DEMAND END OF STATEMENT 


** 
NTAX ** 




** 
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0554* 














0555 


32275 


015240 


FORS 


JSB 


VAROP 


SEEK A SIMPLE VARIABLE 


0556 


32276 


000000 




NOP 




NONE 


0557 


32277 


115043 




JSB 


SERRS+8, I 


FOUND 


0556 


32300 


007400 




CCB 




DEMAND AN 


0559 


32301 


015272 




JSB 


SYMCK 


ASSIGNMENT 


0560 


32302 


033415 




DEF 


ASSOP*l 


OPERATOR 


0561 


32303 


115036 




JSB 


SERRS+3,1 


NOT FOUND 


0562 


32304 


015230 




JSB 


FSC 


RECORD INITIALIZATION FORMULA 


0563 


32305 


001727 




ALF, 


,ALF 


DO 


0564 


32306 


071612 




STA 


TEMP*1 


NEXT 


0565 


32307 


015446 




JSB 


GETCR 


TWO 


0566 


32310 


115046 




JSB 


SERRS+ii, 


I CHARACTERS 


0567 


32311 


031612 




IOR 


TEMP*1 


FORM 


0566 


32312 


053376 




CPA 


TO 


t TO» ? 


0569 


32313 


002001 




RSS 




YES 


0570 


32314 


115046 




JSB 


SERRS+il, 


I NO 


0571 


32315 


063740 




LDA 


TOOP 


RECORD 


0572 


32316 


171572 




STA 


SBPTR,I 


«TO» 


0573 


32317 


015230 




JSB 


FSC 


RECORD LIMIT FORMULA 


0574 


32320 


050374 




CPA 


.♦15B 


END OF STATEMENT? 


0575 


32321 


124620 




JMP 


ACCSA,I 


YES 


0576 


32322 


171572 




STA 


SBPTR,I 


NO, IS NExT 


0577 


32323 


035402 




ISZ 


MAxCR 




0578 


32324 


063461 




LDA 


ASTEP 


SYMBOL 


0579 


32325 


007400 




CCB 






0580 


32326 


015246 




JSB 


TBSRH 


'STEP' ? 


0581 


32327 


115047 




JSB 


SERRS+i2# 


I NO 


0582 


32330 


015230 




JSB 


FSC 


YES f RECORD STEP SIZE 


0583 


32331 


026037 




JMP 


EOST 


DEMAND END OF STATEMENT 


0584* 














0585*** 








** 




0586** <NEXT STATEMENT 


SYNTAX ** 




0587*** 








** 




0588* 














0589 


32332 


015240 


NEXTS 


JSB 


VaROP 


SEEK SIMPLE V A RlABLE 


0590 


32333 


000000 




NOP 




NOT 


0591 


32334 


115043 




JSB 


SErrs+8,! 


FOUND 


0592 


32335 


026037 




JMP 


EOST 


DEMAND END OF STATEMENT 


0593* 














0594*** 










** 


0595** <RETURN STATEMENT 


>, <END STATEMENT*, ** 


0596** AND <STOP 


STATEMENT SYNTAX 


** 


0597*** 










** 


0598* 














0599 


3233g 


03 55 72 


ENDS 


ISZ 


SBPTR 


RECORD NULL OPERAND 


0600 


32337 


015446 




JSB 


GETCR 


END OF STATEMENT? 


0601 


32340 


124620 




JMP 


ACCSAfI 


YES 


0602 


32341 


115037 




JSB 


SERRS+4,1 


NO 


0603* 














0604*** 








** 




0605** <DAjA STAtEHENt> 


SYNTAX ** 




0606*** 








#* 




0607* 














0603 


32342 


A15270 


DATAS 


JSB 


8BPUD 




0609 


323 4 3 


002400 




CLA 




INITIALIZE 
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0610 


32344 


071266 




STA 


SIGN 


SIGN 


0611 


32345 


015446 




JSB 


GETCR 


REQUEST A CHARACTER 


0612 


32346 


115050 




JSB 


SERRS+13, 


I END.OF.INPUT CONDITION 


0613 


32347 


006404 




CLB, 


,INB 




0614 


32350 


050432 




CPA 


.+43 


i + i ? 


0615 


32351 


026400 




JMP 


DATA4 


YES 


0616 


32352 


007400 




CCB 




NO 


0617 


32353 


050434 




CPA 


,+45 


t«t ? 


0618 


32354 


026400 




JMP 


DATA4 


YES 


06*9 


32355 


0I5276 


DATA! 


JSB 


NUMCK 


NO, NUMBER? 


0620 


32356 


026373 




JMP 


DM 1 A** 


NO 


0621 


32357 


115051 




JSB 


SERRS+i4 f 


I BAD EXPONENT 


0622 


32360 


064354 




LDB 


f *»3 


NyMBER, 


0623 


32361 


045572 




ADB 


SBpTR 


MARK 


0624 


32362 


160001 




L DA 


1>I 


PREVIOUS 


0625 


32363 


031027 




IOR 


FLGBT 


OPERATOR AS 


0626 


32364 


170001 




STA 


1,1 


tNUMBER FOLLOWS! 


0627 


32365 


061612 




LDA 


T EMP+1 


REyRIEyE FOLLOWING CHARACTER 


0626 


32366 


007400 


DATAg 


CCB 




COMMA 


0629 


32367 


015272 




JSB 


SYMCK 




0630 


32370 


033363 




DEF 


COMMA.l 


NEXT? 


0631 


32371 


026037 




JMP 


EOST 


NO, DEMAND END OF STATEMENT 


0632 


32372 


026342 




JMP 


DATAS 


YES 


0633 


32373 


0552 66 


DATA3 


CPB 


SIGN 


SIGN FOUND? ( (B) * ) 


0634 


32374 


002001 




RSS 




NO 


0635 


32375 


115052 




JSB 


SERRS+15, 


I YES 


0636 


32376 


015334 




JSB 


GETST 


DEMAND A STRING CONSTANT 


0637 


32377 


026366 




JMP 


DATA2 




0638 


32400 


075266 


DATA 4 


STB 


SIGN 


RECORD SIGN 


0639 


32401 


015446 




JSB 


GETCR 




0640 


32402 


115052 




JSB 


SERRS+15, 


I END«OF»INPUT CONDITION 


0641 


32403 


026355 




JMP 


DATAl 




0642* 














0643*** 








** 




0644** <rE/ 


VD STATEMEN T > 


SYNTAX ** 




0645*** 








** 




0646* 














0647 


32404 


015500 


READS 


JSB 


RECRF 


READ FROM FILE? 


0648 


32405 


026413 




JMP 


READt 


NO 


0649 


32406 


050374 




CpA 


t + 15B 


YES, PSUEDo-RESTqrE? 


0650 


32407 


l246 2 




JMP 


ACCSA,I 


YES 


0651 


32410 


050454 




CPA 


B73 


NO, i|i ? 


0652 


32411 


026414 




JMP 


INPTS 


YES 


0653 


32412 


115041 




JSB 


SERRS*6,I 


NO 


0654 


32413 


015450 


REaDI 


JSB 


BCKSP 
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0656* 

0657** 

0658** 

0659** 

0660* 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671* 

0672** 

0673** 

0674** 

0675* 

06 7 6 

0677 

0678 

0679 

0680 

06 8 1 

0682 
06g3 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
Q7d7 
0708 

0709 
0710 
0711 



<INPUT STATEMENT> 



32414 
32415 

32416 
32417 
32420 
32421 



065572 
077453 

015240 

115054 

000000 
007400 



INPTS 



32422 015272 

32423 033363 

32424 026037 

32425 026414 



<PrINj stAtement> 



32426 
32427 
32430 
32431 
32432 
32433 
32434 
32435 
32436 
32437 
32440 
32441 
32442 
32443 
32444 
32445 
32446 
32447 
32450 
32451 
32452 
32453 
32454 
32455 
32456 
32457 
32460 
32461 

32462 
32463 
32464 
32465 
32466 
32467 
32470 
32471 



0152 7 
015446 
124620 
015544 

026460 
050374 
124620 
007400 
015272 
033365 
115075 

015270 
015446 
115041 
171572 
015546 
026451 
077453 
015230 
050374 
124620 
007400 
015272 
033363 
115041 
026441 
015500 
026471 
007400 
075502 
050374 
124620 
050454 
026472 
115041 
015450 



PRINS 



PRN10 



PRNH 



PRN01 



** 




SYNTAX ** 
** 




LDB SBPTR 


ENABLE STRING 


STB 3FLAG 


VARIABLE 


JSB VAROP 


SEEK VARIABLE OPERAND 


JSB SERRS+17, 


I NONE FOUND 


NOP 




CCB 




JSB SYMCK 


COMMA? 


DEF COMMA.l 




JMP EOST 


NO, DEMAND END OF STATEMENT 


JMP INPTS 


YES 


** 
S YNjAX ** 




• * 




JSB SBPUO 


ADVANCE SYNTAX BUFFER POINTER 


JSB GETCR 


FETCH NEXT CHARACTER 


JMP ACCSA,I 


none Found 


JSB USTCK 


CHECK FOR USING STATEMENT 


JMp PRN01 


NONE FOUND 


CPA f -U5B 


END OF STATEMENT? 


JMP ACCSA,I 


YES 


CCB 


NO, 


JSB SYMCK 


SEMUCOLON 


DEF SEmi»1 


follows? 


JSB SERRS*34, 


I NO 


JSB SBPUD 


ADVANCE SYNTAX BUFFER POINTER 


JSB GEtCr 


FETCH NEXT CHARACTER 


JSB SERRS+6,1 


NONE FOUND 


STa sbptr,i 


SAVE CHARACTER 


JSB PFSRH 


SEARCH FOR PRINT FUNCTION 


JMP PrNU 


FOUND 


STB SFLAG 


ENABLE STRING VARIABLE 


JSB FSC 


LOOK FOR FORMULA 


CPA ,*15B 


CARRIAGE RETURN FOLLOWS? 


JMP ACCSA,I 


YES 


CCB 


NO, 


JSB SYMCK 


COMMA? 


DEF COMMA,! 




JSB SERRS+6,1 


NO, ERROR 


JMP PRN10 


YES 


J S B rECrF 


WRITE ONTO FILE? 


JMP PRIN0^1 


NO 


CCB 


YES, SET 


ST8 FILRF 


♦FILE' FLAG 


CpA ,+15B 


NULL WRITE? 


JMP ACCSAfI 


YES 


CPA B73 


NO, ■;« ? 


JMP PRIN3 


YES 


JSB SERRS+6,1 


NO 


jSB BCKSP 
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0712 


32472 


015270 


PRIN0 


JSB 


S6PUD 


ADVANCE SYNTAX BUFFER POINTER 


0713 


32473 


015446 




JSB 


GETCR 


MORE STATEMENT? 


0714 


32474 


026552 




JMP 


PRIN7 


NO 


0715 


32475 


007400 




CCB 




YES, ENABLE 


0716 


32476 


075617 




STB 


pFLAG 


Formula and tab 


0717 


32477 


050421 




CPA 


• ♦42B 


" 7 


0718 


32500 


002001 




RSS 




yes 


0719 


32501 


026520 




JMP 


PRIN3 


NO 


0720 


32502 


015334 


PRlNi 


JSB 


GETST 


RECORD A STRING CONSTANT 


0721 


32503 


050374 




CPA 


.♦15B 


END OF STATEMENT? 


0722 


32504 


124620 




JMP 


nvvwn|i * 


YES 


0723 


32505 


007400 




CCB 




NO 


0724 


32506 


075617 




STB 


PFLAG 




0725 


32507 


050421 


PRIN2 


CPA 


,+42B 


it j 


0726 


32510 


026502 




JMP 


PRINl 


YES 


0727 


32511 


064355 




LOB 


#•2 


NO 


0728 


32512 


015272 




JSB 


SYMCK 


COMMA OR 


0729 


32513 


033363 




DEF 


COMMA.i 


SEMICOLON? 


0730 


325I4 


006401 




CLB, 


.RSS 


NO 


0731 


32515 


026472 




JMP 


PRIN0 


YES 


0732 


32 5 1 6 


175572 




STB 


SBPTR,I 


ZERO NEXT WORD 


0733 


32517 


015270 




JSB 


SBPUO 




0734 


32520 


035617 


PRIN3 


ISZ 


PFLAG 


FORMULA OR TAB PERMITTED? 


0735 


32521 


115041 




JSB 


SERRS*6,I 


NO 


0736 


32522 


171572 




STA 


SBPTR,I 


YES 


0737 


32523 


007400 




CCB 




■FILE» 


0738 


32524 


035502 




ISZ 


FILRF 


MODE? 


0739 


32525 


026536 




Jmp 


PRIN4 


NO 


0740 


32526 


075502 




STB 


F XLRF 


yes, set flag again 


0741 


32527 


063451 




LDA 


AEND 




0742 


32530 


015246 




JSB 


TBSRH 


•END 1 ? 


0743 


32531 


02^541 




JMP 


PRIN5 


NO 


0744 


32532 


015270 




JSB 


SBPUO 


yes 


0745 


32533 


015446 




JSB 


GETCR 


FETCH NEXT 


0746 


32534 


124620 




JMP 


ACCSA, I 


CHARACTER 


0747 


32535 


026507 




JMP 


PRIN2 




0748 


32536 


015546 


PRIM 


JSB 


pFSRH 


SEARCH FoR PRInT FUNCTION 


0749 


32537 


026547 




JMP 


PRIN6 


FOUND 


0750 


32540 


026545 




JMP 


PRIN8 


NOT FOUND 


0751 


32541 


015450 


PRIN5 


JSB 


BCKSP 


BACKUP 


0752 


32542 


007400 




CCB 




TO POINT 


0753 


32543 


045572 




ADB 


SBPTR 


FOLLOWING 


0754 


32544 


075572 




StB 


SBPyR 


LASt OPERATOR 


0755 


32545 


077453 


PRIN8 


STB 


SFLAG 


ENABLE STRING VARIABLE 


0756 


32546 


015230 




JSB 


FSC 


RECORD FORMULA 


0757 


32547 


050374 


PRIN6 


CPA 


. + 15B 


END OF STATEMENT? 


0758 


32550 


124620 




JMP 


ACCSA, I 


YES 


0759 


32551 


026507 




JMP 


PRIN2 


NO 


0760 


32552 


035502 


PRIN7 


ISZ 


FlLRF 


'FIlE* MODE? 


0761 


32553 


124 6 20 




JMP 


ACCSA#I 


NO 


0762 


32554 


115035 




JSB 


SERRS+2,1 


YES 


0763* 
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0002* 












0003*** 






• * 




0004** <mA1 


t STATtMENT> SYNTAX ** 




0005*** 






** 




0006* 












0007 


32555 


015256 


MATS JSB 


LTR 


FIRST TWO 


0008 


32556 


115055 


JSB 


SERRS+18, 


I CHARACTERS 


0009 


32557 


015266 


JSB 


LETCK 


LETTERS? 


0010 


32560 


026677 


JMP 


MATS3 


NO 


0011 


32561 


035572 


ISZ 


SBPTR 


YES, 


0012 


32562 


001727 


ALP* 


>ALF 


RETRIEVE 


0013 


32563 


031612 


IOR 


TEMP+1 


FIRST^CHARACTER 


0014 


32564 


171572 


STA 


SBPTR, I 


LOOK 


0015 


32565 


060364 


LDA 


.♦5 


FOR 


0016 


32566 


071402 


STA 


MAXCR 


'INPUTS 


0017 


32567 


063443 


LDA 


MATIO 


tREADt, 


0018 


32570 


064354 


LOB 


f -3 


OR 


001g 


32571 


015246 


JSB 


TBSRH 


'PRINT* 


0020 


32572 


115055 


JSB 


SERRS+18, 


I NONE FOUND 


0021 


32573 


050574 


CPA 


PRTOP 


IS IT fPRINT»? 


0022 


32574 


026621 


JMP 


MATS2 


YES 


0023 


32575 


053741 


CPA 


INPOP 


NO, 'INPUT* ? 


0024 


3257 6 


026605 


JMP 


MATS1-2 


YES 


0025 


32577 


015500 


JSB 


RECRF 


NO, READ FROM FILE? 


0026 


32600 


026604 


JMP 


MATS1-3 


NO 


0027 


32601 


050454 


CPA 


B73 


YES, *,« ? 


0028 


32602 


02660b 


JMP 


MATSU2 


YES 


0029 


32603 


115041 


JSB 


SERRS+6,i 


NO 


0030 


32604 


015450 


JSB 


BCKSP 




0031 


32605 


002404 


CIA, 


rINA 


TURN ON 


0032 


32606 


073445 


STA 


DFtA G 


'MATRIX SUBSCRIPT' MODE 


0033 


32607 


015242 


MATS1 JSB 


ARRID 


RECORD AN ARRAY 


0034 


32 6 10 


015*32 


JSB 


SBSCK 


RECORD SUBSCRIPT 


0035 


326H 


000000 


NOP 




IF PRESENT 


0036 


32612 


050374 


CPA 


. + 15B 


END OF STATEMENT? 


0037 


32613 


124620 


JMP 


ACCSA'I 


YES 


0038 


32614 


m7Am 


CCB 




NO, DEMAND 


0039 


32615 


015272 


JSB 


SYMCK 


COMMA 


0040 


32616 


033363 


DEF 


COMMA*! 




0041 


32617 


115041 


JS8 


SERRS+6,1 


NOT FOUND 


0042 


32620 


026607 


JMp 


MATS! 




0043 


32621 


015270 


MATS2 JSB 


SBpUD 


ADVANCE SYNTAX BUFFER ppINTER 


0044 


32622 


015446 


JSB 


getcr 


pEtch next Character 


0045 


32623 


115041 


JSB 


SERRS+6,1 


NONE FOUND 


0046 


32624 


015544 


JSB 


USTCK 


CHECK FOR USING STATEMENT 


0047 


32625 


026652 


JMP 


MAT13 


NONE FOUND 


0048 


32626 


050374 


CPA 


, + 15B 


CARRIAGE RETURN ? 


0049 


32627 


124620 


JMP 


ACCSA,! 


YES 


0050 


32630 


007400 


CCB 




SEMI- 


0051 


32631 


015272 


JSB 


SYMCK 


COLON 


0052 


3263? 


033365 


DEF 


SEMI*i 


follows? 


0053 


32633 


115075 


JSB 


SERRS+34, 


1 NO 


0054 


32634 


015270 


MATi£ JSB 


SBPUD 


ADVANCE SYNTAX BUFFER POINTER 


0055 


32635 


015446 


JSB 


GETCR 


FETCH NEXT CHARACTER 


0056 


32636 


115041 


JSB 


SERRS+6, 1 


NONE FOUND 


0057 


32637 


171572 


STA 


SBPTR, I 


save Character 
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0058 


32640 


015546 


JSB 


PFSRH 


SEARCH FOR PRINT FUNCTION 


0059 


32641 


002001 


RSS 




FOUND 


0060 


32642 


015242 


JSB 


ARRID 


RECORD AN ARRAY 


0061 


32643 


050374 


CPA 


.4.158 


CARRIAGE RETURN FOLLOWS? 


0062 


32644 


124620 


JMP 


ACC8A,I 


YES 


0063 


32645 


007400 


CCB 




NO, 


0064 


32646 


015272 


JSB 


SYMCK 


COMMA? 


0065 


32647 


033363 


DEF 


COMMA. 1 




0066 


32650 


115041 


JSB 


SERRS+6, I 


NO, ERROR 


0067 


32651 


026634 


JMp 


MAJ12 


YES 


0068 


32652 


to * CCian 


fc* A W» * *> m J* ft 

n* 1 10 joo 


RECRF 


WRITE ON FILE? 


0069 


32653 


026671 


JMP 


MATH 


NO 


0070 


32654 


050454 


CPA 


B73 


YES, »|« ? 


0071 


32655 


007401 


CCB, 


rRSS 


yes 


0072 


32656 


115041 


JSB 


SERRS+6, I 


NO 


0073 


32657 


075502 


STB 


FILRF 


NOTE 'FILE' MODE 


0074 


32g60 


015242 


MAT10 JSB 


ARR ID 


RECORD AN ARRAY 


0075 


32661 


050374 


CPA 


.♦15B 


END OF STATEMENT? 


0076 


32662 


124620 


JMP 


ACCSA#I 


YES 


m77 


32663 


064355 


LDB 


,«»2 


NO, DEMAND 


0078 


32664 


015272 


JSB 


SYMCK 


COMMA OR 


0079 


32665 


033363 


DEF 


COMMA. 1 


SEMICOLON 


0080 


32666 


115041 


JSB 


SERR8+6,i 


NOT FOUND 


0081 


32667 


015446 


JSB 


GETCR 


END qF STATEMENT? 


0062 


32670 


026673 


JMP 


*+3 


YES 


0083 


32671 


015450 


MATH JSB 


BCKSP 


NO 


0084 


32672 


026660 


JMP 


MAT10 




0085 


32673 


015270 


JSB 


SBPUO 


UPDATE POINTER 


0086 


32674 


035502 


ISZ 


F ILRF 


'FILE 1 MODE? 


0087 


32675 


124620 


JMP 


ACCSA,I 


NO . 


0088 


32676 


115035 


JSB 


SERRS+2,i 


YES 


0089 


32677 


065572 


MATS3 LDB 


sbptr 


SAVE ADDRESS 


0090 


32700 


%11A*>7 


STB 


ARYAD 


OF ARRAY OPERAND 


0091 


32701 


061612 


LDA 


TEMP+1 


RECORD 


0092 


32702 


171615 


STA 


SSTAK,I 


AND SAVE 


0093 


32703 


064435 


LDB 


,♦46 


THE ARRAY 


0094 


32704 


015260 


JSB 


STROP 


IDENTIFIER 


0095 


32705 


061613 


LDA 


TEMp+2 


RETRIEVE 


0096 


32706 


007400 


CCB 




NEXT CHARACTER 


0097 


32707 


015272 


JSB 


SYMCK 


AND TEST FOR 


0098 


32710 


033415 


DEF 


ASSOP.l 


ASSIGNMENT OPERATOR 


0099 


32711 


115036 


JSB 


SERRS+3,i 


not found 


0100 


32712 


015256 


JSB 


LTR 


LETTER NEXT? 


0101 


32713 


026763 


JMP 


MATS5 


NO 


0102 


32 7 14 


015266 


JSB 


LETCK 


YES, ANOTHER LETTER? 


0103 


32715 


026773 


JMP 


MATS6 


NO 


0104 


32716 


035572 


ISZ 


SBPTR 


YES, 


0105 


32717 


001727 


ALF, 


,ALF 


CONCATENATE 


0106 


32720 


031612 


IOR 


temp+i 


LETTERS 


0107 


32721 


171572 


STA 


SBpTR,I 


and 


0106 


32722 


063442 


LDA 


MATFN 


SEARCH FOR 


0109 


32723 


064352 


LD9 


,.5 


AN ARRAY 


0110 


32724 


015246 


JSB 


TBSRH 


FUNCTION 


0111 


32725 


115042 


JSB 


SERR3+7,I 


NONE FOUND 


0112 


32726 


001727 


ALF, 


-ALF 


FOUND, 


0113 


32727 


001723 


ALF, 


,RAR 


CONVERT 
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0114 


32730 


030572 


10R 


PDFFL 


TO OPERAND 


0115 


32731 


007400 


CCB 




COMBINE 


0116 


32732 


045572 


AOB 


SBPTR 


WITH 


0117 


32733 


130001 


IOR 


1,1 


OPERATOR 


0118 


32734 


170001 


sta 


1,1 


AND RECORD 


0119 


32735 


010504 


AND 


B777 


«INV» 


0120 


32736 


043744 


ADA 


D577 


OR 


0121 


32737 


002021 


S3A, 


,RSS 


'TRN* ? 


0122 


32740 


026750 


JMP 


MATS4 


YES 


0123 


32741 


015446 


JSB 


GETCR 


NO, END OF STATEMENT? 


0124 


-t r\ *» A r\ 


124620 


JMP 


Arrs A T 

« \f *r %f ri f JL 


YES 


0125 


32743 


006404 


CLBi 


rINB 


NO, TURN ON 


0126 


32744 


077445 


STB 


DFlAG 


'MATRIX SUBSCRIPT* MODE 


0127 


32745 


015232 


JSB 


SBSCK 


DEMAND SUBSCRIPT 


012B 


32746 


115040 


JSB 


SERRS+5,1 


: NONE FOUND 


0129 


32747 


026037 


JMp 


EOST 


DEMAND END OF STATEMENT 


0130 


32750 


002003 


MATS4 SZAi 


,RSS 


ALLOW INVERSION 


0131 


32751 


171615 


STA 


SSTAK,I 


INTO SELF 


0132 


32752 


015446 


JSB 


GETCR 


DEMAND 


0133 


32753 


115061 


JSB 


SERRS+22, 


I L^T 


0134 


32754 


015252 


JSB 


LPCK 


PARENTHESIS 


0135 


32 7 55 


015242 


JSB 


ARRID 


DEMAND ARRAY 


0136 


32756 


015254 


JSB 


RPCK 


DEMAND RIGHT PARENTHESIS 


0137 


32757 


065612 


LOB 


temp+i 


SAME SOURCE AND 


0138 


32760 


155615 


CPB 


sstak,i 


DESTINATION ArrAYS? 


0139 


32761 


115056 


JSB 


SERRS+19, 


I YeS 


0140 


32762 


026037 


JMp 


Host 


MO, DEMAND E N D o^ STATME N T 


0141 


32763 


015450 


MATS5 JSB 


BCKSP 


BACK UP AND 


0142 


32764 


015250 


JSB 


GETPF 


DEMAND PARENTHESIZED FORMULA 


0143 


32765 


007400 


CCB 




SEEK 


0144 


32766 


015272 


JSB 


SYMCK 




0145 


32767 


033423 


DEF 


TIMES-l 


1*1 


0146 


32770 


115057 


JSB 


SERRS+20, 


I NOT FOUND 


0147 


32771 


015242 


JSB 


ARRID 


DEMAND ARRAY 


0148 


32772 


026037 


Jmp 


EOST 


DEMAND END qF STATEMENT 


0149 


32773 


061612 


MATS6 LDA 


TEMP+i 


RECORD 


0150 


32774 


064435 


LDB 


f+ 46 


ARRAY 


0151 


32775 


015260 


JSB 


STROP 


OPERAND 


0152 


32776 


061613 


LDA 


TEMp+2 


END OF 


0153 


32777 


050374 


CPA 


.♦15B 


STATEMENT? 


0154 


33000 


124620 


JMP 


ACCSA,! 


YES 


0155 


33001 


064354 


LDB 


a «»3 


NO, SEEK 


0156 


33002 


015272 


JSB 


SYMCK 


♦a 1 '•' 


0157 


33003 


033417 


DEp 


PLUS*1 


OR '*' 


0158 


33004 


115060 


JSB 


SERRS+21, 


I NOT FOUND 


0159 


33005 


006400 


CLB 




SET i*f FLAG TO FALSE 


0160 


33006 


050560 


CPA 


MULOP 


»*■ ? 


0161 


33007 


027022 


JMp 


MATS9 


YES 


0162 


33010 


075617 


MATS7 STB 


pFLAG 


NO 


0163 


33011 


015242 


JSB 


ARRID 


DEMAND ARRAY 


0164 


33012 


071613 


STA 


TEMP+2 


SAVE CHARACTER 


0165 


33013 


035617 


ISZ 


pF^AG 


1*1 1 


0166 


33014 


027020 


JMP 


MATS8 


NO 


0167 


33015 


061612 


LDA 


YEMP*1 


YES* DOES ARRAY 


0168 


33016 


151615 


CPA 


SSTAK,I 


MATCH LEFT*HAND SIDE? 


0169 


33017 


115056 


JSB 


SERRS+19, 


I YES 
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0170 


33020 


061613 


0171 


33021 


026037 


0172 


33022 


007400 


0173 


33023 


061612 


0174 


33024 


l5l6lS 


0175 


33025 


116056 


0176 


33026 


027010 



MATS8 LDA TEMP+2 NO, RETRIEVE CHARACTER 

JMP EOST DEMAND END OF STATEMENT 

MATS9 CCB SET '*« FtAG TO TRUE 

LDA TEMP+1 DOES ARRAY 

CPA SSTAK,I MATCH LEFT-HAND SIDE? 

JSB SERRS+19,1 

JMP MATS7 NO 
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0178* 
0179* 
0180* 
0181* 
0182* 
0183* 
0184* 

0185* 
0186* 
0187* 

0188* 

0189* 

0190* 

0191* 

0192* 

0193* 

0194* 

019S* 

0196* 

01 9 7* 

0198* 

0199 

0200 

0201 

0202 

0203 

0204 

"0205* 

0206* 

0207* 

0208 

0209 

0210 
0211 
0212 

0213* 
0214* 
0215* 

0216* 

0217 

0218 

0219 

0220 

0221 

0222 

0223* 

0224* 

0225* 

0226* 

0227 

0228 

0229 

0230 

0231 

0232 

0233 



** ** 

* <FORMuLA> SYNTAX CHECKER ** 

• * ** 



FSC ANALYZES THE INPUT STRING UNDER THE ASSUMPTION 
THAT A LEGITIMATE FORMULA IS THERE. EXIT TO ERROR ON 
UNRECOGNIZABLE qR qBVIqUSLY INCqRRECT INpUT. EXIT To 
(P*l) WHEN CONTINUED INPUT CANNOT BE A PART OF THE 
FORMULA AND THE INPUT SCANNED SO FAR FORMS A COMPLETE 
FORMULA IN ITSELF (I.E,# • •• A+B TO fff EXITS AFTER 
THE «B«), ON EXIT (A) HOLDS THE FIRST CHARACTER NOT 
PARSED INTO THE FORMULA, (B) « 0, AND SBPTR,! m 
(END-OF.FORMULA OPERATOR), DURING THE FORMULA PARSE, 
SSTAK,I HOLDS THE COUNT OF UNMATCHED LEFT PARENTHESES. 
IF THE FIrST SYMBOL ENCOUNTERED I S A STRING VARIABLE, 
EXIT TO ERROR IF IT IS NOT ENABLED ELSE RECORD THE 
VARIABLE AND ANY FOLLOWING SUBSCRIPT AND EXIT TO (P*l) 
WITH THE NEXT CHARACTER IN (A), (B) • <*1, AND SFLAG ■ •!, 



33027 002400 #FSC CLA 

33030 171615 STA SSTAK,I 

33031 060362 LDA .O 

33032 071402 STA MaXCR 

33033 003400 FSC1 CCA 

33034 073455 STA UFLAG 

* - 

* look for am operand ** 

* 

33035 015240 FSC2 JSB VAROP 

33036 027142 JMP FSC7 

33037 027242 JMP FSC13-3 

33040 015266 JSB LETCK 

33041 027245 JMP FSC13 



SET LEFT PARENTHESIS 

COUNT TO ZERO 
SET MULTICHARACTER SEARCH 

TO MAXIMUM OF 3 CHARACTERS 
ENABLE 

UNARY OPERATORS 



SEEK VARIABLE OPERAND 

FIRST CHARACTER NOT A LETTER 

SUBSCRIPTED OR STRING VARIABLE 

SIMPLE VARIABLE, LETTER NEXT? 

NO 



DOES 'AnD», »OR', 'MAX', OR •MIN' FOLLOW 



A SIMPLE VARIABLE? 



* 
** 
** 

* 



33042 
33043 
33044 
33045 
33046 
33047 



064353 
171572 
060720 
015246 
002001 
027137 



LOB 
STA 
LDA 
JSB 
RSS 
JMP 



SBPTR, I 

MCBOP 

TB8RH 

FSC6 



SEE IF OpERAND Is A FUNCTION rA 
THAN A SIMPLE VARIABLE, 



33050 
33051 
33052 
33053 
33054 
33055 
33056 



06i6i3 
001727 
031612 
053375 

027104 
171572 

060730 



LDA TEMP+2 
ALF,ALF 
IOR TEMP+i 
CPA FN 
JMP FSC4 
STA SBPTR, I 

LD* pdfns 



SEARCH FOR 
'AND', *OR', 

»MAX», AND »MJN» 
NONE FOUND 
FOyND 

* 

THER ** 

** 



WERE 

TWO LETTERS 
• FN! ? 
YES 
NO, 

PREDEFINES 
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0234 


33057 


064340 




LDB 


t «"15 






0235 


33060 


015246 




JSB 


TBSRH 






0236 


33061 


027202 




JMP 


FSC11 


NO 




0237 


33062 


001727 




ALF, 


,ALF 


YES, 




0238 


33063 


001723 




ALFi 


rRAR 


BUILD 




0239 


33064 


030572 




IOR 


PDFFL 


NAME 




0240 


33065 


071612 


FSC3 


STA 


TEMP+1 


SAVE FUNCTION 




0241 


33066 


007400 




CCB 




RETRIEVE 




0242 


33067 


045572 




AOB 


SBPTR 


PREVIOUS 




0243 


33070 


075572 




STB 


SBPTR 


OPERATOR- 




0244 


11rt7 4 


160801 




LDA 


1,1 


OPERAND 




0245 


33072 


010570 




AND 


OPMSK 


REPLACE 




0246 


33073 


031612 




IOR 


TEMP+1 


OPERAND 




0247 


33074 


171572 




STA 


SBpTR,! 


with function 




0246 


33075 


061612 




LD A 


TEMP+1 






0249 


33076 


053737 




CPA 


LENCN 


'LENi ? 




0250 


33077 


027114 




JMP 


FSC0 


YES 




0251 


33100 


064346 




LDB 


,•9 


NO, TURN OFF 




0252 


33101 


%17AA1 




STB 


msflg 


'MULTIPLE STORE* MODE 




0253 


33102 


015250 




JSB 


GETPF 


DEMAND PARENTHSIZED 




0254 


33103 


027245 




JMP 


FSC13 


FORMULA 




0255 


33104 


015446 


FSC4 


JSB 


GETCR 


DOES 




0256 


33105 


115042 




JSB 


8ERRS+7,i 


LETTER 




0257 


33106 


015266 




JSB 


LETCK 


FOLLOW? 




0258 


33107 


115042 




JSB 


SERRS + 7,I 


NO 




0259 


33H0 


040320 




ADA 


D100 


YES, 




0260 


33111 


001700 




ALF 




BUILD 




0261 


33112 


040376 




ADA 


, + !7B 


FUNCTION 




0262 


33113 


027065 




JMP 


FSC3 


NAME 




0263 


33114 


035572 


FSC0 


IS2 


SBPTR 


MOVE TO CORRECT PROGRAM 


WORD 


0264 


33115 


015446 




JSB 


GE T Cr 


rECOrD 




0265 


33116 


115061 




JSB 


SERRS+22, 


I LEFT 




02 6 6 


33U 7 


015252 




JSB 


LPCK 


PARENTHESIS 




0267 


33120 


015256 




JSB 


LTR 


LETTER NEXT? 




0268 


33121 


115063 




JSB 


SERRS+24, 


I NO 




0269 


33122 


050423 




CPA 


• +44B 


YES, FOLLOWED BY »$« ? 




0270 


33123 


002001 




*SS 




YES 




0271 


33124 


115063 




JSB 


SERRS+24, 


I NO 




0272 


33125 


061612 




LDA 


TEMp+1 


record 




0273 


3312 6 


064432 




LDB 


,+53B 


STRING 




0274 


33127 


015260 




JSB 


STROP 


VARIABLE 




0275 


33130 


015446 




JSB 


GETCR 


RECORD 




0276 


33131 


115062 




JSB 


SERRS+23, 


I RIGHT 




0277 


33132 


015254 




JSB 


RPCK 


PARENTHESIS 




0278 


33133 


027162 




JMP 


FSC8 






0279* 










* 






0280** CHFCK FOR LEF T PA 


RENjHESIS ** 






0281* 










* 






0282 


33134 


060556 


FSC5 


LDA 


LPOP 


RECORD 




0283 


33135 


171572 




STA 


SBpTR?I 


A 1 (i 




0284 


33136 


135615 




ISZ 


SSTAK,I 


COUNT IT 




0285 


33137 


064346 


FSC6 


LDB 


.-9 


TURN OFF 




0286 


33140 


077447 




STB 


MSFLG 


'MULTIPLE STORE 1 




0287 


33141 


027033 




JMP 


FSC1 


MODE 




0288 


3314? 


015270 


FSC7 


JSB 


SBpUD 


UPDATE POINTER 




0289 


33143 


050427 




CPA 


.*4fc 


»(* ? 
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0290 


33144 


027134 




JMP 


FSC5 


YES 


0291 


33145 


053745 




CPA 


B133 


NO, 1 ti ? 


0292 


33146 


027134 




JMP 


FSC5 


YES 


0293* 








* 




0294#* CHECK FqR A 


NUMBER ** 




0295* 








i 


t 




0296 


33U7 


006400 




CLB 




SET »♦« 


0297 


33150 


075266 




STB 


SIGN 


AS SIGN 


0298 


33151 


015276 




JSB 


NUMCK 


SEEK A NUMBER 


0299 


33152 


027165 




JMP 


FSC9 


NOT FOyND 


0300 


33153 


115051 




JSB 


S£RR3*14, 


I BAD EXPONENT 


0301 


33154 


065572 




LDB 


SBpTR 


RETRIEVE 


0302 


33155 


044354 




AOB 


• w 3 


PRECEDING 


0303 


33156 


160001 




IDA 


1,1 


OPERATOR 


0304 


33157 


031027 




IOR 


FLGBT 


SET FLAG TO SAY 


0305 


33160 


170001 




STA 


1,1 


NUMBER FOLLOWS 


0306 


Ow In 1 


06l6l 2 




LOA 


TEMP+1 


RETRIEVE CHARACTER 


0307 


33162 


064346 


FSC8 


LDB 


,*9 


TURN OFF 


0308 


33163 


$77447 




STB 


MSFLG 


» MULTIPLE STORE* 


030g 


33164 


027245 




JMP 


FSC13 


MODE 


0310* 










* 




0311** CHECK FOR A 


UNARY 


OPERATOR ** 




0312* 










* 




0313 


33165 


037455 


FSC9 


ISZ 


uflag 


UNARY OPERATORS PERMITTED? 


0314 


33166 


115064 




JSB 


SERRS+25, 


I NO 


0315 


33167 


067372 




L DB 


UNMNC 


YES LOAD UNARY MINUS OPCODE 


0316 


33170 


050432 




CPA 


.+43 


»♦» ? 


0317 


33171 


027175 




JMP 


* + 4 


YES 


031a 


33172 


050434 




CPA 


,*45 


HQ 9 '«*' ? 


0319 


33173 


027176 




JMP 


*+3 


YES 


0320 


33174 


115064 




JSB 


SERRS*25, 


I NO 


0321 


33175 


067373 




LDB 


UNPLC 


CONVERT (B) TO UNARY '♦» OPCODE 


0322 


33176 


175572 




STB 


sbptR,i 


RECORD UNARY OPERATOR 


0323 


33177 


064346 


FSC10 


LDB 


,-9 


TURN OFF 


0324 


33200 


Q77447 




STB 


MSFLG 


«MULTlPtE STORE* 


0325 


33201 


027035 




JMP 


FSC2 


MODE 


0326* 












* 


0327** ChECk POSSl 


BILITY 


OF 1 


'NOT 1 RATHER THAN ** 


0328** A 


SIMPLE 


VARIABLE 




** 


0329* 












* 


0330 


33202 


037455 


FS C H 


ISZ 


UFLAG 


'NOT' PERMITTED? 


0331 


33203 


027276 




JMP 


FSC14-1 


NO 


0332 


33204 


161572 




LDA 


SBpTR,I 


YES 


0333 


33205 


001727 




ALF, 


-ALF 




0334 


33206 


171572 




STA 


SBPTR,! 




0335 


33207 


060622 




LDA 


ANOT 


SEEK 


0336 


33210 


007400 




CCB 






0337 


33211 


015246 




JSB 


TBSRH 


'NOT' 


0338 


33212 


027276 




JMP 


F3C14-1 


'NOT' NOT FOUND 


0339 


33213 


171572 




STA 


SBPTR#I 


FOUND 


0340 


33214 


m74m 




CCB 




erase 


0341 


33215 


045572 




ADB 


SBPTR 




0342 


33216 


160001 




LDA 


1,1 


SPURIOUS 


0343 


33217 


010570 




AND 


OPMSK 




03*4 


33220 


170001 




STA 


1,1 


OPERAND 


0345 


33221 


027177 




JMP 


FSC10 





PAGE 0049 #04 FORMULA SYNTAX CHECKER 



0345* 








* 




0347** CHECK F R RIGHT PARENTHESIS ** 




0348* 








* 




0349 


33222 


064355 


FSC12 LOB 


t -2 


»)• 


0350 


33223 


015272 


JSB 


SYMCK 


OR 


0351 


33224 


033377 


!)EF 


RPARN-1 


i) 1 ? 


0352 


33225 


027277 


JMP 


FSC14 


NO 


0353 


33226 


060600 


I. DA 


RPOP 


YES, 


0354 


33227 


171572 


STA 


S8PTR,I 


RECORD »)' 


0355 


33230 


060430 


LDA 


. + 41 


RETRIEVE «)« 


0356 


33231 


007400 


CCB 




MATCHING 


0357 


33232 


145615 


ADB 


SSTAK,1 


LEFT 


0358 


33233 


006020 


SSB 




PARENTHESIS? 


0359 


33234 


027277 


JMP 


FSC14 


NO 


0360 


33235 


175615 


8TB 


SSTAK,I 


YES 


0361 


33236 


015270 


JSB 


SBPUD 


UPDATE POINTER 


0362 


33237 


015446 


J3B 


GETCR 


FETCH N EXT 


0363 


33240 


027277 


JMP 


FSC14 


CHARACTER 


0364 


33241 


027245 


JMP 


FSC13 




0365* 








* 




0366** ChECk FOR A 


binary operator ** 




0367* 








* 




0368 


33242 


007400 


CCB 




STRING VARjAB^E 


0369 


33243 


057453 


CPB 


SFLAG 


JUST FOUND? 


0370 


33244 


125230 


JMP 


FSC,I 


YES 


0371 


33245 


050374 


FScU CPA 


• + 15B 


NO, END OF STATEMENT? 


0372 


33246 


027277 


JMP 


FSC14 


YES 


0373 


33247 


073455 


STA 


UFLAG 


NO, DISABLE UNARy OPERA 


0374 


33250 


071612 


v5 5 A 


TF.MP*l 


SAVE CHARACTER 


0375 


33251 


064350 


LDB 


t *7 


SEARCH 


0376 


3325? 


171572 


STA 


SBPTR,I 


FOR A 


0377 


33253 


060720 


LDA 


MCBOP 


MULTICHARACTER 


0378 


33254 


015246 


JSB 


TBSRH 


BINARY OPERATOR 


0379 


33255 


002001 


RSS 




NONE FOUND 


0380 


33256 


027137 


JMP 


FSC6 


FOUND 


0381 


33257 


061612 


LOA 


TEMP+i 


NO, RECOVER A CHARACTER 


0382 


33260 


067447 


LDB 


MSFLG 


SINGLE 


0383 


33261 


015272 


JSB 


SYMCK 


Character 


0384 


33262 


033417 


DEF 


PLUS.l 


BINARY OPERATOR? 


0385 


33263 


027267 


JMP 


* + 4 


NO 


0386 


33264 


053742 


CPA 


EXPOP 


YES, «t» ? 


0387 


33265 


027177 


JMP 


FsCl0 


YEs 


0388 


33266 


027137 


JMP 


FSC6 


NO 


0389 


33267 


007400 


CCB 




ASSIGNMENT 


0390 


33270 


015272 


JSB 


SYMcK 




0391 


33271 


033415 


DEF 


ASSOP-1 


OPERATOR? 


0392 


33272 


027222 


JMP 


FSC12 


NO 


0393 


33273 


060355 


LDA 


.-2 


YES, SET FLAG 


0394 


33274 


073453 


STA 


SFLAG 


TO SAY 


0395 


33275 


027033 


JMP 


FSC1 


STORE OCCURRED 



PAGE 


0050 «04 FORMULA SYnTA) 


(■ CHECKER 




0397* 








* 






0398** END 


OF FORMULA ** 






0399* 






1 


* 






0400 


33276 


061613 




LDA 


TEMP+2 


RETRIEVE CHARACTER 


0401 


33277 


006400 


FSC 14 


C L B 




RECORD 


0402 


33300 


175572 




STB 


sbptr/i 


end*of»formula 


0403 


33301 


155615 




CPB 


SSTAK, I 


ALL LEFT PARENTHESES MATCHED? 


0404 


33302 


125230 




JMP 


FSC, I 


YES 


0405 


33303 


115062 




JSB 


SERRS+23, 


,1 NO 


0406** 










** 


0407*** sAVt LOCAL 


VAR1ADLCS 


u r r S ** w w w 


0408** 










** 


0409* 














0410* 


saving msflg, 


P UFLAG, VAROP, GETPF, AND FSC MAKES FSC A 


4 11* 


RE-ENTRANT SUBROUTINE, 


THEY ARE SAVED ON THE SYNTAX 


0412* 


STACK BELOW ' 


rHfc ACTIVE 


SYNTAX BUFFER, ON ENTRY (B) 


0413* 


CONTAINS THE 


NUMBER OF 


WORDS TO 


be Saved, 


0414* 














0415 


33304 


035 6 15 


#FRCR 


ISZ 


SSTAK 


SAVE PREVIOUS '(» COUNT 


0416 


33305 


045615 




ADB 


SSTAK 


SUFFICIENT 


0417 


33306 


007000 




CMB 




USER 


0418 


33307 


P44716 




AOB 


LW A US 


SPACE 


0419 


33310 


006020 




SSB 




LEFT? 


0420 


33311 


115033 




JSB 


serrs, I 


NO 


0421 


33312 


067447 




LDB 


MSFLG 


YES, SAVE 


0422 


33313 


175615 




STB 


SSTAK, I 


'MULTIPLE STORE* 


0423 


33314 


03561b 




ISZ 


SSTAK 


FLAG 


0424 


33315 


067455 




LDB 


UFLAG 


SAVE 


0425 


33316 


175615 




STB 


SSTAKf I 


♦UNARY OPERATOR' 


0426 


33317 


035615 




ISZ 


SSTAK 


FLAG 


0427 


33320 


065240 




LDB 


VAROP 


SAVE 


0428 


33321 


175615 




STB 


SSTAK, I 


VAROP 


0429 


33322 


035615 




I3Z 


SSTAK 


RETURN ADD R ESS 


0430 


33323 


065250 




LDB 


GETPF 


SAVE 


0431 


33324 


175615 




STB 


SSTAK, I 


GETPF 


0432 


33325 


035615 




ISZ 


SSTAK 


RETURN ADDRESS 


0433 


33326 


065230 




LDB 


FSC 


SAVE 


0434 


33327 


175615 




STB 


SSTAK, I 


FSC 


0435 


33330 


035615 




ISZ 


SSTAK 


RETURN ADDRESS 


0436 


33331 


003400 




CCA 




DISABLE 


0437 


33332 


043453 




ADA 


SFLAG 


SFLAG 


0438 


33333 


073453 




STA 


SFLAG 


VALUE 


0439 


33334 


125234 




JMP 


FRCUR,! 




0440** 










** 


0441*** restore: psc LOCAL VARIABLES i 


t** 


0442*' 


* 










** 


0443* 














0444* 


INVERSE OF FRCUR. 


(A) 


IS SAVED 


BUT CB) IS NOT, 


0445* 














0446 


33336 


071612 


#FPOP 


STA 


TEMP+l 


SAVE (A) 


0447 


33336 


065615 




LDB 


SSTAK 


RESET 


0448 


33337 


044351 




ADB 


*6 


SYNTAX STACK 


0449 


33340 


075615 




STB 


SSTAK 


POINTER 


0450 


33341 


006004 




INB 




RESTORE 


0451 


33342 


160001 




LDA 


1,1 


multiple store* 


0452 


33343 


073447 




STA 


MSFLG 


FLAG 
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0453 
0454 
0455 
0456 

0457 
0458 
0459 
0460 

0461 
0462 
0463 
0464 
0465 



33344 
33345 
33346 
33347 

33350 
33351 
33352 
33353 
33354 
33355 
33356 
33357 
33360 
33361 



006004 
160001 
073455 
006004 

160001 
071240 
006004 
104200 

100001 
071250 
075230 
037453 
061612 
125236 



INB 




RESTORE 


LDA 


1,1 


'UNARY OPERATOR* 


STA 


UFLAG 


FLAG 


INB 




RESTORE 


LDA 


1*1 


VAROP 


STA 


VAROP 


RETURN ADDRESS 


INB 






DLD 


1,1 


RESTORE GETPF 


STA 


GETPF 


RETURN ADDRESS AN 


« T a 
O 1 O 


FSC 


FSC RETURN ADDR 


ISZ 


SFLAG 


RESTORE SFLAG VALUE 


LDA 


TEMP+1 


RESTORE (A) 


JMP 


FPOP,I 





0467* 
0466* 
0469* 
0470* 
0471* 

0472* 
0473* 

0474* 
0475* 

0476* 
0477 

0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 

0487 
0488 
0489 
0490 
0491 

0492 
0493 
0494 
0495 
0496 
0497 
0496 
0499 
0500 

0501 
0502 
0503 
0504 
0505 

0506 



* *•# 
** SINGLE CHARACTER AND/OR FORMULA OPERATORS *** 

* ** 

BITS 15-9 OF THE OCTAL wORD ARE THE OPERATOR CODE, 
BITS 3-0 A«E THE PRECEDENCE FOR FORMULA OPERATORS, 

the Ascn word is used to recqg n ize the operator ON 

INPUT AND TO PROVIDE THE PRINT NAME ON OUTPUT. THE 
ORDERING qF THE TABLE FACILITATES SEARCHING, 



33362 

33363 
33364 

33365 
33366 
33367 
3337* 
33371 
33372 
33373 
33374 
33375 
33376 
33377 
33400 
33401 
33402 
33403 
33404 
33405 
33406 
33407 
33410 
33411 
33 4 12 
33413 
33414 

33415 
33416 
33417 



001000 

021040 
002000 
026040 
003000 

035440 

004000 

021440 
015000 

01*000 

011000 

047106 
052117 
047506 

010001 

024440 
011001 
056440 
012013 

055440 
013013 

024040 
014011 
025440 
0150H 
026440 
016002 
026040 
017*402 
036440 



AsC 
ASC 
ASC 



QUOTE OCT 

ASC 
COMMA OCT 

ASC 
SEMI OCT 

AsC 
HATCH OCT 

ASC 
UNMNC n c T 
UNPLC OCT 

RBOP OCT 
FN 

TO 

OF 

rPArN OCT 
ASC 
OCT 
ASC 

LdRAC OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 

SCMMA OCT 
ASC 

ASSOP OCT 
ASC 



000 
2000 
3 000 

4000 
t* 

5000 
4000 
1000 
,NF 

,™ 
,OF 

0001 

,) 

1001 

,J 
2013 

, C 
3013 

,C 

401! 

5011 
6002 

, i 

7002 

• s 



STRING DELIMITER 

SEMICOLON 
HATCH SIGN 



R IGH T PArEN T HE S Is 
RIGHT BRACKET 
LEFT BRACKET 

LEFT PARENTHESIS 
UN*8Y PLUS 
UNARY MINUS 
SUBSCRIPT SEPARATOR 
ASSIGNMENT OPERATOR 



page 


0052 #04 FORMULA SYNTAX CHECKER 




0507 


33420 


020007 


PLUS 


OCT 


20007 


ADDITION 


0508 


33421 


025440 




ASC 


lr* 




0509 


33422 


021007 




OCT 


21007 


SUBTRACTION 


0510 


33423 


026440 




ASC 


!,• 




0&11 


33424 


022010 


TIMES 


OCT 


22010 


MULTIPLICATION 


0512 


33425 


025040 




ASC 


1#* 




0513 


33426 


023010 




OCT 


23010 


DIVISION 


0514 


33427 


027440 




ASC 


if/ 




0515 


33430 


024012 




OCT 


24012 


EXPONENTIATION 


0516 


33431 


057040 




ASC 


1ft 




0517 


33432 


025005 


relos 


OCT 


25005 


GREATER THAN 


0518 


33433 


037040 




ASC 


1>> 




0519 


33434 


026005 




OCT 


26005 


LESS THAN 


0520 


33435 


036040 




ASC 


i,« 




0b21 


33436 


027005 




OCT 


27005 


UNEQUAL 


0522 


33437 


021440 




ASC 


lr# 




0523 


33440 


030005 




OCT 


30005 


EQUAL 


0524 


33441 


036440 




ASC 


1,» 




0525 


33442 


053573 


MATFN 


DEF 


MATFS 




0526 


33443 


053432 


MATIO 


DEF 


IOSTS 




0527 


33444 


032004 




OCT 


32004 


AND 


0528 


33445 


000000 


DPLAG 


NOP 






0529 


33446 


033003 




OCT 


33003 


OR 


0530 


33447 


000000 


MSFLG 


NOP 






0531 


33450 


034006 




OCT 


34006 


MINIMUM 


0532 


33451 


053421 


AEND 


DEF 


EOFOP 




0533 


33452 


035006 




OCT 


35006 


MAXIMUM 


0534 


33453 


000000 


SFLAG 


NOP 






0535 


33454 


036005 




OCT 


36005 


UNEQUAL 


0536 


33455 


000000 


UFLAG 


NOP 






0537 


33456 


037005 




OCT 


37005 


GREATER THAN OR EQUAL 


0538 


33457 


000000 


ARYAD 


NOP 






0539 


33460 


04000b 




OCT 


40005 


LESS TAAN OR EQUAL 


0540 


33461 


053502 


ASTEP 


DEF 


STEP 




054* 


33462 


041011 




OCT 


41011 


NOT 
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0003** 

0004** 

0005** 

0006* 

0007* 

000$* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

001&* 

0016* 

0017* 
0018* 

0019* 
0020* 

0021* 
0022* 

0023* 
0024* 

0025* 

0026* 

0027 

0026 

0029 

0030 

0031 
0032 
0033 
0034 
0035 
0036 
0037 
0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0046 
0049 
0050 
0051 

0052 
0053 
0054 
0055 
0056 
0057 
0056 



*# 
* SUBSCRIPT SYNTAX *** 

** 

SBSCK ASSuMES A PRIOR ARRAY OPERAND REFERENCED THROUGH 
THE POINTER ARYAD. ENTRY IS MADE WITH A CHARACTER IN 
<A)> EXIT TO (P*l) IF THIS CHARACTER IS NOT '(' OR •(•# 
OTHERWISE ANALYZE THE SUBSCRIPT WHICH MUST FOLLOW, 
EXITING TO (P+2), S8SCK HANDLES BOTH SINGLE AND DOUBLE 
SUBSCRIPTS. IF DFLAG10 THE SUBsCRlpT IS FroM A 
<DIM STaTEMENT> *ND THE BOUNDS MUST BE POSITIVE 

integers, if dflagm the subscript re<»dimensiqns a 
matrix and a comma separates the two bounds of a 
Double subscript a n d a n End«qF«formula operator 
follows the last bound, otherwise a 'subscript* 
c mma separates the tw parts of a Dquble subscript 

AND NO END„QF,FORMULA OPERATOR APPEARS, IN ALL CASES 
THE ARRAY QPERAnD jS mARkED AS ONE* OR TWO»D|M£nSiQNAl , 
IF THE SUBSCRIPT BELONGS TO A STRING VARIABLE IN A 

<DIM statements IT must HAVE ONE AnD on^y one bqun d 
consisting of a positive integfr not larger than 72, 
in This case aryad holds a dummy pointer since string 
variables are not marked with dimensionality. 



33463 
33464 

33465 
33466 
33467 
33470 
33471 
33472 
33473 
33474 
33475 
33476 
33477 
33500 
33501 
33 5 02 
33503 
33504 
33505 
33506 
33507 
33510 
33511 
33512 
33513 
33514 
33515 
33516 
33517 
33520 
33521 
33522 



064355 
015272 
033403 
125232 

035232 
163457 
040355 
173457 
060554 
171572 
037445 
006404 
057445 
027574 
064366 
015234 

065232 
175615 
035615 
067457 
17561b 
035615 
060346 
073447 
015230 
007400 
045615 
075615 
164001 
077457 
067445 
054361 



#SBCK 



LDB 

JSB 

DEF 

JMP 
ISZ 

LDA 
ADA 
STA 
LDA 
STA 
ISZ 

CLB, 

CpB 

JMP 

LDB 
JSB 
LDB 
STB 
ISZ 
LDB 
STB 
ISZ 
IDA 
STA 

JSB 
CCB 
ADB 
STB 
LDB 
STB 
LDB 
CpB 



i *»2 

SYMCK 

LBrAC-1 

SbSCKiI 

SBSCK 

ARYAD#1 

9 *»2 

ARYAD, I 

LBQP 

SBPTRfl 

DFLAG 

INB 
DFlAG 

SB8C5 
.+7 

FRCUR 
SBSCK 
SSTAK, I 
SSTAK 
ARYAD 
SSTAK, I 
SSTAK 
f »9 

msf l g 

FSC 

SSTAK 
SSTAK 

1,1 
ARYAD 
DFLAG 
t +2 



OR 

f (i ? 

NO* RETURN TO (P*l) 
YES, SET RETURN TO (P*2) 
SET 

ARRAY TO 

SINGLE DIMENSION 

RECORD 

»C* 
BUMP MAGIC FLAG 
DIM 

STATEMENT? 
YES 

NO, SAVE FSC 

LOCAL VARIABLES 
SAVE 

RETURN 
ADDRESS 
SAVE ARRAY 

REFERENCE 
RESER V E SPACE FOR '• ( • COUNT 
TURN OFF 'STORE 

AVOWED* MODE 
DEMAND SUBSCRIPT 
REStORE 

ARRAY 

REFERENCE 
»MATPIX SUBSCRIPT* 
M DE? 
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0059 


33523 


027567 


JMP 


SBSC4 


YES 


0060 


33524 


007400 


SBSCl CCB 




NO, SEEK 


0061 


33525 


015272 


JSB 


SYMCK 


•SUBSCRIPT' 


0062 


33526 


033413 


DEF 


SCMMA.l 


COMMA 


0063 


33527 


027537 


JMP 


SBSC3+1 


NONE FOUND 


0064 


33530 


137457 


ISZ 


ARYAD, I 


SET ARRAY AS DOUBLY-SUBSCRIPTED 


0065 


33531 


006404 


CLB, 


, INB 


DIM 


0066 


33532 


057445 


CPB 


dflag 


STATEMENT? 


0067 


33533 


027536 


JMP 


SBSC3 


YES 


0066 


33534 


015230 


JSB 


FSC 


NO, DEMAND SECOND SUBSCRIPT 


0069 


33535 


002001 


O A 






0070 


33536 


015244 


SBSC3 JSB 


PRGIN 


DEMAND SECOND BOUND 


0071 


33537 


00740^ 


CCB 




RESTORE 


0072 


33540 


047445 


A B 


DFLAG 


ORIGINAL 


0073 


33541 


077445 


STB 


DFLAG 


DFLAG vALUE 


0074 


33542 


054360 


CPB 


. + 1 


■MATRIX SUBSCRIPT* MODE? 


0075 


33543 


015270 


JSB 


sbpud 


YES 


0076 


33544 


064355 


LOB 


t*2 


DEMAND 


mil 


33545 


015272 


JSB 


SYMCK 


«)» OR 


0078 


33546 


033377 


DEF 


RPARN*i 


»] • 


0079 


33547 


115062 


JSB 


SERRS+23, 


I NOT FOUND 


0080 


33550 


063374 


LDA 


RBOP 


RECORD 


0081 


33551 


171572 


STA 


SBpTRf I 


«] ' 


0082 


33552 


015270 


JSB 


SBPUD 


UPDATE POINTER 


0083 


33553 


015446 


JSB 


GETCR 


FETCH NEXT 


0084 


33554 


000000 


NOP 




CHARACTER 


0085 


33555 


006400 


CLB 




DIM 


0086 


33556 


057445 


CPB 


DFLAG 


STATEMENT? 


0087 


33557 


jL €L ft £» «3 <« 


JMP 


SBSCKf I 


YES 


0086 


33560 


m74(5id 


CCB 




NO, 


0089 


33561 


045615 


ADB 


SSTAK 


RESTORE 


0090 


33562 


075615 


STB 


SSTAK 


THE 


0091 


33563 


165615 


LDB 


SSTAK, I 


RETURN 


0092 


33564 


075232 


STB 


SBsCk 


ADDRESS 


0093 


33565 


015236 


JSB 


FPOP 


RESTORE FSC 


0094 


33566 


125232 


JMP 


SBSCK, I 


LOCAL VARIABLES 


0095 


33567 


007400 


SBSC4 CCB 






0096 


33570 


015272 


JSB 


SYMCK 


COMMA? 


0097 


33571 


033363 


DEF 


COMMA-1 




0098 


33572 


027537 


JMP 


SBSC3+1 


NO 


0099 


33573 


027530 


JMP 


SBSCl+4 


YES 


0100 


33574 


015244 


SBSC5 JSB 


PRGIn 


DEMAND DECLARED BoUnD 


0101 


33575 


037453 


ISZ 


SFLAG 


STRING VARIABLE? 


0102 


33576 


027524 


JMP 


SBSCl 


NO 


0103 


33577 


044321 


ADB 


M73 


YES, DOES BOUND 


0104 


33600 


006021 


SSBi 


-RSS 


EXCEED 72? 


0105 


33601 


115071 


JSB 


SERRS+30, 


I YES 


0106 


33602 


027537 


JMP 


SBSC3+1 


NO 
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0106** 






** 




0109*** RECORD ARRAY IDENTIFIER *** 




0110** 






** 




0111* 












0112* 


ArrAY IDENTIFIER LEFT IN TEMp+1, 


ARRAY OpERAND ADDRESS 


0113* 


PUT J 


[N ARYAD 


, EXIT WITH FOLLOWING CHARACTER IN TEMP*2 


0114* 


and ] 


[N (A). 








0115* 












0116 


33603 


015256 


#ARID 


JSB LTR 


FETCH IDENTIFIER 


0117 


33604 


1150 6 5 




JSB SERRS+26* 


I NONE FOUND 


0ii8 


33605 


065242 




LDB ARRID 


SET 


0119 


33606 


075330 




STB STRID 


"exit 


0120** 






** 




0121*** RECORD STrIn^ IDENTIFIER *** 




0122** 






** 




0123* 












0124* 


S TR ING I0EN T 


IFIEr 


LEFT IN tEMP+1 


, sFLAG S ET TO -I, 


0125* 


EXIT 


WITH FqllOWIn 


G CHARACTER I N 


(A), EXIT TO ERROR 


0126* 


IF A 


STRING 


VARIABLE IS NOT PERMITTED IN THIS CONTEXT, 


0127* 












0128 


33607 


050423 


#STRl 


CPA t +44B 


»$» ? 


0129 


33610 


027620 




JMP STRIl 


YES 


0130 


33611 


061572 




LDA SBPTR 


NO, SET POINTER TO 


0131 


33612 


073457 




STA ARYAD 


VARIABLE LOCATION 


0132 


33613 


061612 




LDA TEMP+l 


RECORD 


0133 


33614 


064435 




LDB f +56B 


ARRAY 


0134 


33615 


015260 




JSB STROP 


VARIABLE 


0135 


33616 


061613 




LDA t£MP*2 


RETRIEVE FOLLOWING 


0136 


33617 


1 twOJlfl 




JMP STRlD f j 


CHARACTER 


0137 


33620 


063453 


STRIi 


LDA SFLAG 


STRING VARIABLE 


0138 


33621 


051572 




CPA SBPTR 


PERMITTED? 


0139 


33622 


003401 




CCA f RSS 


YES 


0140 


33623 


115066 




JSB SERRS+27, 


I NO 


0141 


33624 


073453 




STA sFlAG 


SET F L AG To 'STRIn^ OCCURRED* 


0142 


33625 


061612 




LDA T£MP*1 


RECORD 


0143 


33626 


064432 




LDB +53B 
JSB STROP 


STRING 


0144 


33627 


015260 




VARIABLE- 


0145 


33630 


061615 




LDA SSTAK 


SET POINTER TO DUMMY 


0146 


33631 


073457 




STA ARYAD 


VARIABLE LOCATION 


0147 


33632 


015446 




JSB GETCR 


FETCH 


01 46 


33633 


000000 




NOP 


NEXT 


0149 


33634 


125330 




JMP STRID, I 


CHARACTER 


0150** 






** 




0151*** RECORD A STRING 


OPERAND *** 




0152** 






** 




0153* 












0154* 


DEMAND A s tRING VARIABLE OR A ST 


RING CONsTAN T , EXIT 


0155* 


TO ERROR IF 


NEITHER IS FOUNDf ELSE EXIT WITH THE NEXT 


0156* 


CHARACTER In 


(A), 






0157* 












0158 


33635 


061572 


#RSTO 


LDA SBPTR 


SEEK 


0159 


33636 


073453 




STA SFLAG 


STRING 


0160 


33637 


015240 




JSB VAROP 


OPERAND 


0161 


33640 


027644 




JMP RSTO! 


ist Character not a letter 


0162 


33641 


037453 




ISz SFLAG 


STRING VARIABLE? 


0163 


33642 


115067 




JSB SERRS+28, 


I NO 
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0164 


33643 


125332 




JMP RSTOP,I YES 


0165 


33644 


015270 


RSTOl 


JSB SBRUD DEMAND A 


0166 


33645 


015334 




JSB GETST STRING 


0167 


33646 


125332 




JMP RSTOP,I CONSTANT 


0166** 






** 


0169*** FETCH A STRING CONSTANT *** 


0170** 






** 


0171* 










0172* 


EXIT 


TO ERROH 


! IF (A) # " UPON ENTRY. ELSE SAVE CURRENT 


0173* 


BUFFER POINTER AND 


PACK THE INPUT STRING INTO THE SUFFER 


0174* 


cm 1 r 

1 \JU. K~ * 


JisjTwr: tuc 


; INITIAL BUFFER gQRP t ExIT TO ERROR IF NO 


0175* 


CLOSING " IS 


FUUND 


f RECORD THE OPENING " ALONG WITH A 


0176* 


COUNT OF THE 


STRING CHARACTERS AND EXIT WITH THE NEXT 


0177* 


CHARACTER IN 


(A). 


EXIT TO ERROR IF STRING EXCEEDS 


0178* 


72 CHARACTERS, 




0179* 










0180 


33 6 4 7 


K65572 


#GTST 


LDB SBPTR SAVE SYNTAX 


0181 


33650 


V177AS7 




STB ARYAD BUFFER POINTER 


0182 


33651 


050421 




CPA ,*42B " ? 


0183 


33652 


006401 




CLB,RSS YES, SET (B) * 


0184 


33653 


115067 




JSB $ERRS*28,i NO 


0185 


33654 


015262 




JS6 CHRST RECORD STRING CONSTANT 


0186 


33655 


115070 




JSB SERRS+29,1 NO CLOSING QUOTE 


0187 


33656 


063362 




LDA QUOTE RECORD CHARACTER COUNT 


0188 


33657 


041612 




ADA TEMP+1 ALONG WITH 


0189 


33660 


173457 




STA ARYAD, I OPENING QUOTE 


0190 


33661 


043743 




ADA Dim MORE THAN 72 


0l9l 


33662 


002021 




SSA,RSS CHARACTERS? 


0192 


33663 


115071 




JSB SERRS4.30,I YES 


0193 


33664 


015446 




JSB GETCR no, fetch 


0194 


33665 


000000 




NOP NEXT 


0195 


33666 


125334 




JMp GETST, I CHARACTER 


0196** 






** 


0197*** CHECK FOR U 


ISING 


Statement *** 


0198** 






** 


0199* 










0200* 


Scan 


THE INPUT STRING FOR A USING OPERATOR, IF NONE FOUND, EXIT 


0201* 


TO CP+l) WITH 


1 THE 


INPUT STRING AND SYNTA* BUFFER A3 UPON ENTRY, 


0202* 


otherwise, check fo r a legal operator following the »u$in6« and 


0203* 


EXIT 


TO (P+2) 


AFTER SAVING IT IN THE SYNTAX BUFFER, WITH (A) 


0204* 


e THE N EXT CHARACTER. 


0205 


33667 


171572 


#USCK 


STA SBPTR,! (A) f NEXT CHARACTER 


0206 


33670 


060364 




LDA *5 5 CHARACTERS 


0207 


33671 


071402 




STA MAXCR ALLOWED 


0206 


33 6 72 


007400 




CCB LOOK 


0209 


33673 


063734 




LDA ustma look 


0210 


33674 


015246 




•JSB T6SRH 'using* 


0211 


33675 


027725 




JMP USCK3 NOT FOUND 


0212 


33676 


035544 




isz ustck 


0213 


33677 


015256 




JSB LTR ^EXT CHARACTER LETTER? 


0214 


33700 


027712 




JMP USCKl NO 


0215 


33701 


050423 




CPA f +44B YES, >$< FOLLOWS? 


0216 


33702 


002001 




RS3 YES 


0217 


33703 


115075 




JSB SERRS+34,1 NO 


0218 


33704 


065572 




IDB SBPTR ENABLE STRING 


0219 


33705 


077453 




STB SFLAG VARIABLE 
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0220 

0221 
0222 
0223 
0224 
0225 
0226 
0227 
0226 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
023g 
023 9 
0240 
0241 



33706 
33707 
33710 
33711 
33712 
33713 
33714 
33715 
33716 
33717 
33720 
33721 
33722 
33723 
33724 
33725 
33726 
33727 
33730 
33731 

33732 
33733 



015330 
015232 
000000 
125544 

050421 
027722 
015450 
007400 
075420 
015244 
125544 
115075 
015270 
015334 
125544 
007400 

045572 
075572 
060362 
071402 
015450 
125544 



USCK1 



USCK2 



USCK3 



JSB 
JSB 
NOP 
JMP 
CPA 
JMP 
JSB 
CCB 
STB 
JSB 
JMP 
JSB 
JSB 
JSB 
JMP 
CCB 
ADB 
STB 
LDA 
STA 
J3B 
JMp 



STRID 
SBSCK 

USTCK#I 
,+42B 
USCK2 
BCKSP 

GFLAG , 

PRGin 

USTCK-T 

SERRS+34, 

SBPUD 

GETST 

USTCK,I 

SBPTR 

sbptr 

t + 3 

MAXCR 
BCKSP 
USTCK,I 



STORE STRING 



QUOTE? 
YES 

SEARCH 
FOR 

STATEMENT 
NUMBER 
FOUND ONE 
I NOT FOUND, ERROR 
ADVANCE BUFFER POINTER 
RECORD STRING CONTSTANT 

RESTORE 

BUFFER 
POINTER 
RESET FOR 

3 CHARACTERS 
RESTORE INPUT STRING 
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0243 33734 053347 USTMA DEF USTMT 

0244 33735 053343 STTYP DEF $TYPS 

0245 33736 9)53332 MCREL DEF MRELS 

0246 33737 100337 UNCN OCT 100337 

0247 33740 076000 TOOP OCT 76000 

0248 33741 063000 INPOP OCT 63000 

0249 33742 024000 ExPOP OCT 24000 

0250 33743 176667 0^1 OCT -nil 

0251 33744 177201 D577 OCT »577 

0252 33745 000133 B133 OCT 133 
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0254 
0255 
0256 
0257 
0258 
025g 
0260 
0261 

0262** 
0263** 

0264** 

0265* 

0266 

0267 

0268 

0269 

0270 
0271 

0272 
0273* 
0274** 
0275** 

0276** 

0277* 

0278 

0279* 

0280** 

0281** 

0282** 

0283* 

0284 

0285 

0286 

0287 

0288** 

0289** 

0290** 

0291* 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301* 

0302** 

0303** 

0304** 

0305* 

0306 

0307 

0308 

0309 



34000 
34000 
34001 
34002 
34003 
34004 
34005 
34006 



000133 
177645 
032051 
033453 
177725 
177631 
032037 



8B133 

DI33 

OCOM0 

8FL.GA 

D53 

M103 

EOSTA 



ORG 
OCT 
OCT 
DEF 
DEF 

OCT 
DEC 
DEF 



34000B 

133 

-133 

COMS0 

SFLAG 

«53 

• 103 

FOST 



** 



<RESTORE STATEM£NT> SYNTAX ** 



34007 015446 RSTR8 JSB GETCR 



34010 
34011 
34012 

34013 
34014 
34015 



026014 
015450 
015244 
126006 
035572 
124620 



RSTRl 



JMP 
JSB 
JSB 
JMP 
ISZ 
JMP 



RSTRl 

BCKsP 
PRGIN 

EOSTA, I 

SBpTR 

ACCSA,I 



* ** 
<FILE$ STATEMENT> SYNjAX ** 

* ** 

34016 002401 FILES CU,RSS 



* •* 
<REM STATEMENT* 3YNTAX ** 

* •* 

34017 060374 REMS IDA # *158 

34020 006404 CLBrlNB 

34021 015262 JS B cHRST 

34022 124620 J^P ACCSA,I 

* ** 
<CHAIN STATEMENT* sYNjAX ** 

* ** 



END OF STATEMENT? 

YES 

NO, DEMAND 

SEQUENCE NUMBER 
DEMAND END OF STATEMENT 
RECORD DUHMY OplRAND 



SUPPRESS BLANKS 



DUMMY STATEMENT TERMINATOR 
SET CHARACTER FLAG TO »LQW HALF* 
RECORD REMAINDER OF STATEMENT 
AS A STRING 



34023 015332 CHANS JSB RSTOP REQUEST STRING OPERAND 



34024 007400 

34025 015272 

34026 033363 

34027 126006 

34030 007400 

34031 176003 

34032 015230 

34033 126006 



CCB 

JSB SYMCK 

DEF COMMA. 1 

JMP EOSTA, I 

CCB 

STB SFlGA,j 

JSB FSC 
JMp E0STA,I 

** 



COMMA FOLLOWS? 

A COMMA? 
NO, DEMAND END-0F-8TATEMENT 
DISALLOW 

STRjNG VARIABLES 
GET a FORMULA FOR LINE NO, 
DEMAND EnD.qP-STATEMEnT 



<e n ter stateme n t> syntax ** 

* ** 

34034 015446 ENTRS JSB GETCR 

34035 115076 jSB SERK3*35, 

34036 035572 ISZ SfiPTR 

34037 007400 CCB 



FETCH FIRST CHARACTER 
I NGNE FOUND 
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0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 

0318 
0319 

0J«£tO 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0326 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

033g 

0339 

0340 

«34l 

0342 

0343 

0344 

0345 

0346 

0347* 

0348* 

0349* 

0350* 

0351* 

0352 

0353* 

0354* 

0355* 

0356* 

0357* 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 



34040 
34041 
34042 
34043 
34044 
34045 
34046 
34047 
34050 
34051 
34052 
34053 
34054 
34055 
34055 
34056 
34057 
34060 
34061 
34061 
34062 
34063 
34064 
34065 

34066 
34067 
34070 
34071 
34072 
34073 
34074 
34075 
34076 
34077 
34100 
34101 
34102 



015272 
0333^7 
026055 
015240 
115076 
000000 
050374 
026307 
007400 
015272 
033363 
115041 
026061 

015450 
007400 
045572 
075572 

015230 
007400 

015272 
033363 
115041 
015240 
115076 
000000 
007400 
015272 
033363 
115041 
065572 
176003 
015240 
115076 

000000 
126006 



FNTR1 



EN T R2 



** 

* <uslNG ST A TEMENT> 

• * 



JSB 
DEF 
J MP 
JSB 
JSB 
NOP 
CPA 
JMP 
CCB 
JSB 
DEF 
JSB 
JMP 
EQU 
JSB 
CCB 
AOB 
STB 
EQU 
JSB 

CCB 
JSB 
DEF 
JSB 
JSB 
JSB 
NOP 
CCB 
JSB 
DEF 

JSB 
LDB 
STB 
JSB 
JSB 

NOP 
JMP 



SYMCK FIRST CHARACTER A '#»? 

HATCH-1 

ENTR1 NO 

VAROP YES, SEEK SIMPLE VARIABLE 

SERRS+35,1 NONE FOUND 



. + 15B 
ACCST 

SYMCK 
COMMA*! 
SERRS+6, I 
ENTR2 

* 
BCKSP 

SBpTR 
SBPTR 

* 
FSC 



CR FOLLOWS? 

YES, ACCEPT STATMENT 

NO 

COMMA? 

NO 



BACKUP ONE CHARACTER 
RESTORE 
BUFFER 
POINTER 

DEMAND A FORMULA 

COMMA FOLLOWS? 



SYMCK 

COMMA-1 

SERRS+6, I NO 

VAROP DEMAND A SIMPLE VARIABLE 

SERRS+35,1 NONE FOUND 



SYMCK 

CoMMA-1 

SERRS+6,1 NO 

SBPTR 

SFlGA, X 

VAROP 

SERRS+35 



COMMA FOLLOWS? 



YES, ENABLE 

STRING VARIABLE 
SEEK VARIABLE OPERAND 

NONE FOUND 



EQSTA,! DEMNAD END.OF„STAT£MENT 



** 
s yN T AX ** 
a* 



34103 115074 USINS JSB SERRS+33,1 USING ILLEGAL AS FIRST WORD 



** 

* <AssIGN STATEMENT 

*• 



34*04 
34105 
34106 
34107 
34110 
34111 
34H2 
34113 



015332 
007400 

015272 
033363 
115041 
007400 
176003 
015230 



ASNS 



*• 

> syntax ** 

** 

JSB RSTOP 

CCB 

JSB SYMCK RECORD 

DEF COMMA^l A COMMA 

JSB SERRS*6,i NOT A COMMA 

CCB DISALLOW 

SIB SFLGA,! STRING VARIABLE 

JSB FSC RECORD FORMULA 
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0366 


34114 


007400 


0367 


3411b 


015272 


0368 


34116 


033363 


0369 


34117 


115041 


0370 


34120 


015240 


0371 


34121 


115076 


0372 


34122 


000000 


0373 


34123 


007400 


0374 


34124 


015272 


0375 


34125 


033363 


0376 


34126 


002001 


0377 


34127 


015332 


0378 


34130 


126006 



CCB 
JSB 
DEF 
JSB 
JSB 
JSB 

NOP 
CCB 
JSB 
DEF 

RSS 
JSB 
JMP 



SyMCK RECORD 

COMMA-1 A COMMA 

8ERRS*6,I NOT A COMMA 

VaROP SEEK A NUMERIC OPERAND 

SERRS«.35,I NONE FOUND 



SYMCK COMMA 

COMMA-1 NEXT? 

RSTOP DEMAND A STRING OPERAND 

EOSTA f I DEMAND END»OP-STAT£M|NT 
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0380** 

0381** 

0382** 

0383* 

0384* 

0385* 

0386* 

0387* 

0388* 

0309* 

0390* 

0391* 

0392* 

0393* 

0394* 

0395* 

0396* 

0397* 

0398* 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

&4Q7 

0408 

0409 

0410 

0411 

4 12 

0413 
0414 
0415 

04l6 
04l7 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 

0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 



** 

SEEK A VARIABLE OPERAND *** 

*« 

vaRop scans for and records a variable operand, if 
the first character is not a letter* exit is to cp+1) 
with the character in (a), otherwise a variable 
operand is recorded and upon exit (a) contains the 
following character, exit is to (p*2) after finding 
an array or string variable along with any following 
subscript. if a string variable is found and 8flag * 
sbptr, set sflag » • !» if 3flag * sbptr, no string 
variable is per m ltted at this polnti exit to error, 
after finding a simple variable exit to (p*3> with 

TEMp+2 ■ (A) AnD THE LAST CHARACTER Of THE SlMpLE 

VARIABLE IN TEMP + i t IF INSIDE A <DEF STATEMENT*, 

SjHPLE VARIABLES ARE COMPARED WjTH THE PARAMETER AND 
MATCHES ARE MARKED. 



34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 

3 4 
34 
34 
34 

34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 

34 
34 
34 
34 
34 
34 
34 
34 
34 



31 
32 

33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 

46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 

65 
66 
67 
70 
71 
72 
73 
74 

75 



015256 
125240 
035240 
050427 
026155 
052000 
026155 
050423 
026155 
035240 
015264 
026165 
061612 
044437 
075612 
015260 
015446 
000000 

07i6i3 
026171 
015330 
015232 
002001 
125240 
065240 
056002 
115040 
125240 

061612 
064436 

015260 
061613 
006400 
055617 
125240 
007400 
045572 



#VROP 



VAR04 



VAROl 



VAR02 



JSB lTR 


LETTER? 


JMP VARQP,I 


NO, EXIT VIA (P4-1) 


ISZ VAROP 


YES 


CPA ,+50B 


! (I ? 


JMP VAR04 


ye$ 


CPA BB133 


NO, » t> ? 


JMP VAR04 


YES 


CPA .*44b 


NO, »$♦ ? 


JMP VAR04 


YES 


ISZ VArqp 


Nq 


JSb DIGCK 


DIGIT NEXT? 


JMP VAROl 


NO 


LDA TEmP*1 


yes, lqad letter, 


ADB .+48 


RESTORE DIGIT, 


STB TEMP*j 


AND RECORD 


JSB STROP 


SIMPLE VARIABLE 


JSB GETCR 


FETCH 


NOP 


AND SAVE 


STA TEMP*2 


NEXT 


JMP VAR02 


CHARACTER 


JSB STRID 


RECORD ARRAY OR STRING VARIABLE 


JSB SBSCK 


FETCH THE SUBSCRIPT 


RSS 


NO SUBSCRIPT 


JMP VAROP, I 


EXIT VIA CP*2) 


LOB vAROP 


WAS vAROP CALLED FOR 


CPB DCOM0 


DIM OR COM SYNTAX? 


JSB SERR8*5,I 


YES**ErrdR 


JMP VARQP,! 


NQ«*«»EXIT 


LDA TEMP*! 


RETRIEVE LETTER, 


LDB ,+57B 


SET »NO DIGITi, 


JSB STROP 


AND RECORD 


LDA TEMP+2 


SIMPLE VARIABLE 


CLB 


INSIDE A 


CPB PFLAG 


3DEF» STATEMENT? 


JMP VAROP, I 


NO, EXIT VIA CP*3) 


CCB 


YES, 


ADB sBPTR 


isolate 
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0436 

0437 

043g 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446** 

0447** 

0448** 

0449* 

0450* 

0451* 

0452* 

0453* 
0454* 
0455* 

0456* 
45 7* 

0458* 
0459* 

0460* 
0461 

0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
Q470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
04 8 2 

0483 
0484 



34176 160001 

34177 010504 

34200 051617 

34201 026204 

34202 061613 

34203 125240 

34204 160001 

34205 031027 

34206 170001 

34207 026202 



LDA J,I 

AND B777 

CPA PFLAG 

JMP **3 

VA R 03 LDA TEMP+2 

JMP VAROP,I 

IDA 1,1 

IOR FlGBT 

STA 1,1 

JMP VARQ3 



LATEST 
OPERAND 
IS IT THE PARAMETER? 
yES 
NO, RETRIEVE CHARACTER 

AND EXIT VIA (P*3) 
FLAG 

OPERAND 
AS 

PARAMETER 



process character string *** 

** 



UPON ENTRy (A) CONTAINS THE STRING DELIMITER AND (8) 

INDICATES WHETHER THE FIRST CHARACTER IS TO BE STORED 

IN T HE LOWER HALF OF tHE CuRREN T BUFFER WORD ( (B) « 1) 

OR THE UPPER HALF OF THE NEXT BUFFER WORD. ( (B) m 0), 

EXIT TO (P+i) ON EhPTYInG THE I N PUT STRInG, EXIT TO 

(P*2) ON FINDING THE STRING DELIMITER, BLANKS ARE NOT 

STRIPPED OuT OF THE INPgT STRING IF (A) U gPQN ENTRY, U p ON 

EXIT SBPTR POINTS TO THE FIRST BUFFER WORD NOT CONTAINING PaRT OF 

THE STRING WHILE TEMp*l CoNTAlNs A CqUNT OF THE STRING 

CHARACTERS BIASED BY THE VALUE OF (B) UPON ENTRY, 



34210 

342^ 
34212 
«5 ■? 2 1 «3 
34214 
34215 
34216 
34217 
34220 
34221 
34222 
34223 
34224 
34225 
34226 
34227 
34230 
34231 
34232 
34233 
34234 
34235 
34236 
34237 



075612 

071613 
064371 
002002 
075571 
015446 
026234 

060001 
051613 

026233 
065612 
006014 

026227 
015270 
001737 
131572 
171572 
075612 
026215 
035262 
015270 
064417 
075571 
125262 



#CRST STB 
STA 
LDB 
SZA 
STB 

CHpsi Jsb 
JMP 
LDA 
CpA 
JMP 
LDB 
SLBr 

JMP 
J8B 
ALF, 
CHRS2 IOR 

ST* 
STB 
JMP 
CHRS3 ISZ 
JSB 
LDB 
STB 
JMP 



TEMP+1 

TEMP+2 
,♦10 

BLANK 

GETCR 

CHRS3+1 

3 

TEMp*2 

CHRS3 
TEMP*i 

INB 
CHRS2 
SBPUD 
SLA, ALF 
SBPTR,! 

sBPTRfl 

TEMp+1 

CHRSl 

CHRST 

SBpuD 

.+408 

BLANK 

CHRST, I 



SET CHARACTER FLAG AND COUNTER 
NOTE TERMINATOR CHARACTER 
IF (A) # 
STOP BLANK 
SyPPRESSION 
FETCH CHARACTER 
NONE FOUND 
ALLOw L0 W ER CASE 

TERMINATOR* 
YES 

NO, COUNT CHARACTER 

AND SELECT WORD HALF 

LOW HA L F 

HiGH HAtF, MOVE TO NEXT WORD 

POSITION CHARACTER AND SKIP 

COMBINE WITH PREVIOUS CHARACTER 

SAVE FLAG/COUNTER 

SET EXIT TO (P+2) 
ADVANCE POINTER 
RESTORE BLANK 
SUPPRESSION 
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0486** 




** 




0487*** DELETE SOME PrOGrAM 


*** 




0488** 




*# 




0489* 










0490* 


that part of 


THE PROGRAM REFERENCED BY CORE LOCATIONS 


0491* 


(TEMp*l)+(A) 


THROUGH (TEMp*l)*(B)-i INCLUSIVE IS 


0492* 


DELETED BY SLIDING UP / 


kLL OF THE 


PROGRAM FROM 


04g3* 


(TEMP*1)+C8) 


tu cpbptr; 


>«1 (I.E., 


THE REST OF THE 


0494* 


program following the i 


!GAP«). PBPTR IS THEN 


0495* 


UPDATED TO POINT TO LAST WORD +1 


OF THE PROGRAM. 


0496* 










0497 


34240 04l6l2 


#DLPR ADA 


TEMP+1 


COMPUTE INITIAL 


0498 


34241 071613 


STA 


TEMP+2 


DESTINATION ADDRESS 


0499 


34242 045612 


ADB 


TEMP*i 


COMPUTE INITIAL SOURCE ADDRESS 


0500 


34243 054056 


DE L P1 CPB 


PBPTR 


DONE? 


0501 


34244 026252 


JMP 


DELP2 


YES 


0502 


34245 160001 


LDA 


Ifl 


NO* TRANSFER 


0503 


34246 171613 


STA 


TEMP*2#I 


A WORD 


0504 


34247 035613 


ISZ 


TEMP+2 


BUMP 


0505 


34250 006004 


inb 




POINTERS 


0506 


34251 026243 


JMP 


DELPl 




0507 


34252 061613 


DELP2 LDA 


TEMP+2 


UPDATE 


050$ 


34253 0;0056 


STA 


PBPTR 


END-OF-PROGRAM 


0509 


34254 125312 


JMP 


DELPR,I 


POINTER 
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0511* 
0512* 

0513* 

0514 

0515 

0516 

0bl7 

0518 

0&19 
0520 

aRO 4 

0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 

0540* 
0541* 

0542* 
0543* 
0544* 
0545* 
0546* 
0547* 
0548* 
0549* 
0550* 

055** 
0552* 

0553* 
0554* 

0555* 
0556* 

0557* 

0558* 

0559* 

0560* 

05 6 1 

0562 

0563 

0564 

0565 

0566 



** ST 

* 

34255 
34256 
34257 
34260 
34261 
34262 
34263 
34264 
34265 
34266 
34267 
34270 
34271 
34272 
34273 
34274 
34275 
34276 
34277 
34300 
34301 
34302 
34303 
34304 
34305 
34306 

* 

** AC 



AyEMENj SYNTAX ENTRY POINTS 



034104 
034103 
032124 
032043 
032022 
032042 
032064 
034017 
032142 
032225 
032275 
032332 
032142 
032336 
032336 
032336 
032342 
032414 
032404 
032426 
034007 
032555 
034016 
034023 
034034 
032017 



SYNTB DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



CgPT A STATEMENT * 



ASNS 

USINS 

IMAGS 

COMS 

LETS 

DIMS 

DEFS 

rEms 
gqtos 

IFS 

FORS 

NEXTS 

GOTOS 

ENDS 

ENDS 

ENDS 

DATAS 

INPTS 

READS 

PRlNS 

RSTRS 

MATS 

FILES 

CHANS 

ENTRS 

LET0 

** 

** 

** 



** 
*** 

** 
ASSIGN 

USING 

IMAGE 

COM 

LET 

DIM 

DEF 

rem 

goto 
if 

for 

NEXT 

GOSUB 

RETURN 

END 

STOP 

DATA 
INPUT 

READ 

PRINT 

RESTORE 

MAT 

FILES 

CHAIN 

ENTER 

» IMPLIED* LET 



A CORRECT STATEMENT 1$ ADDED tO THE PROGRAM SUFFER, 
I F ITS S E QU E NC £ NUMBER IS THE HIGH£ST SO F*R> ONLY 
THE END*GF«PRQGRAM POINTER REQUIRES CHANGE, SINCE THg 
STATEMENT IS TRANSLATED IMMEDIATELY BELOW THE PREVIOUS 
PROGRAM, OTHERWISE THE NEW STATEMENT Is INSERTED INTo 
THE PROGRAM IN PROPER SEQUENTIAL POSITION IF ITS 
SEQUENCE NUMBER COINCIDES W ITH THAT OF A PREylOUS 
PROGRAM STATEMENT, IT REPLACES IT, WITH SPACE MADE OR 
DELETED IN THE pR GRAM As NECESSARY, EXIT To EXEC, 
IF STATEMENT LENGTH « THE STATEMENT WaS REJECTED DUE TO 
A STORAGE O v ERFLO W IN TAPE MODE, IF IN KEYBOARD MODE AND 
SYMTB » 4 AT LEAST ONE OVER/UNDERFLOW OCCURRED WHILE ANALYZING 
THE STATEMENT SO EMIT THE ERROR? OTHERWISE ECHO A LINE FEED, 
IF IN TAPE MODE MOVE THE STARTLE-RECORD POINTER TO THE START 
OF T HE NEXT BuFFER AND IF I T IS COMPLETED SyNtAx It NOW, ELSE 
EXIT TO EXEC, 



34307 

34310 
34311 
34312 
34313 
34314 



06 5 6l6 
006004 

061616 
003004 
041572 
002003 



ACCST 



LDB SBUFA 

1NB 

LDA sBUFA 

CMA,INA 

ADA SBPTR 

SZA,RSS 



Compute 
statement 

LENGTH 
UNPROCESSED STATEMENT? 
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0567 


34315 


026413 


JMP 


ACCS6 


YES 


0568 


34316 


170001 


STA 


1,1 


NO, STORE LENGTH IN STATEMENT 


0569 


34317 


071613 


STA 


TEMP+2 


SAVE IT 


0570 


34320 


060056 


LDA 


PBPTR 


FIND STATEMENTS 


0571 


34321 


165616 


LDB 


SBUFA,I 


SEQUENTIAL 


0572 


34322 


015314 


JSB 


FnDPS 


POSITION 


0573 


34323 


026376 


JMP 


ACCS4 


APPEND STATEMENT TO PROGRAM 


0574 


34324 


026350 


JMP 


ACC32 


INSERT STATEMENT INTO PROSRaM 


0575 


34325 


006004 


INB 




REPLACE PRIOR STATEMENT 


0576 


34326 


160001 


LOA 


1,1 


COMPARE LENGTH 


0577 


34327 


003004 


CMA, 


,INA 


OF NEW STATEMENT 


0578 


34330 


041613 


ADA 


TEMp+2 


WITH THAT OF OLD 


0579 


34331 


002003 


SZA, 


,RSS 


EQUAL? 


0580 


34332 


026340 


JHP 


ACCSl 


YES 


0581 


34333 


002021 


SSA, 


■ RSS 


NO, LONGER? 


0582 


34334 


026351 


■IMP 


ACC32+1 


YES 


0583 


34335 


061613 


LOA 


TEMp+2 


NO, SHORTER 


0584 


34336 


164001 


LOB 


■l'l 


LOAD LENGTH OF OLD STATEMENT 


0585 


34337 


015312 


JSB 


DELPR 


DELETE EXTRA LENGTH 


0586 


34340 


065616 


ACCSl LOB 


SBUFA 


LOAD FIRST SOURCE ADDRESS 


0587 


34341 


160001 


LOA 


UI 


TRANSFER 


0588 


34342 


171612 


STA 


TEMp*l,I 


A WqrD 


0589 


34343 


035612 


IS* 


tempm 


ADVANCE DESTINATION 


0590 


34344 


006004 


INB 




AND SOURCE ADDRESSES 


0591 


34345 


055572 


CPB 


SBPTR 


DONE? 


0592 


34346 


026400 


JMP 


ACCS5 


YES 


0593 


34347 


026341 


JMP 


ACCSi+i 


NO 


0594 


34350 


061613 


ACCS2 LDA 


TEMP*2 


LOAD SPACE REQUIREMENT 


0595 


J1 Jwl 


041616 


ADA 


SBUFA 


UPDATE POINTER 


0596 


34352 


071616 


STA 


SBUFA 


TO NE« STATEMENT 


0597 


34353 


041613 


ADA 


TEMp+2 


RESET 


0598 


34354 


065572 


L OB 


SBPTR 


EHO Qf STATEMENT 


0599 


34355 


071572 


STA 


SBPTR 


POINTER 


0600 


34356 


071613 


st a 


TEMP+2 


INITIALIZE DESTINATION ADDRESS 


0601 


34357 


003000 


CMA 




USER 


0602 


34360 


040716 


ADA 


LWAUS 


SPACE 


0603 


34361 


002020 


SSA 




OVERFLOW? 


0604 


34362 


115033 


JSB 


SERRS,I 


YES 


0605 


34363 


061616 


LDA 


SBUFA 


NO, UPDATE POINTER 


0606 


34364 


070056 


STA 


PBPTR 


TO END*QF-PROGRAM 


0607 


34365 


055612 


ACCS3 CPB 


TEMP+1 


EVERYTHING MOVED? 


0608 


34366 


026340 


JMP 


ACCSl 


YES 


0609 


34367 


003400 


CCA 




NO, BACK UP 


0610 


34370 


041613 


ADA 


TEMP+2 


SOURCE AND 


0611 


34371 


071613 


STA 


TEMP+2 


DESTINATION 


0612 


34372 


044356 


ADB 


.-1 


ADDRESSES 


0613 


34373 


160001 


LDA 


1,1 


TRANSFER 


0614 


34374 


171613 


STA 


TEMP*2,I 


A WORD 


0615 


34375 


026365 


JMP 


ACCS3 




0616 


34376 


061572 


ACCS4 LDA 


SBpTR 


RESET ROSTER to 


0617 


34377 


070056 


STA 


pBpTR 


LAST WQRD+1 o? PROGRAM 


0618 


34400 


060367 


ACCS5 LDA 


tapef 


TAPE 


0619 


34401 


110255 


AND 


MAIN ? 1 




0620 


34402 


002002 


SZA 




MODE? 


0621 


34403 


026413 


JMP 


ACCS6 


*ES 


0622 


34404 


055573 


LDB 


SYMyB 


NO 
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0623 

0624 

062$ 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 

0001** 

0002** 

0003** 

0004* 

0005* 

0006* 

0007* 

0008* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017 

0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
003$ 
0040 
0041 
0042 
0043 
0044 



34405 
34406 
34407 
34410 
34411 
34412 
34413 
34414 
34415 
34416 
34417 
34420 



071573 
054363 

115137 

06^371 
015452 
124740 
064255 
006004 
160001 
030236 
114736 
124740 



ACCS6 



STA 

cpb 

JSB 
LDA 
JSB 
JMP 
LDB 

INB 
LDA 
IQR 
JSB 
JMP 



SYMTB RESET UNDER/OVERFLOW FLAG 
,♦4 UNDER/OVERFLOW ERROR(S)? 
RERRS*32,I YES 



.♦12B 
OUTCR 
SChEN, 
MAIN 



I 



1,1 
All 

S14SC> I 

schen,i 



NO, 

OUTPUT 
LINE 
ALLOW 

MORE 



A 
FEED 



INPUT 



FInD A STATEMENT'S SEqUE N TIAL POSITION 



** 

*** 
** 



UPON ENTRY (A) POINTS TO THE LAsT WQRD+1 OF t*E PROGRAM 

and (b) holds a sequence number, if (b) is larger than 
any sequence number in the program* exit to cp*i> with 

(B) POINTING TO THE LAST WOrD*1 OF THE PROGRAM, IF (B) 
FALLS BETWEEN TWO SEQUENCE NUMBERS, EXIT TO (P*2) WITH 
(B) P0IN T ING tO THE StAtEMENt WItH A LARGER SEQUENCE 
NUMBERt IF A STATEMENT IN THE PROGRaH HAS THE SEQUENCE 

number in (b>, exit to cp*3) with (B) po inting to this 

STATEMENT (IF IT IS AN EMBEDDED ERROR MESSAGE* STATEMENT 
TYPE » 0, DECrE M EnT THE ERROR CqUnT). In A tL CAsE$ TEmP*1 
• (B) UPON EXIT, 



34421 

34422 
34423 
34424 
34425 
34426 
34427 
34430 
34431 
34432 
34433 
34434 
34435 
34436 
34437 
34440 
34441 
34442 
34443 
34444 
34445 
34446 
34447 
34450 
34451 
34452 
34453 
34454 



075612 

071614 
064056 
054726 
026471 
065575 
055614 
026471 
160001 
003004 
041612 
002003 
026446 

002020 
026470 

060001 

002004 

160000 
044000 
015554 
026427 
060001 
040361 
160000 
010570 
002002 
026467 
003400 



*FDPS 



FNDPl 



FNDP2 



STB TEMP+1 


SAVE TEST SEQUENCE NUMBER 


STA TEMP+3 


SAVE TERMINATION POINTER 


LDB PBPTR 




CPB PBUFF 




JMP FNDP4 




L.DB SPROG 


START WITH First word of program 


CPB TEMP*3 


PROGRAM EXHAUSTED? 


JMP FNDP3+2 


YES, EXIT TO (P*i) 


LDA 1,1 


NO, IS 


CMA.INA 


PROGRAM 


ADA TEMp*l 


SEqUEnCE nUHBEr 


8ZA,RSS 


THE SAME? 


JMp FNDp2 


yes, Exit to (p*3) 


SSA 


NO, GREATER? 


JMP FNDR3+1 


yes, exit to <p*2) 


LDA B 


NO, CHECK 


INA 


STATEMENT 


LDA A, I 


LENGTH AND 


ADB A 


SET (B) TO 


JSB STUCK 


POINT TO NEXT 


JMP FNDPl 


STATEMENT 


LDA 1 


LOAD 


ADA ,+2 


STATEMENT 


LDA 0,1 


ERROR 


AND OPMSK 




S£A 


STATEMENT? 


JMP FNDP3 


NO 


CCA 


YES, 
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0045 
0046 

004; 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059** 

0060** 

0061** 

0062* 

0063* 

0064* 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 
0073 
0074 
0075 
0076** 

mu** 

0078** 

0079* 

0080* 

0081* 

0082* 

0083* 

0084 

0085 

0086 
0087 
0088 
0089 
0090 
0091 



34455 
34456 
34457 
34460 
34461 
34462 

34463 
34464 

34465 
34466 

34467 
34470 
34471 
34472 



041574 
071574 
002002 
026467 
103100 
060360 
003000 
110255 
170255 

102100 
035314 
035314 
075612 
125314 



FNQP3 
FNDP4 



ADA 
STA 
SZA 
JMP 
CLF 
LOA 
CMA 
AND 
STA 
STF 
ISZ 
ISZ 
STB 

JMP 



ERRCT 
ERRCT 

FN0P3 



TERR 

MAIN, I 

MAIN, I 



FNDPS 

FNDPS 

TEMP+1 

FnDP8,I 



DECREMENT 
ERROR COUNT 
ONLY ERROR? 
NO 

YES— 

SET FLAG 
TO SAY 

i NO EMBEDDED ERRORS! 



SAVE POINTER TO 
FI N A L STATEMENT 
** 



SEEN 



* FETCH PARENTHESIZED FORMgLA *** 



** 



AN END^OF-FORMULA OPERATOR FOLLOWS THE FORMULA 



34473 
34474 
34475 
34476 
34477 
34500 
34501 
34502 
34503 
34504 
34505 



064364 
015234 
015270 
015446 
115061 
015252 
015230 
015270 
015254 
015236 
125250 



#GtPF LDB ,*5 SAVE F S C 

JSB pRCUR LOCAL VARIABLES 

JSB SBPUD UPDATE POINTER 

JSB GETCR RECORD 

JSB SERRS*22,i LEFT 



JSB LPCK 
JSB FSC 
JSB SBPUD 

JSB FPOP 
JMP GETPF,I 

** 



• record an integer *** 



** 



PARENTHESIS 
DEMAND FORMULA 

RECORD END„OF„FORMULA OPERATOR 
RECORD RxGHT PAREnTHE$j8 
RESTORE FSC 

LOCAL VARIABLES 



PRGIN FLAGS THE PREVIOUS OPERATOR TO SAy 'INTEGER FOLLOWS*, 
STORE THE INTEGER AND EXIT WITH IT IN (B) AND THE FOLLOWING 
CHARACTER In (A), 



345®6 161572 

34507 030550 

34510 171572 

34511 015270 

34512 015464 

34513 175572 

34514 015270 

34515 125244 



#PGIN LDA SBPTR#I 
IOR INTEL 
STA SBPTR,I 
JSB SBPUD 
JSB BLDIn 
STB SBPTR,i 
JSB SBPUD 
JMP PRGIN, I 



SET 

* INTEGER FOLLOWS* 
FLAG 
ADVANCE POINTER 

build Integer 
record integer 

ADVANCE POINTER 
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0093** 

0094** 

0095** 

0096* 

0097* 

0093* 

0099* 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125** 

0126** 

0127** 

0128* 

0129* 

0130* 

0131* 

0132* 

0133* 

0134* 

0135* 

0136* 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0I44 

0145 

0146 

014; 



** 

BijILD AN INTEGER *** 

** 

MISSING OR ILLEGAL INTEGER EXITS TO (P+2) OF PRGIN IF GFLAG m m\, 
ELSE TO ERROR. A LEGAL INTEGER IS NON^ZERO AND LESS THAN 10000, 



34516 
34517 
34520 
34521 
34522 
34523 
34524 
34525 
34526 
34527 
34530 
34531 
34532 
34533 
34534 
34535 
34536 
34537 
34540 
34541 
34542 
34543 
34544 
34545 
34546 
34547 



002400 
071643 
015446 
026540 
015264 
026540 
071644 

061643 
100200 
000371 
000040 
041644 
006043 
026517 
035420 
115034 
035244 
125244 
065643 
006103 
026534 
044770 
002040 
026534 
065643 
125464 



*BL 



DI CLA 

STA PINtG 
JSB GETCR 
JMP BLDI2 
JSB olGCK 
JMP BLDI2 
STA pINTG+1 
LOA PINTG 
MPY .*10 



B L D 



BlD 



CLE 
ADA 
SEZ, 

Jmp 
n isz 

JSB 
ISZ 

JMp 

12 L° B 
CLE, 
JMP 
AD3 
SEZ 
JMP 
LDB 
JMP 



* SEEK RECORD REFERENCE 



PlNTG*! 
SZBfRSS 
#Bi,DI + l 
GFlAG 

S£RRS*1,I 

PRGIN 

PRGIN, I 

PlNTG 

SZB,RSS 

BLDI1 

maxsn 

BLDIl 
PINTG 

SlDIn,I 
** 
*** 

** 



INITIALIZE TO 
ZERO INTEGER, 



DIGIT? 

NO 

yes, save it 

MULTIPLY PREVIOUS 
INTEGER BY 10 

ADD IN 

NEW DIGIT 
OVERFLOW? 
NO 

yes# return on error? 

NO 

YES, EXIT TO 

(p*2) Qf PRGIN 
ZERO 

INTEGER? 
YES 
NO# INTEGER 

TOG LARGE? 
YES 
NO 



IF THE N EXT CHARACTER IS NOT «#*, RESTQRE SBpTR AS UPQN EnTRY 
AND EXIT TO (P + n WITH THE CHARACTER IN (A) # OTHERWISE CHECK 

c h aracter returned in (A) from filRF. if it is a comma or a 

SEMICOLON RECORD IT, EXIT TO (P*2) WITH THE CHARACTER IN (a) 
IF IT IS A SEMICOLON, IF A COMMA, PROCESS THE FOLLOWING RECORD 
REFERENCE AND EXIT TO (P+ 2 ) WITH CHARACTER FOLLOWING IT IN (A) 
(IF A SEMICOLON* RECqRD IT BEFqrE EXITI N G). 



34550 015502 #RECR JSB FILRF 

34551 026565 JmP RECR1 

34552 035500 ISZ REcRF 

34553 050433 CPA ,*54B 

34554 002001 RS3 

34555 026561 JMP RECR0 

34556 064514 LDB B2000 

34557 175572 STB SBPTR, I 

34560 015230 JSB FSC 

34561 064516 RECR0 LDB B3000 

34562 050454 CPA B73 



seek file reference 
none Found 

FOUND 

COMMA? 

YES 

NO 

RECORD 

COMMA 
PROCESS RECORD REFERENCE 

SEMICOLON? 
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0148 

0149 

0150 

0151 

0152 

0153 

0154** 

0155** 

0156** 

0157* 

0158* 

0159* 

0160* 

0161* 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172** 

0173** 

0174** 

0175* 

0176* 

0177* 

0178* 

0I79* 

0180* 

0181* 
0182* 

0183* 

0184* 

0185* 

0186* 

0187* 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 



34563 175572 

34564 125500 

34565 007400 

34566 045572 

34567 075572 
34570 125500 



STB SBpTR,I 
JMP RECRF,I 
RECRl CCB 

ADB SBpTR 
STB SBPTR 
JMP RECRF,I 



YES 

RESTORE 
SBPTR 



* SEEK FILE REFERENCE 



** 

*** 

** 



if the ngvt character is not a «#« return 
(a). otherwise record the file reference 
with the following character In ca). 



TO CPU) wITH IT IN 
AND RETURN TO (P*2) 



34571 
34572 
34573 
34574 

34 5 75 
34576 
34577 

34600 
34601 
34602 



035572 
015446 
125502 

015272 
033367 
125502 
015230 
035502 
125502 



#FILR 



ISZ SBPTR 




J3B GETCR 


NEXT 


JMp FILRF,I 




CCB 


CHARACTER 


JSB SYMCK 




OEF HATCHM 


A !#» ? 


JMP FILRFFI 


NO 


JSB FSC 


YES, PROCESS 


ISZ FILrF 




JMP FILRFfI 





FILE REFERENCE 



** 



SEARCH TABLE FOR MULTICHARACTER SYMBOL **« 



** 



UPON ENTRy (A) POINTS TO THE TABLE OF ACCEPTABLE 
SYMBOLS, (B) CONTAINS THE NUMBER OF ENTRIES IN THE 
TABLE (IN 2'S COMPLEMENT), MAXCR CONTAINS THE MAXIMUM 
ACCEPTABLE NUMBER OF CHARACTERS IN THE SYMBOL* AND 
S8pTR,I CONTAINS THE FI RST CHARACTER OF THE pRQ$pECTlVE 
SYMBOL IN BITS 7^0 AND EITHER OR THE SECOND CHARACTER 
IN BITS 15«8, IF mo ACCEpTAB L E SYMBOL 13 FQUN&# EXIT TO 
(P+l) WITH THE HALVES OF SBPTR, I SWAPPED AND THE INPUT 
STRING AS UPON ENTRY. ON SUCCESS EXIT TO (P*2) WITH 
THE OPERATOR CODE IN BOyH (A) AND s8PtR,U T^E NEW INPUT 
STRING BEGINS WITH THE CHARACTER FOLLOWING THE SYMBOL, 



34603 
34604 

34605 
34606 
34607 
34610 
34611 

3 4 6l? 
34613 
34614 
34615 
34616 
34617 
34620 
34621 
34622 



071404 
075406 
060255 
002004 

160000 

030220 
114736 
061572 
071410 
002404 
071432 
161572 
001727 
171572 
010474 
002003 



#TBSR STA 
STB 
LDA 
INA 
LDA 

lOR 
JSB 
LDA 
STA 



TABLE 

Lngth 

MAIN 



0/1 
SBp 

S14SCI 

SBPTR 

SMBGN 

CLA, INA 

STA SLENG 

LDA SBPTR, I 

ALF,ALF 

STA SBPTR, I 

AND B177 

SZArRSS 



SAVE TABLE ADDrEsS 

SAVE DUMBER Q? ENTRIES) 

SAVE 

BUFFER 

POINTER 

save current 

syntax buffer pointer 
count first character 

cf symbol 
left justify 

FIRST 

CHARACTER 
TWO 

CHARACTERS? 
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0204 


34623 


026642 




JMP 


TSRC4 


NO 


0205 


34624 


035432 


TSRCt 


IS2 


SLENG 


COUNT NEW CHARACTER 


0206 


34 6 25 


065406 




LDB 


LNGTH 


SET COUNTER 


0207 


34 6 26 


075436 




8TB 


COUNT 


FOR TABLE ENTRIES 


0208 


34 6 27 


061404 




LOA 


TABLE 


SET POINTER 


0209 


34 6 30 


071440 


TSRC2 


STA 


TBLPT 


TO NEXT ENTRY 


0210 


34 6 31 


161440 




LDA 


TBLPT,I 


TABLE ENTRY AND 


0211 


34632 


010366 




AND 


.+7 


CURRENT SYMBOL 


0212 


34633 


051432 




CPA 


SLENG 


OF SAME LENGTH? 


0213 


34634 


026657 




JMP 


TSRC6 


YES 


0214 


34635 


040362 


TSRC3 


ADA 


9 "" 


NO f UPDATE 


0215 


34636 


001100 




ARS 




TAB^E 


0216 


34637 


041440 




ada 


TBLPT 


POINTER 


0217 


34640 


035436 




isz 


COUNT 


MORE ENTRIES? 


0218 


34641 


026630 




JMP 


TSRC2 


yes 


0219 


34642 


015446 


TSRC4 


JSB 


GETCR 


NO, FETCH NEXT CHARACTER 


0220 


34643 


026710 




JMP 


TSR10 


NONE FOUND 


0221 


34644 


065432 




LDB 


SLENG 


symbol already 


0222 


34645 


055402 




CPB 


MAxCR 


OF MAXIMUM LENG T H? 


0223 


34646 


026710 




JMP 


TSR10 


YES 


0224 


34647 


006011 




SUB/ 


rRSS 


NOf EVEN-NUMBERED CHARACTER? 


0225 


34650 


026654 




JMp 


TSRC5 


NO 


0226 


34651 


131572 




IOR 


SBPTR, I 


YES, FILL LOWER HALF 


0227 


34652 


171572 




STA 


SBPTR,I 


OF LAST W 0RD OF SyMIOL 


0228 


34653 


026624 




JMP 


TSRCl 




0229 


34654 


015270 


TSRC5 


JSB 


SBpUD 


ADVANCE SYMBOL POINTER 


0230 


34655 


001727 




ALP, 


,ALF 


STORE CHARACTER IN 


0231 


34656 


02665^ 




JMP 


*«*4 


UPPER HALF OF WORD 


0232 


34657 


065440 


TSRC6 


LDB 


tblpt 


SET POINTER TO 


0233 


34660 


075442 




STB 


tsPtr 


SYMBOL IN TABLE 


0234 


34661 


065410 




LDB 


SMB9N 


SET (B) TO 


0235 


34662 


026666 




JMP 


♦ ♦4 


INPUT SYMBOL 


0236 


34663 


055572 


TSRC7 


CPB 


SBPTR 


ALL OF SYMBOL MATCHED? 


0237 


34664 


026674 




JMP 


TSRC8 


YES 


0238 


34665 


006004 




INB 




NOf ADVANCE 


023 9 


34666 


035442 




I8Z 


TSPTR 


POINTERS 


0240 


34667 


161442 




LDA 


TSpTRfl 


CpMpARE NEXT 


0241 


34670 


150001 




CPA 


lfl 


WORD OF SYMBOLS 


0242 


34671 


026663 




JMP 


TSRC7 


EQUAL 


0243 


34672 


061432 




LD* 


SLENG 


UNEQUAL, TRY 


0244 


34673 


026635 




JMP 


TSRC3 


NEXT TABLE S Y MBOL 


0245 


34674 


060255 


TSRC8 


LDA 


MAIN 


FREE 


0246 


34675 


002004 




INA 






0247 


34676 


160000 




LDA 


0* I 


SAVED 


0248 


34677 


030220 




IQR 


FBp 




0249 


34700 


114736 




JSB 


S14SC,I 


BUFFER SPACE 


0250 


34701 


161440 




L DA 


TB L PT,I 


LOAD ? ISOLATE 


025I 


34702 


010570 




AND 


OPMSK 


AND STORE 


0252 


34 7 03 


17H10 




STA 


SMBGN,I 


OPERATOR CODE 


0253 


34704 


035246 




ISZ 


TBSRH 


SET EXIT TO (P*2) 


0254 


34705 


065410 


TSRC9 


LDB 


SMBGN 


CORRECT SYNTAX 


0255 


34706 


075572 




STB 


SBPTR 


BUFFER POINTER 


0255 


34707 


125246 




JMP 


TBSRH,I 




0257 


347I0 


060255 


TSR10 


LDA 


MAIN 


RESTORE 


0258 


34711 


002004 




INA 






0259 


34712 


160000 




LDA 


0rl 


BUFFER 
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J8260 


34713 030221 


IOR RBP 




0261 


34714 114736 


JSB S14SC#I 


POINTER 


0262 


34715 026705 


JMP TSRC9 




0263** 


** 




0264*** FETCH A LETTER 


*** 




0266** 


** 




0266* 








0267* 


EXITS TO (P*l) IF 


NEXT CHARACTER NOT A LETTER, 


0268* 


OTHERWISE STORES 


IT IN TEMP*i, 


STORES FOLLOWING 


0269* 


CHARACTER IN TEMp 


♦2, AND EXITS 


TO (P*2) WITH 


0270* 


SECOND CHARACTER 






0271* 








0272 


34716 015446 #LTR 


JSB GETCR 


FIRST 


0273 


34717 000000 


NOP 


CHARACTER 


0274 


34720 015266 


JSB LETCK 


A LETTER? 


0275 


34721 125256 


JMP LTRfl 


NOr EXiT WiTH CHARACTER IN (A) 


0276 


34722 035256 


I3Z LTR 


YES, SET RETURN ADDRESS TO (P*2) 


0277 


34723 071612 


STA TEMP+1 


SAVE CHARACTER 


027a 


34724 015446 


JSB GETCR 


SAVE 


0279 


34 7 25 000000 


NOP 


SECOND 


0280 


34726 071613 


STA TEMP+2 


CHARACTER 


0281 


34727 125256 


JMP LTR, I 
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0283* 
0284* 

0285* 
0286* 
0287* 
0288* 
0289* 
0290* 
0291* 
0292* 
0293* 
2 94* 

0295* 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304* 

0305* 

0306* 

0307* 

0308* 

0309* 

0310* 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321* 

0322* 

0323* 

0324* 

0325* 
0326* 

0327* 

0328* 
0329 

0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 



** STORE An operand n*ME 

* 



** 

*** 

** 



OPERANDS ARE STORED AS 9-BIT QUANTITIES, BITS 8-4 
HOLD A LETTER (1-32 OCTAL FOR A-Z), BITS 3-0 INDICATE 
THE TYPE OF OPERAND: FOR A STRING, 1 AND 2 FOR 
SINGLY AND DOUBLY SUBSCRIPTED VARIABLES, 3 FOR A 
SUBSCRIPTED VARIABLE WITH DIMENSIONALITY NOT DEFINED 
LOCALLY, 4 FOR A SINGLE^LETTER SIMPLE VARIABLE, 5«16 
OCTAL FOR A LEUER-DIGIT SINGLE VARIABLE* AND %? OCTAL 
FOR A PROGRAMMER-DEFINED FUNCTION, 



34730 040320 #STOP ADA D100 



34731 

34732 
34733 
34734 
34735 
34736 
34737 



046004 

001700 
030001 
131572 
171572 
015270 
125260 



ADB 
ALF 
IOr 
IOR 
STA 
JSB 
JMP 



D53 



1 



SBPTR, I 

sbptr,i 

SBpUD 
STROP, I 



LETTER w ASCII CODE • 100 OCTAL 
DIGIT « ASCII CODE * 53 OCTAL 
COMPLETE 

OPERAND 
MERGE OPERATOR 

AND OPERAND 
SET POINTER TO 

FRESH WORD 



*• 



DEMAND A rIGHt pArENtHEsIS 



** 

*** 

** 



IF (A) HOLDS »)t OR ill RECORD A »)f 
WITH THE FOLLOWING CHARACTER IN Ca)# 



AND EXIT 
ELSE ERROR, 



34740 064355 #RPCK LDB 

34741 015272 JSB 

34742 033377 DEF 

34743 115062 JSB 

34744 060600 LDA 

34745 171572 STA 

34746 015270 JSB 

34747 015446 JSB 

34750 000000 NOP 

34751 125254 J M P 
* 
** CHECK FOR A DIGIT 



.-2 

symck 

RPARN-i 

SERR$+23,I 

RPOP 

SBPTR, I 

SBPUD 

GETCR 



OR 
NO 



»3 » ? 



RPCK,I 
** 
*** 
** 



YES, RECORD 

A «)' 
RECORD A NULL 
FETCH 

NEXT 

CHARACTER 



OPERAND 



ENTFR WITH CHAKACTER IN (A), IF NOT 
To CP + U WITH CHARACTER I N (*)* ELSE 
WITH DIGIT (BINARY) IN ( A) AND (B), 



A DIGIT, EXIT 

exit tc (p+2) 



34752 064000 #DGCk L^B 

34753 044322 ADB D72 

34754 006021 SSB,RSS 

34755 125264 JMP DIGCK,I 

34756 044371 ADB # *12B 

34757 006020 SSB 

34760 125264 JMP DIGCK,I 

34761 060001 LOA 1 

34762 035264 ISZ DIGCK 

34763 125264 JMp DIGCK,! 



ASCjx 

72B OR 
GREATER? 
YES 
NO, ASCII 578 

OR LESS? 
YE£ 
NO, LOAD 

DIGIT 

INTO (A) 
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0339** 




** 






0340*** CHECK FOR 


A LETTER *** 






0341** 




** 






0342* 












0343* 


en t ef 


I WITH CHARACTER IN (A). 


EXIT TO (P+2) IF A 


0344* 


LETTER, ELSE 


EXIT TO (PM) f 


(A) 


IS NOT CHANGED, 


0345* 












0346 


34764 


064000 


tfLjCK LDB 




ASCII 


0347 


34765 


046001 


ADB D133 




133B OR 


0348 


3*766 


006021 


SS8,RSS 




GREATER? 


0349 


34767 


12526& 


JHP L£TCK#I 


vFft 


0350 


34770 


044411 


ADB t *32B 




NO, ASCII 1013 


0351 


34771 


006021 


SSB # RSS 




or greater? 


0352 


34772 


035266 


ISZ LETCK 




YES 


0353 


34773 


125266 


JMP LETCK, 


I 


NO 


0354** 








** 


0355*** CHECK FqR 


sIngle*character 


OPERATORS *** 


0356** 








** 


0357* 












0358* 


ENTER WITH CHARACTER IN (A) AND 


NUMBER OF ACCEPTABLE 


0359* 


OPERATORS IN 


(B) IN 2»S COMPLEMENT. (P*i)*2 POINTS 


0360* 


TO THE LIST 


OF ACCEPTABLE OpERATORS, ON A MATCH 


0361* 


EXIT 


TO CP+3) AFTER RECORDING 


i THE OPERATOR CODS* 


0362* 


WHICH REMAINS IN (A)„ ON NO 


MATCH EXIT TO <P*2) 


0363* 


WITH 


THE CHARACTER IN (A). 






0364* 












0365 


34774 


075436 


#SYCK STB COUNT 




SAVE COUNT OF POSSIBLE MATCHES 


0366 


34775 


001727 


ALF,ALF 




POSITION 


0367 


34776 


030417 


I QR f <v«3£ 




CHARACTER 


0368 


34777 


165272 


LDB SYMCK, 


I 


LOAD 


0369 


35000 


035272 


ISZ SyMCK 




STARTING 


0370 


35001 


044361 


SYMCl ADB «* 2 




TABLE ENTRY 


0371 


35002 


150001 


CPA !,I 




MATCH? 


0372 


35003 


027011 


JMP SYMC2 




YES 


0373 


35004 


035436 


IS* COUNT 




NO, POSSIBILITIES I.EFT? 


0374 


35005 


027001 


JMP SYMCl 




YES 


0375 


35006 


001727 


ALF,ALF 




NO* 


0376 


35007 


010474 


AND B177 




RESTORE 


0377 


35010 


125272 


JMP SYMCKf 


I 


CHARACTER 


0378 


35011 


044356 


SYMC2 ADB t „l 




FETCH 


0379 


35012 


160001 


LDA 1,1 




AND 


0380 


35013 


010570 


AND OPMSK 




STORE 


0381 


35014 


171572 


STA SBPTR, 


1 


OPERATOR 


0382 


35015 


035272 


ISZ SYMCK 




CODE 


0383 


35016 


125272 


JMp SYMCK, 


I 
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0385** 








** 


0386*** SEARCH FOR 


PRINT FUNCTIONS *** 


0387** 








** 


0388* 












0389* 


SEARCH THE INPUT 


STRING FOR A i 


'TAB', 'LIN' OR 'SPA' FUNCTION 


0390* 


IF FOUND* RECORD 


IT AND EXIT TO (P+l) f OTHERWISE RESTORE THE 


0391* 


INPUT STRING 


AND 


syntax buffer 


POINTER AND EXIT TO (P*2) t 


0392* 












0393 


35017 


064354 


*PFSH IDB „.*3 


3 POSSIBLE FUNCTIONS 


0394 


35020 


060624 




IDA ATAB 


SEARCH 


0395 


35021 


015246 




JSB TBSRH 


FOR THEM 


0396 


35022 


027035 




JMp pFsHl 


NONE FOUND 


0397 


35023 


007400 




CCB 


BACKUP 


0398 


35024 


045572 




ADB sBpTR 


BUFFER 


0399 


35025 


075572 




STB SBPTR 


POINTER 


0400 


35026 


001727 




ALF,ALF 


CONSTRUCT 


0401 


35027 


001723 




ALF,RAR 




0402 


35030 


130001 




IOR B,I 


FUNCTION 


0403 


35031 


030572 




IOR PDFFL 




0404 


3503^ 


170001 




STA B,I 


OPERAND 


0405 


35033 


015250 




JSB GETPF 


FETCH PARENTHESIZED FORMULA 


0406 


35034 


125546 




JMP PF S RH,I 




0407 


35035 


015450 


PFSHI jSB BCkSP 


BACKUP 


0408 


35036 


007400 




CCB 


TO POINT 


0409 


35037 


045572 




ADB SBpTR 


Following 


0410 


35040 


075572 




STB SBPTR 


LAST OPERATOR 


0411 


35041 


035546 




ISZ PFSRH 


EXIT TO 


0412 


35042 


125546 




JMP PFSRH, I 


(P*2) 
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0414** 

0415** 

0416** 

0417* 

0418* 

04*9* 
0420* 

0421* 

0422* 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 
0435 
0436 
0437 
0438 
0439 
44 
0441 
0442 
0443 
0444 
0445 
0446 

0447 
044$ 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 

0465 
0466 
0467 
3468 
0469 



* ALLOCATE CqM STORAGE 



** 

*•• 

** 



THE BEGINNING OF THE PROGRAM IS SCANNED FOR <COM 8TATEMENT8>, THE 

AMOUNT OF COM STORAGE NEEDED IS COMPUTED, A POINTER (8PROG) TO 

THE START OF THE PrOGrAM Is CrEAtED AND THE PrOGrAM Is SHIFTED TO 
HIGHER CORE TO ALLOW FOR THE COM STORAGE, 



35043 

lR/< A A 

35045 
35046 
35047 
35050 
35051 
35052 
35053 
35054 
35055 
35056 
35057 
35060 
35061 
35062 
35063 

35064 
35065 
35066 
35067 
35070 
35071 
35072 
35073 
35074 
35075 
35076 
35077 
35100 
35101 
35102 
35103 

35104 
35105 
35106 

35107 
35110 
35H1 
35112 
35113 
35114 

35115 
35116 

35H7 
35120 
35121 



006400 
075512 
064726 
075616 
161616 
071566 
035616 
145616 
075236 
035616 
161616 

010570 
050534 

027106 
061512 
002003 
125516 

040726 
071575 
007400 
044056 

060001 
041512 
071512 
002004 
070056 
160001 
171512 
054726 
126516 
044356 
003400 
041512 
071512 
027075 
161616 
010376 
002002 
027122 
035616 
035616 
161616 
002004 

001100 

002004 
035616 
327156 



*ALCO 



ALCqI 



ALCq6 



ALCO0 



ALCq2 



CLB 
STB 
LDB 
STB 
LDA 
STA 
ISZ 
ADB 
STB 
ISZ 
LDA 
AND 

CPA 

JMp 

LDA 

SZA, 

JMP 

ADA 

STA 

CCB 

ADB 

LDA 

ADA 

STA 

INA 

STA 

LDA 

STA 

CPB 

JMP 

ADB 

CCA 

ADA 
STA 

JMP 
LDA 
AND 
SZA 

JMP 

ISZ 
ISZ 

LDA 

INA 

ARS 
INA 
ISZ 

JMP 



DEST 

PBUFF 

STpTR 

STpTR,I 

,LNUM 

STPTR 

STPTR, I 

NSPTR 

STPTR 

STPTR, I 

OPMSK 

COMOP 

ALC 2 

DEST 
RSS 

ALCOM^i 

PBUFF 

SPROG 

PBPTR 
1 

DEST 
DEST 

PBPTR 

1,1 

DEST,I 

PBUFF 

ALCQM,I 

,*»1 

DEST 
DEST 
ALCQ0 
STPTR, I 
• + 17B 

ALC03 

STPTR 
STPTR 
STPTR,! 



STPTR 
ALC07*l 



SAY NO COMMON 
ALLOCATED YET # 

POINTER To FIRST STATEmEnT 
SAVE STATEMENT 
NUMBER 



POINTER TO NEXT STATEMENT 
EXTRACT 

operator 
com statement? 
yEs 

GET TOTAL CqMM on aLLqCATED 

exit if there were 

no com statements 
program beginning moves by 

amount of common aluocated 

POINTER To FIRST 

WORD TO BE MOVED 
POINTER TO 

FIRST DESTINATION 
LOCATION 
RESET END OF 

PROGRAM POINTER. 
MOyE A 

WORD 
DONE? 
EXIT 
NO-*BgMP 

pointers 
and loop 

EXTRACT 

OPERAND 
STRING? 
NO 
YEs«*« 

EXTRACT 
LENGTH 
COMPUTE 

STORAGE 
REQUIRED 
BUMP PAST RIGHT BRACKET 
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0470 


35122 


040353 


ALC03 


ADA 


.-* 




0471 


35123 


002020 




SSA 




SIMPLE VARIABLE? 


0472 


35124 


027127 




JMP 


ALCQ4 


NO 


0473 


35125 


002404 




CLA, 


>INA 


YES— ALLOW TWO WORDS 


0474 


35126 


027155 




JMP 


ALC07 




0475 


35127 


035616 


AuC04 


isz 


STPTR 


MUST BE ARRAY 


0476 


35130 


035616 




isz 


STPTR 




0477 


35131 


165616 




LDB 


STPTR, I 


EXTRACT LENGTH 


0478 


35132 


035616 




ISZ 


STPTR 




0479 


35133 


161616 




LDA 


STPTR, I 


GET NEXT 


0460 


35134 


010570 




AND 


OPMSK 


OPERATOR 


0481 


35135 


050602 




CPA 


SCOMM 


SUBSCRIPT COMMA? 


0482 


35136 


027141 




JMP 


* + 3 


YES 


0483 


35137 


060001 




IDA 


1 


NO 


0484 


35140 


027150 




JMP 


ALC05+1 




0485 


35141 


060001 


» 


LDA 


I 


COMPUTE 


0486 


35142 


035616 




isz 


STPTR 


ARRAy 


0487 


35143 
35144 


100200 
101616 




MPY 


STPTR, I 


SIZE 


0488 


35145 


006002 




SZB 




TOO BIG? 


0489 


35146 


127172 




JMP 


CU31A,I 


YES 


0490 


35H7 


035616 


ALCO5 


ISZ 


STPTR 


BUMP PAST 


0491 


35150 


000066 




CLE, 


,ELA 




0492 


35151 


002061 




SEZi 


.SSA, RSS 


TOO BIG? 


0493 


35152 


000035 




SLA, 


,ERA 


NO 


0494 


35153 


127172 




JMP 


CUSiA,I 


YES 


0495 


35154 


040361 




ApA 


.♦2 


ALLOW 4 WORDS FOR DIMENSIONS 


0496 


35155 


001000 


ALC07 


ALS 




DOUBLE EVERYTHING 


0497 


35156 


041512 




9^ Of ^% 


DEST 


UPDATE 


0498 


35157 


071512 




STA 


DEST 


POINTER 


0499 


35160 


040472 




ADA 


,100 




0500 


35i6l 


015326 




JSB 


CUSP 


CHECK FOR STORAGE OVERFLOW 


0501 


35162 


035616 




ISZ 


STPTR 




0502 


35163 


065616 




LDB 


STPTR 




0503 


35164 


055236 




CPB 


NSPjR 


end of statement 


0504 


35165 


002001 




RSS 




YES 


0505 


35166 


027106 




JMP 


AL.C02 


NO 


0506 


35167 


054056 




CPB 


P8PTR 


END OF PROGRAM? 


0507 


35170 


027061 




JMP 


ALC06 


YES 


0588 


35i7i 


027047 




JMP 


ALCOl 


NO 


0509* 














0510 


35172 


035201 


CUS1A 


DEF 


CUSP1 




0511** 








, 


** 


0512*** INSURE SPACE FOr 


NEW 


ENTRY *** 


0513** 








1 


** 


0514* 














0515* 


A CHECK I s MADE tHAj THE UNUS ED 


USE* SPACE I S A T 


0516* 


LEAST A S URGE A s 


THE NUMBER OF 


WORDS SPECIFIED BY 


0517* 


CAK 


exit t 


ERROR IF 


NO T SO, 


(B) IS NOt CHANGED. 


05*8* 


on normal exit u) 


CONTAINS ITS 


ENTRY VALUE ♦ (PBPTR), 


0519* 














0520 


35173 


040056 


#CUSP 


ADA 


PBPTR 


AT LEAST 


0521 


35174 


071474 




StA 


Cul 


(A) WORDS 


0522 


35175 


003000 




CMA 




OF AVAILABLE 


0523 


35176 


040716 




ADA 


LWAUS 


USER 


0524 


35177 


002021 




SSA, 


,RSS 


SPACE? 
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0525 35200 

0526 35201 

0527 35202 

0528 35203 

0529 35204 
0530** 
0531*** 
0532** 
0533* 
0534* 
0535* 
0536 

0537 
0538 
053 9 
0540 
0541 
0542 

0543** 
0544*** 

0545** 
0546* 

0547* INSI 
0548* AS A 
0549* 

0550 35214 

0551 35215 

0552 35216 

0553 35217 

0554 35220 

0555 35221 

0556 35222 
0557** 
0558*** ST 
0559** 
0560* 



027203 JMP **3 YES 
015322 CUSP1 JSB DCMPL NO, DECOMPILE 
USUI JSB RERRS+10,1 OUT OF STORAGE 
061474 LOA CU1 RETURN WITH NEW 
125326 JMP CUSP, I VALUE OF PBPTR 

** 
ADVANCE SYNTAX BUFFER POINTER *** 

** 



(A) AND (B) REMAIN AS UPON ENTRY 



35205 
35206 

35207 
35210 
35211 
35212 
35213 



Ofc 



7 1306 #SBPU STA SBT0 SAVE (A) 

035572 ISZ SBPTR ADVANCE POINTER 

061572 IDA SBPTR BUFFER 

051470 CPA SYNTQ OVERFLOW? 

115072 JSB SERRS+31,1 YES 

061306 LDA SBT0 NO, RETRIEVE CA) 

125270 JMP SBPUD,I 

** 
MAND A LEFT PARENTHESIS *** 

** 



I e i 



ST CHARACTER IN (A) BE » ( 



OR • (• RECORD IT 



0561* 

0562* 

0563 

0564 

0565 

0566 

0567 

0568 

0569 



064355 #LPCK LDB ,-2 »(« 
015272 JSB SYMCK OR 
033403 DEF LBRAC-1 » [i ? 
115061 JSB SERRS*22 f l NO 
060556 LDA LPOP YES, RECORD 
171572 STA SBPTR, I A '(' 
125252 4MP LPCK r I 

** 
AtEMENt LENGTH CHECKER *** 

** 

CHECK THAT (A) (THE STATEMENT LENGTH) IS BET W EEN 3 AND 105, 

IF NOT, EXIT TO ERROR, 

35223 040354 *sLCK ADA .-3 

35224 002020 SSA 

35225 115160 JSB RERRS+49,1 TOO SMALL 

35226 042005 ADA M103 

35227 002020 SSA 

35230 125554 JMp STLCK,! K 

35231 115160 JSB RERRS+49,1 TOO BIG 
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0002 

0003 

0004 

0005 

0006 

000/ 

0008 

0009* 

0010* 

0011* 

00i2* 

0013* 

0014* 

0015* 

0016* 

0017* 

0018* 

0019* 

0020* 

0021* 
0022* 
0023* 
0024* 

0025* 

0026* 
0027* 

0028* 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

\d&57 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



36000 
36000 
36001 
36002 
36003 
360^4 
36005 



000371 
037024 
037015 
041673 
075045 
067000 



A. 10 

APTR2 

APTRl 

DONEA 

CSVRT 

MATOP 



ORG 
DEF 
DEF 
DEF 
DEF 
DEF 
OCT 



36000B 

, + 10 

SYMT7 

SYMT6 

EXIT3 

C3AV2 

67000 



ft************************* 
*•* ** 

** 'COMPILE' THE PROGRAM ** 
*•* *• 

ft************************* 



S Y MTBs0 I 
SYMBOLIC 
COMPILED' 
STATEMENT 
SYMtB * s 
ENTRIES C 
FUNCTIONS 
CONTaININ 

building 
is set TO 

LOWEST Ny 



MPLIES THE 

FORM, SYM 

: VARIABLE 

REFERENCE 

PTr implie 

ONTaIN POI 

TO THE DE 

G INFORMaT 

t he symbol 

the state 

mbered sta 



PROGRAM IS I 
TB#0 AND SPTR 

OPERANDS ARE 
S ARE REPLACE 
S THE PrOGrAM 
NTERS TO A Va 
FINING FORMUL 
ION pOR EACH 

TABLE, T HE I 
HENT REFERENC 
TEMENT IS THE 



n 'source' j all operands are in 
=0 implies the program is *semi^ 

pointers to a symbol table and 
d by absolute pointers, 

is 'compiled' 5 the symbol table 
lue Table or in the case of 
a, and a table is built 
file in the program, before 

N T ERPREtER'S PROGRAM COuNyER 
ED BY THE 'RUN' COMMAND (THE 
DEFAULT CHOICE). 



36006 
3g00/ 
36010 
360H 
36012 
36013 
36014 

36015 
36016 
36017 
36020 
36021 
36022 
36023 
36024 
36025 
36026 
36027 

36030 
36031 
36032 
36033 
36034 
36035 
36036 
36037 
36040 
36041 
56042 



064726 
0^40^6 
126003 
006404 
075334 
015462 
015446 

026024 
015450 
015464 
075334 

05^374 
002001 
115113 
103100 
160255 
03^377 
170255 

102*00 
064726 
055575 
015516 
061573 
002003 
060056 
065334 
015314 
126003 

000000 



CMPLE LDB 
CPB 
JMp 
CLB, 
STB 
JSB 
JSB 
JMP 
JSB 
JSB 
STB 
CPA 
RSS 
JSB 

CMP15 CLF 

IDA 
IOR 
STA 
STF 
LDB 
CPB 
JSB 

LDA 
SZA, 

LDA 
LDB 
JSB 
JMP 
NOP 



PBUFF 

PBPTR 

DqnEA,I 

INB 

PRGCT 

SlNlT 

GETCR 

CMP15 

BCKSP 

BL^IN 

PRGCT 

. + 15B 

RERRS+1 



MAIN, I 

UNABT 

MAIN, I 



PBUFF 

SPROG 

AlCOM 

SYMTb 

RSS 

PBPTR 

PRGCT 

FNDPS 

DONEA, I 



NULL 

PROGRAM? 
YES 
INITIALIZE 

PROGRAM COUNTER 
SIMPLE 

'RUN' ? 
YES 
NO 

DEMAND AN INTEGER 
SAVE STARTING STATEMENT NUmBEr 
END OF RECORD? 
YES 
,1 NO 

DON'T 
ALLOW 
ABORTS 



NO f COM STORAGE ALLOCATED? 

NO-^DO IT 

GET SYMBOL TABLE POINTER 

IS PROGRAM COMPILED ? 

NO, USE PBPTR 

GET STARTING STATEMENT NUMBER 

SEEK REFERENCED STATEMENT 

NOT WITHIN PROGRAM 

SET 
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0058 


36043 


075334 




STB PRGCT 


PROGRAM COUNTER 


0059 


36044 


060255 


CMPU 


LDA mAI N 


TELL 2114 


0060 


36045 


002004 




INA 




0061 


36046 


160000 




LDA 0,1 


THAT USER 


0062 


36047 


030223 




IOR UIR 




0063 


36050 


114736 




JSB S14LP,1 


IS RUNNING 


0064 


36051 


061573 


CMPL0 


LDA SYMTB 


program 


0065 


36052 


002003 




SZA,RSS 


UNCOMPILED? 


0066 


36053 


026070 




JMP CMP00 


YES 


0067 


36054 


051230 




CPA S PTR 


NO, COMPILED? 


0068 


36055 


002001 




RSS 


YES 


0069 


36056 


026066 




JMP CMP16 


NO, MUST BE SEMI-COMPILED 


0070 


36057 


065771 




LDB ASINP 




0071 


36060 


006003 




SZBrRSS 


ASSIGN STATEMENT SEEN? 


0072 


36061 


027220 




JMP VALUE 


NO 


0073 


36062 


015520 




jSB RSTPT 


YES, FA K E SEmI«ComPIlE° P : 


0074 


36063 


061573 




LDA SYMTB 




0075 


36064 


071230 




STA SPTR 




0076 


36065 


026433 




JMP CMP18 




mil 


36066 




CMP16 


EOU * 




0078 


36066 


071230 




STA SPTR 




0079 


36 67 


026422 




JMP CMPi7 




0080 


36070 


071502 


CMP00 


STA FILTB 




008i 


36071 


103100 




CLF 




0082 


36072 


060361 




LDA CFLAG 


SET 


0083 


36073 


064272 




LDB MLINK+1 




0084 


36074 


044341 




ADB # ^?LInK 


PROGRAM MODE 


0085 


36075 


130001 




IOR 1,1 




0086 


36076 


170001 




STA 1,1 


TO 'COMPILED* 


0087 


36077 


102100 




STF 
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0089** 
0090** 

0091** 

0092* 

0093* 

0094* 

0095* 

0096* 

0097* 
0098* 
0099* 
0100* 
0101* 

0102* 

0103* 

0104* 

0105* 

0106* 

0107* 

0108* 

0109* 

0110* 

0111* 

0112* 

0113* 

0114 

115 

0116* 

0117* 

0118* 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 



* BuILD jHE SYMBOL TABLE 



** 

*** 

** 



the program is examined statement by statement. all 
variable operands are replaced by pointers (relative 
to the start of the symbol table) to two word entries, 
symbol table entries keep the symbol in the first word 
and information in the second. for functions the 
second word contains a pointer to the defining formula 
(0 before fi n di n g the <def stateme n t», f r slmple 
variables the second word is used to form a linked list 

OF UNMATCHED For^VArIABLEs (otherwise it is 0) with 
flink pointing to the innermost nested for«varlable, 
if the simple variable appears in a <com statement* 
the second word is set to -l, for array and string 

VARIABLES THE SECOND WOrD Is UNLESS THE VARIABLE 

appears in a <dim statement^ in which case it 
points to The Dimensions in the code* or it appears 
in a <com statement^ in which case it is the 
negation of a pointer to the dimensions, 
program integers are replaced by a pointer to the 

STATEMENT THEY REFERENCE. ON EXIT TO VaLUE OR DCMPL# 
SpTR POINTS To THE FIRST WqRD NOT PROCESSED. 



36100 064056 
36i0i 075573 



LDB PBPTR 
STB SYMTB 



CREATE POINTER 
TO SYMBOL TABLE 



count number of statements in p r og r am 



36102 002404 CLA, INA 

36103 065575 LDB SPROG 

36104 006004 CMP01 INB 

36105 144001 ADB 1,1 

36106 044356 ADB .-1 

36107 054056 CPB PBPTR 
36H0 026H3 JMP CMP02 

36111 002004 INA 

36112 026104 JMp CMP01 

36113 006400 CMP02 CLB 

36114 100400 DlV .+32 
36H5 000417 

36116 007000 CMB 

36117 002003 SZA,RSS 

36120 006004 INB 

36121 002004 INA 

36122 071617 STA STCT1 

36123 075613 STB STCT2 

36124 064650 LDB ERScA 

36125 075606 STB NUMPT 



INITIALIZE STATEMENT COUNTER 

MOVE TO 
NEXT 

STATEMENT 
DONE? 
YES 
NO— BUMP COUNTER 

DIVIDE # OF STATEMENTS 
INTO 32 PARTS 

SET B«-l-# OF OVERSIZE GROUPS, 
BUT IF <32 STATEMENTS USE ** 

SET A TO SIZE OF LARGER GROUP 
SET COUNTER 

SET POINTER TO TA B LE 
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0139* 
0140* 
0141* 

0142* 

0143* 

0144* 

0145 

0146 

01 4 7 
0148 
0149 
0150 
0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167* 

0168 

0169 

0170 

0171 

0172 

0173 

0174* 

0175* 

0176* 

0177 

0178 

0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 



BUILD A TABLE OF 64 WORDS. THE FIRST 32 CONTAIN THE SEQUENCE 
NUMBERS OF 3TATEMNTS WHICH DIVIDE THE PROGRAM INTO 32 ALMOST 
EQuAL PARTS* THE SECOND 32 WORDS ARE THE ABSOLUTE ADDRESSES 
OF THESE STATEMENTS 



36126 
36127 
36130 
36131 
36132 
36133 
36134 
36135 
36136 
36137 
36140 
36141 
36142 

36143 
36144 
36145 
36146 
36147 
36150 
36151 
36i52 
36153 

36154 
36155 
36156 
36157 
36160 

36161 



061575 
044417 

170001 
164000 
175606 
035606 
035613 
006401 
007400 
045617 
075617 
007000 
075614 
065606 
054646 
026154 
035614 
002005 
026127 
140000 
040356 
026146 

002404 
07i234 
015324 
036404 
002041 
026237 



CMP03 



IDA 

ADB 

STA 

LDB 

STB 

ISZ 

ISZ 

CLB, 

CCB 

ADB 

STB 

CMB 

STB 

LDB 

CPB 

JMP 

ISZ 

INA, 

JMp 

ADA 

ADA 

JMP 



SPROG 

.♦32 

1,1 

0,1 

NUMpT,I 

NUMPT 

STCT2 

RSS 

STCT1 
STCTt 

STCT3 

NUMPT 

ERS32 

CMP04 

STCT3 

RSS 

CMp03 

0,1 

• -1 
*«5 



CMP04 CLA,INA 

ST* FLINK 
JSB PRNST 
DEF CMPll 
SEZ,RSS 
JMP CMPL3 



36162 
36163 
36164 
36165 
36166 
36167 
36170 
36171 
36172 
36173 
36174 
36175 
36176 
36177 
36200 
36201 
36202 
36203 



040353 
002021 
026702 
035230 
065230 
055236 
026404 
064650 
160001 
003000 
141230 
002024 
026206 
006004 
054646 
002001 
026172 
044416 



ADA 

SSA, 
JMp 

CMPL1 ISZ 
LDB 
CPB 
JMP 
LDB 

CMP05 LDA 
CMA 
ADA 
SSA, 
JMP 
INB 
CPB 
RSS 
JMP 
ADB 



# -»4 

RSS 

PRNS2 

SPTR 

S^TR 

NSPTR 

CMPn 

ERSCA 

1,1 

SPTR,I 

INA 

CMP06 

ERS32 

CMP05 
.♦31 



set absolute address into table 
set sequence # info tabu 

bump pointers 
test for any more 
oversize groups 
compute size of next group 



TEST FOR DONE 



COMPgTE FIRST STATEMENT 
IN NEXT GROUP 



3E7 FQR.QuEuE T° EMPjy 
INITIALIZE 
COMPILATION 

WAS FLAG BIT SET? 
NO 



* PROCESS NON^VARIABLE OPERAND ** 



PROGRAM 

INTEGER? 
NO, MUST BE A p ArAMEtEr 
YES, MOVE 

TO NEXT WORD 
STATEMENT FINISHED? 
YES 

BEGin SEARCH FOR REFERNECED STMT 
FIRST STATEMENT »>S0U6HT STATE,? 



FOUND ONE 
TEST FOR DONE 
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0195 


36204 


061573 




lda symtb 


STATEMENT IS IN LAST CROUP 


0196 


3620b 


026215 




JMP CMP07 




0197 


36206 


044417 


CMP06 


ADB .+32 


B«> FIRST STATEMNT IN CROUP 


0198 


36207 


002003 




S2A,RSS 


TEST FOR FOUND 


0199 


36210 


026230 




JMP CMP09 




0200 


36211 


054646 




CPB ERS32 


TEST FOR NOT THERE 


0201 


36212 


026235 




JMP CMPL2 


ERROR 


0202 


36213 


160001 




LDA 1,1 


SET A«> FIRST WORD BEYOND CROUP 


0203 


36214 


044356 




ADB ,-1 




0204 


36215 


164001 


CMP07 


LDB 1,1 




0205 


36216 


071617 




S?A StCjI 


SAVE END TEST 


0206 


36217 


161230 




LDA SPTR,I 


GET SEQUENCE NUMBER 


0207 


362Z0 


006004 


CMP08 


INB 


BUMP STATEMENT POINTER 


0208 


36221 


144001 




ADB 1,1 




0209 


36222 


044356 




ADB # -i 




0210 


36223 


055617 




CPB STCTl 


TEST FOR DONE 


0211 


36224 


026235 




JMP C M Pl2 


l abe l not found— error 


0212 


36225 


150001 




CPA 1,1 


TEST FOR FOUND 


0213 


36226 


026231 




JMP CMp09*i 




0214 


36227 


026220 




JMP CMP08 




0215 


36230 


164001 


CMP09 


LDB 1,1 




0216 


36231 


175230 




STB SPTR,I 


FOUND„„REPLACE INTEFER 


0217 


36232 


035550 




132 INFST 


IN 'USING 1 STATEMENT? 


0218 


36233 


026165 




JMP CMPL1 


NO 


0219 


36234 


026702 




JMP PRN82 


YES 


0220 


36235 


015322 


CMPL2 


jSB DCMPL 


DECOMPILE 


0221 


36236 


115077 




JSB RERRSfl 


NON-EXISTENT STATEMENT NUMBER 


0222* 








* 




0223** PROCESS VARIABLE 1 


operand ** 




0224* 








* 




0225 


36237 


0/161 1 


CMPL3 


STA STMP1 


SAVE 3YMB0L 


0226 


36240 


010376 




AND t +l7B 




0227 


36241 


050376 




CPA .-M7B 


FUNCTION? 


0228 


36242 


026326 




JMp CMpL6 


YES 


0229 


36243 


00p003 




SZAfRSS 


NO, STRING VARIABLE? 


0230 


36244 


026347 




JMP CmPL 9 *3 


YES 


0231 


36245 


040353 




ADA .-4 


NO, 


0232 


36246 


002020 




SSA 


ARRAY? 


0233 


36247 


026352 




JMP CMPL9 


YES 


0234 


36250 


015316 




JSB SSYMT 


NO, COMPILE 


0235 


36251 


035230 




ISZ SPTR 


SIMPLE VARIABLE 


0236 


36252 


054534 




CPB COMQP 


'COM 1 ? 


0237 


36253 


026317 




JMP CMP41 


YES 


0238 


36254 


055773 




CPB FOROP 


NO, F0R,VARIABLE OF tFOR»? 


0239 


36255 


026300 




JMP CMPL4 


YES 


0240 


36256 


054562 




CPB NXTOP 


NO, FOR-VARIABLE OF »NEXT» ? 


0241 


36257 


002001 




RSS 


yes 


0242 


36260 


026703 




JMP PRNS2+1 


NO 


0243 


36261 


065234 




LDB FLINK 




0244 


36262 


006020 




SSB 


MAKE 


024 5 


36263 


007004 




CMB,INB 


POSITIVE 


0246 


36264 


055612 




CPB STMP2 


MATCH LATEST <FOR STATEMENT* ? 


0247 


36265 


026270 




JMP **3 


YES 


0248 


36266 


015322 




JSB DCMPL 


NO, DECOMPILE 


0249 


36267 


115100 




jSB RERRS+1,! 


NEXT NOT PRECEDED BY PROPER FOR 


0250 


36270 


065234 




LDB FLINK 
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0251 


36271 


161612 




LDA STMP2,I 


REMOVE 


0252 


36272 


071234 




8TA FUNK 


VARIABLE 


0253 


36273 


006020 




SSB 


WAS VARIABLE IN COMMON? 


0254 


36274 


007401 




CCB,RSS 


NO 


0255 


36275 


006400 




CLB 


NO 


0256 


36276 


175612 




StB ST*P2,I 


RESET A S SIMPLE VARIABLE 


0257 


36277 


026703 




JMP PRNS2+1 




0258 


36300 


I61612 


CMPL4 


LDA STMp2rI 


LOAD SECOND WORD OF TABLE EN 


0259 


36301 


002002 




SZA 


ALREADY In FOR-QUEUE? 


0260 


36302 


002007 




INA r SZAfRSS 


COMMON VARIABLE 


0261 


36303 


026306 




JMP CMPL5 




0262 


36304 


015322 




jsb dcmpl 


DECOMPILE 


0263 


36305 


115101 




JSB RERR3*2,j 


NESTED "FOR'S" WJTH SA«E VAR 


0264 


36306 


065612 


CMPL5 


LDB STMP2 




0265 


36307 


161612 




LDA STMP2,i 


WAS VARIABLE 


0266 


36310 


002020 




SSA 


IN COMMON? 


0267 


36311 


007004 




CMB f INB 


YES 


0266 


36312 


061234 




LDA FLINK 


ADD 


0269 


36313 


171612 




STA STMP2,I 


TO 


0270 


36314 


075234 




STB FLINK 


FQR-9UEUE 


0271 


36315 


035240 




ISZ STYPE 


DEstrOy STATEMENT TYPE 


0272 


36316 


026703 




JMP PRNS2+1 




0273 


36317 


061612 


CMP41 


LDA STMP2 




0274 


36320 


164^00 




LDB Arl 


GET POINTER 


0275 


36321 


006002 




SZB 


ALREADY IN COMMON? 


0276 


36322 


026402 




JMP CMPi04i 




0277 


36323 


007400 




CCB 


FLAG VARIABLE AS 


0278 


36324 


174000 




STB A, I 


CONTAINED IN COMMON 


0279 


36325 


026703 




JMP PRNS2*! 




0280 


36326 


015316 


CMPL6 


JSB SSYMT 


COMPILE FUNCTION NAME 


0281 


36327 


055772 




CPB DEFQP 


FUNCTION DEFINITION? 


0282 


36330 


002001 




RSS 


YES 


0283 


36331 


026702 




JMp PRNS2 


NO 


0284 


36332 


165612 




LDB ST M p2,l 


PREVIOUSLY 


0285 


36333 


006002 




SZB 


DEFINED? 


0286 


36334 


026344 




JMP CMPL8 


YES 


0287 


36335 


061612 




LDA STMP2 


NO 


0288 


36336 


035240 




isz stype 


DESTROY STATEMENT TYPE 


0289 


36337 


065230 


CMPL7 


LDB sPTR 


ADVANCE 


0290 


36340 


044362 




ADB ,+3 


PROGRAM 


0291 


36341 


075230 




STB SPTR 


POINTER 


0292 


36342 


174000 




STB 0,1 


SAVE 


0293 


36343 


026703 




JMP PRNS2+1 


POINTER 


0294 


36344 


035230 


CMPL8 


ISZ SPTR 




0295 


36345 


015322 




JSB DCMPL 


DECOMPILE 


0296 


36346 


115102 




JSB RERRS+3,1 


FUNCTION DEFINED TWICE 


0297 


36347 


015316 




JSB SSYMT 


CgMplLE STRING VARIABLE 


0298 


36350 


035611 




ISZ STMP1 


SET TO 'SINGLY SUBSCRIPTED* 


0299 


36351 


002001 




RSS 


PROCESS POSSIBLE DECLARATION 


0300 


36352 


015320 


CMPL9 


JSB ASYMT 


COMPILE ARRAY VARIABLE 


0301 


36353 


002300 




CCE 


SET 'COM' FLAG 


0302 


36354 


054534 




CPB COMOP 


'COM'? 


0303 


36355 


026361 




JMP CMP91 


yes 


0304 


36356 


054540 




CPB DIMOP 


NO* 'DIM'? 


0305 


36357 


002101 




CLE, RSS 


YES^,SET 'DIM* flag 


0306 


36360 


026702 




JMP PRNS2 
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0307 


36361 


165612 


CMP91 


LDB STMP2,I 


WAS VARIABLE 


0308 


36362 


006002 




SZB 


PREVIOUSLY DIMENSIONED! 


0309 


36363 


026401 




JMP CMP10 


YES 


0310 


36364 


065230 




LDB 8PTR 


NO, SAVE POINTER 


0311 


36365 


044361 




ADB .*2 


TO DIMENSIONS 


0312 


36366 


002040 




SEZ 


DIMENSIONED IN 1COM1 7 


0313 


36367 


007004 




CMBflNB 


YES—FLAG IT 


0314 


36370 


175612 




STB STMP2,I 


NO 


0315 


36371 


065230 




LDB SPTR 


RESTORE 


0316 


36372 


044361 




ADB f *2 


POINTER 


0317 


36373 


061611 




LDA STMPi 


RETRIEVE SYMBOL 


0318 


36374 


002011 




SLA,RSS 


ADVANCE 


0319 


36375 


044361 




ADB ,+2 


POINTER 


0320 


36376 


044361 




ADB ,+2 


PAST 


0321 


36377 


075230 




STB SPTR 


ONE OR TWO 


0322 


36400 


026704 




JMP PRN S 2*2 




0323 


36401 


035230 


CMP10 


isz sPtR 




0324 


36402 


015322 




jSB DCMPL 


DECOMPILE 


0325 


36403 


1 15183 




jjjjj KelNK2«^4 , 


I VARIABLE DEFINED TwXGi 


0326* 








* 




0327** PROCESS EnD 


OF STATEMENT ** 




0328* 








* 




0329 


364^4 


055573 


CMPtl 


CPB SYMTB 


END OF PROGRAM? 


0330 


36405 


002001 




RSS 


YEs 


0331 


36406 


026606 




JMP PRNSl 


NO 


0332 


36407 


075230 




STB SPTR 


INSURE CORRECT SETTING FOR SPTR 


0333 


36410 


06l2 4 




LDA STYPE 


LAST STATEMENT 


0334 


36411 


050542 




CPA ENDOP 


AN (END! ? 


0335 


36412 


026415 




JMP CMP12 


YES 


0336 


36413 


015322 




JSB DCMpL 


NO* DECOMPILE 


0337 


364 14 


1 15104 




%J v R f^|^f%ffOv*?# 


I MISSING END 


0338 


36415 


002404 


CMP12 


CLA,INA 




0339 


36416 


051234 




CPA FLINK 


ALL FOrs MATCHED? 


0340 


36417 


026422 




JMP **3 


YES 


0341 


36420 


015322 




JSB DCMPL 


DECOMPILE 


0342 


36421 


115105 




jSB RERRS+6, 


I 'F0R» WITHOUT 'NEXT' 


0343 


36422 




CMP17 


EQU * 




0344 


36422 


002400 




CLA 




0345 


36423 


071576 




STA VLFLG 


MUST RUN VALUE. 


0346 


36424 


064056 




LDB PBPTR 


SET POINTER TO 


0347 


36425 


075502 




STB FILTB 


END OF SYMBOL TABLE, 


0348 


36426 


060272 




LDA MLINK+t 


IS CSAVE 


0349 


36427 


040356 




ADA ,*?STAT* 


?LINK 


0350 


36430 


160000 




LDA 0,1 


RUNNING 


0351 


36431 


050401 




CPA ,45+CSAV 


•COM2 


0352 


36432 


126004 




JMP CSVRT,! 


YES*,EXIT TO IT 


0353* 












0354* 


filct « -5 at this 


POINT UNLESS 


ThE PROGRAM CONTAINS A 


0355* 


<FILES STATEMENT*, 


THE CALL TO 


SCHLB,I LEAVES VALTB » 


0356* 


FILTB*7*(N U MBER OF 


FILES REQUESTED). IF NO <FILES STATEMENT* 


0357* 


APPEARS, VALTB • FILTB. 




0358* 












0359 


36433 




CMP18 


EQy * 




0360 


36433 


061604 




LDA FIlCT 


ANY <FIt,ES 


0361 


36434 


050352 




CPA t -5 


STATEMENTS*? 


0362 


36435 


026444 




JMP CMP13 


NO 
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0363 36436 114744 JSB SCHLB,I REQUEST FILE TABLE 

0364 36437 072045 DEF FILIB 

0365 36440 115114 JSB RERRS*13,I BAD FORMAT OR ILLEGAt NAME 

0366 36441 115115 JSB RERRS*14,I MISSING OR PROTECTED FILE 

0367 36442 115H1 JSB RERRS+10,1 OUT OF STORAGE 
036S 36443 ^27222 J*? VALUER SUCCESSFUL REQUEST 

0369 36444 065502 CMPI3 LDB FILTB SET VALUE TABLE 

0370 36445 075574 STBVALTB POINTER, 

0371 36446 02?222 JMP VALUER 
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0373** 

0374** 

0375** 

0376* 

0377* 

0378* 

0379* 

0380* 

0381* 

0382* 

0383* 

0384 

0385 

0366 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

03g8 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406* 

0407** 

0408* 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424* 

0425** 

0426* 

0427 

0428 



* DECOMPILE ALL OR PARf OF PROGRAM 



** 

*** 

** 



IF CFLAG[I] « PROGRAM IS IN SOURCE, E*IT IMMEDIATELY! 
ELSE SET CFLAGCIJ * ^ AND DECOMPILE PROGRAM. SPTR POINTS 
INITIALLY TO LAST WORD+i OF COMPILED PROGRAM, ABSOLUTE 
ADDRESSES ARE REPLACED BY THE SEQUENCE NUMBERS TO WHICH 
THEY POINT, VARIABLE OPERAND POINTERS ARE REPLACED BY 
THEiR SYMBOL. PBPTR IS SET TO LAST WORD+1 OF PROGRAM, 



36447 
36450 
36451 
36452 
36453 
36454 
36455 
36456 
36457 

36460 
36461 
36462 
36463 
36464 
36465 

36466 
3646/ 

36470 

36471 

36472 

36473 

36474 



060361 
064272 
044341 

110001 
002003 
02^552 
103100 
120001 
170001 
102100 
060056 
050726 
026550 
061230 
002003 

06*573 
071230 
071502 
015324 

036606 
006441 

026514 



#DCMP LDA 
LDB 
ADB 

AND 

JMP 
CLF 
XOR 
STA 

STF 
LDA 

CPA 
JMP 

LDA 

SZAf 

LDA 

STA 

STA 

JSB 

DEF 

CLB, 

JMP 



CFLAG 

MLINK+1 

# -?LINK 

Ifl 

RSS 
DCMP4 



Ifl 

1,1 



PBPTR 

PBUFF 

DCMP3+2 

SPTR 

RSS 

SYMTB 

SPTR 

FILTB 

PRNST 

PRNS1 

SEz,RSS 

DCMP2 



Process non*varIable operand 



36475 

36476 
36477 

36500 
36501 
36502 
36503 
36504 
36505 
36506 
36507 
36510 
36511 
36512 
36513 



040353 
002021 
026702 
035230 
065230 
055502 
026546 
055236 
026607 
161230 
160000 
171230 
035550 
026500 
026702 



ADA 
SSA 
JMp 
DCMpl ISZ 
LDB 
CpB 
JMP 
CPB 
JMP 
LDA 
LDA 
STA 
ISZ 
JMP 
JMP 



.-4 

,RSS 
PRNS2 
SPTR 
SPTR 
FILTB 
DCMP3 
NSPTR 
PRNSi*j 
SPTR, I 
0,1 
SPTR#I 

INFST 
DCMPl 

PRNS2 



PROCESS VARIABLE OPERAND 



* 
** 



PROGRAM 



COMPILED? 

NO 
YES 

SET PROGRAM MODE 
TO lUNCOMPILEDi 

NULL 

PROGRAM? 
YES 
SPTR*0 TO FLAG 

SEMICOMPILED ? 
YE8»*RESET IT TO CORRECT VALUE 
SET TERMINATION 

ADDRESS 
INITIALIZE 

DECOMPILATION 
WAS FLAG BIT SET? 
NO 



* 
** 



36514 040356 

36515 101117 



DCMP2 ADA 
RRR 



,•1 

15 



PROGRAM 

INTEGER? 
No 
YES* MOVE TO 

NEXT WOrD 
DONE? 
YES 

NO STATEMENT DONE? 
YES 
NO, REPLACE 

ABSOLUTE ADDRESS 

WITH SEQUENCE NUMBER 
IN <USING STATEMENT*? 
NO 
YES 



COMPUTE 

SYMBOL TABLE 
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0429 


36516 


045573 


ADB 


SYMTB 


ADDRESS 


0430 


36517 


161230 


lda 


SPTR,I 


EXTRACT 


0431 


36520 


010570 


AND 


OPMSK 


OPERATOR 


0432 


36521 


130001 


IOR 


1,1 


REPLACE OPERATOR- 


0433 


36522 


171230 


STA 


SPTR,I 


OPERAND PAIR in code 


0434 


36523 


065240 


ldb 


STYPE 




0435 


36524 


054540 


CPB 


DIMOP 


'DIM' ? 


0436 


36525 


026531 


JMP 


DCMP6 


YES 


0437 


36526 


054534 


CPB 


COMOP 


NO, «COM»? 


0438 


36527 


002001 


RSS 




YES 


0439 


36530 


026702 


JMP 


PRNS2 


NO 


0440 


36531 


065230 


0CMP6 LDB 


SPTR 




0441 


36532 


006004 


INB 






0442 


36533 


055502 


CpB 


FILTB 


DONE? 


0443 


36534 


026546 


JMP 


DCMP3 


YES 


0444 


36535 


006004 


INB 




NO 


0445 


36536 


010376 


AND 


. + 17B 


STRING 


0446 


36537 


040353 


ADA 


,•4 


SIMPLE 


0447 


36540 


002021 


SSA, 


,RSS 


VARIABLE? 


0448 


36541 


026702 


JMP 


PRNS2 


YES 


0449 


36542 


040363 


ADA 


.+4 


NO, STRING 


0450 


36543 


002003 


SZA, 


,RSS 


VARIABLE? 


0451 


36544 


002004 


INA 




YES, SET TO SINGLE SUBSCRIPT MOD 


0452 


36545 


026374 


JMP 


CMP10.5 




0453 


36546 


061573 


DC M p3 LDA 


SYmTB 


SET ACTIVE USER AREA PoInTEr 


0454 


36547 


070056 


STA 


PBPTR 


TO LAST WORD*l OF PROGRAM 


0455 


36550 


002400 


CLA 




ZERO 


0456 


36551 


071573 


STA 


SYMT8 


POINTER 


0457 


36552 


170632 


DCMP4 STa 


DCLCl#I 


BLOCK CLOCK 


0458 


36553 


064726 


LDB 


PBUFF 




0459 


36554 


055575 


CPB 


$Pr06 


COMMON ALLOCATED? 


0460 


36555 


026567 


JMP 


DCMP5 


NO 


0461 


36556 


054056 


CPB 


PBPTR 


YES, NULL PROGRAM? 


0462 


36557 


026567 


•imp 


DCMP5 


YES 


0463 


36560 


075512 


STB 


DEST 


NO 


0464 


36561 


061575 


LDA SPROG 


SET UP 


0465 


36562 


075575 


STB 


SPROG 


POINTERS 


0466 


36563 


064056 


LDB 


PBPTR 


FOR MOVE 


0467 


36564 


015476 


JSB 


MOvER 


REMOVE COMMON AREA 


0468 


36565 


065512 


LDB 


DEST 


RESET END«.qF- 


0469 


36566 


074056 


STB 


PBPTR 


PROGRAM POINTER 


0470 


36567 


114614 


DCMP5 JSB 


ABCK,I 


ABORT ATTEMPT DURING COMPILE? 


0471 


36570 


160634 


lda 


DCLC2,I 


no-*unbloCk 


0472 


36571 


170632 


STA 


DCLCi,I 


CLOCK 


0473 


36572 


125322 


JMP 


DCMPL.I 
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0475** 










** 


0476*** PROCESS NEXT STATEMENT OF PROGRAM *** 


0477** 










** 


0478* 














0479* 


USED 


By CMPLE AND 


DCMPl 


. TO SCAN 


THROUGH THE PROGRAM, 


0480* 


A iJsB PrNsT 


• INITIALIZES THE sCANt (P*l) IS A POINTER 


0481* 


TO THE CODE 


FOR HANDLING THE ENC 


>«*OF*STATEMENT CONDITION! 


0482* 


•LNUM HolDS 


THE SEQUENCE NUMBER 


OF THE STATEMENT BEING 


0483* 


PROCESSEDJ SPTR POINTS 


TO THE WORD OF THE PROGRAM BEING 


0484* 


Processed. 


PrNst 


HANDLES <REM < 


;TATEMENT>, <DATA STATEMENT*, 


0485* 


STRING CONSTANTS, 


NULL 


OPERANDS, 


NUMERICAL CONSTANTS, AND 


0486* 


<FIlEs statements 


OTHER CASES 


EXIT TO (P*2), PRNST IS 


0487* 


RE-ENTERED DIRECTLY, LEAVING THg 


: INITIALIZED EXIT ADDRESSES 


0488* 


Unchanged throughout processing 


OF THE PROGRAM. 


0489* 














0490 


36573 


161324 


#PNST 


LDA 


PRNST, 1 


SET POINTER TO 


0491 


36574 


071242 




STA 


STEND 


END-OF-STATEMENT 


0492 


36575 


035324 




ISZ 


PRNST 


PROCESSING ROUTINE 


bJ«? V <3 


36576 


060444 




LDA 


dfilt 


INITIALIZE POINTER TO 


0494 


36577 


071603 




st a 


FILPT 


<FILES STATEMENT* TABLE 


0495 


36600 


002400 




CLA 




INITIALIZE 


0496 


36601 


071615 




STA 


COMSN 


COM FLAG 


0497 


36602 


071605 




STA 


US^N 


AND USING FLAG 


049$ 


36603 


060352 




LDA 


.-s 


INITIALIZE <FILES 


0499 


36604 


071604 




STA 


filct 


STATEMENT COUNTER 


0500 


36605 


065575 




LDB 


SPROG 


INITIAL PROGRAM POINTER 


0501 


36606 


075230 


PRNSl 


STB 


SPTR 


SET PROGRAM POINTER TO STATEMENT 


0502 


36607 


161230 




LDA 


SPTR, I 


SAVE STATEMENT 


0503 


36610 


071566 




STA 


.LNuM 


SEQUENCE NUMBER 


0504 


36611 


035230 




ISZ 


SPTR 


COMpUTE 


0505 


36612 


145230 




ADB 


SPTRr I 


LENGTH 


0506 


36613 


075236 




STB 


nsPtr 


SAVE POINTER TO NEXT STATEMENT 


0507 


36614 


035230 




isz 


SPTR 


EXTRACT 


0508' 


36615 


161230 




LDA 


SPTR, I 


STATEMENT 


0509 


36616 


010570 




AND 


OPMSK 


TYPE 


0510 


36617 


071240 




STA 


STYPE 


SAVE IT 


0511 


36620 


050534 




CPA 


COMOP 


•COM* ? 


0512 


36621 


026624 




JMP 


* + 3 


YES 


0513 


36622 


075615 




STB 


COMSN 


no»*clear com flag. 


0514 


36623 


026634 




JMP 


PRNS4 




0515 


36624 


065615 




LDB 


COMSN 


NQN.COM 


0516 


36625 


006003 




SZBi 


,RSS 


STATEMENT SEEN? 


0517 


36626 


026703 




JMP 


PRNS2+1 


NO 


0.518 


36627 


065230 




LDB 


SPTR 


YES, RESET 


0519 


36630 


044355 




ADB 


.-2 


statement 


0520 


36631 


075230 




STB 


SPTR 


pointer 


0521 


36632 


015322 




JSB 


DCMPL 


ERROR 


0522 


36633 


115151 




JSB 


RERRS+42, 


,1 'COM' OUT OF ORDER 


0523 


36634 


050576 


PRNS4 


CPA 


REMOP 


fREMi ? 


0524 


36635 


026704 




JMP 


PRNS2+2 


YES 


0525 


36636 


050536 




CPA 


DATOP 


NO, DATA? 


0526 


36637 


026704 




JMP 


PRNS2+2 


YES 


0527 


36640 


050546 




CPA 


IMGOP 


NO, IMAGE? 


0528 


36641 


026704 




JMP 


PRNS2+2 


YES 


0529 


36642 


050544 




CPA 


FILOP 


NO, <FILES STATEMENT* ? 


0530 


36643 


002001 




RSS 




YES 
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0531 

0532 

0533 

0534 

0535 

0536 

0537 

0536 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0546 

054 9 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0556 

0559 

0560 

0561* 

0562** 

0563* 

0564 

0565 

0566 

0567 

0566 

0569 

0570 

0571 

0572 

0573 

0574 

»575 
0576 

0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 



36644 026661 JMP 

36645 065230 LDB 

36646 044355 ADB 

36647 035604 ISZ 

36650 026654 JMP 

36651 075230 STB 

36652 015322 JSB 

36653 115141 jSB 

36654 006004 INB 

36655 175603 STB 

36656 035603 ISZ 

36657 065236 LDB 

36660 026704 JMP 

36661 065230 PRNS5 LDB 

36662 052005 CpA 

36663 006005 INB, 

36664 026667 JMP 

36665 160001 LDA 

36666 010570 AND 

36667 050574 CPA 

36670 006005 INB, 

36671 026700 JMP 

36672 160001 LDA 

36673 010570 AND 

36674 050604 CPA 

36675 003401 CCA, 

36676 002001 RSS 

36677 071605 sTA 

36700 071550 PrN$6 3TA 

36701 002001 RSS 



PRNS5 
SPTR 
f »2 
FILCT 

* + 4 
SPTR 
DCMPL 
RERRS+34, 

FI U PT,I 

FILPT 

NSPTR 

PRNS2+2 
SPTR 

MATOP 

* + 3 
B,I 
OPMSK 
PRTOP 
RSS 
PRNS6 

1,1 

OPMSK 
U3E0P 
RSS 

USESN 
INF S T 



process next word of statement 



36702 
36703 
36704 

36705 
36706 
36707 
36710 
36711 

36712 
36713 
36714 

36715 
36716 

36717 
36720 
36721 
36722 
36723 
36724 
36725 
36726 
36727 
36730 



035230 
065230 
055502 
026546 
055236 
125242 
161230 
010570 

050506 
026723 

121230 
002003 
026702 

001265 
002003 
026337 
125324 
121230 
040362 
001100 
041230 
071230 
026703 



PRNS2 



PRNS3 



ISZ 

LDB 

CPB 

JMP 

CPB 

JMP 

LDA 

AND 

CPA 

JMp 

XO R 

SZA, 

JMp 

RAL, 

SZA, 

JMP 

JMP 

X 0R 

ADA 

ARS 

ADA 

STA 

JMP 



SPTR 

SPTR 

FILTB 

DCMP3 

NSPyR 

STEND,I 
SPTR, I 
OPMSK 
B1000 
PRNS3 

S?TR,I 

RSS 

PRNS2 

CLE, ERA 

RSS 

CMPL7 

PRNST,I 

SPTR, I 

,+3 

SPTR 
SPTR 
PRNS2+I 



NO 



TOO MANY <FILES STATEMENTS*? 

NO 

YES»«RESET STATEMENT POINTfR 

I EXTRA <FilES STATEMENT 

SAVE POINTER TO <FIlE8 STATEMENT 

SKIP OyER REST 
OF STATEMENT 

'MAT 1 STATEMENT? 

YES, BUMP TO NEXT WORD 

NO 

EXTRACT 

OPERATOR 
'PRINT' STATEMENT? 
YES, BUMP TO NEXT WORD 
NO 
EXTRACT 

OPERATOR 
fUSINGf STATEMENT? 
YES, SET CA) 
NO 

SET 'USING sEENi FLAG 
s Et INtEGEr FOLLOWS FUG 

* 
** 

* 

MOVE TO 

NEXT WORD 
DECOMPILE FINISHED? 
YES 
NO, S t AtEMEN T finished? 

YES 

NO, ISOLATE 
OPERATOR 

yE$ 

NO, GET OPERAND 

NULL OPERAND? 

yES 

NO, PUT FLAG BIT IN (E) 

NUMBER? 

YES 

NO 

extract length 

COMPUTE 
POINTER 

TO CLOSING 
QUOTE 
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0587** 

0588** 

0589** 

0590* 

0591* 

0592* 

0593* 

0594* 

0595* 

0596* 

0597* 

0598* 

0599* 

0600 

0601 

0602 

0603 

0604 

0605 

0606 
0607 
0608 
0609 

0610* 

0611** 

0612* 

0613 

0614 

0615 

0616 

06l7 

0618 

0619 
0620 
0621 

0622 

0623* 

0624** 

0625* 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634* 

0635** 

0636* 

0637 

0638 

0639 

0640 

0641 

0642 



'COMPILE' A SYMBOL 



** 

**• 

#* 



ENTER WITH A SYMBOLIC NAME IN STMPi AND SEARCH THE 
SYMBOL TABLE FOR A MATCHING ENTRY, IF NO ENTRY IS 
FOUND, ArpEnO A nEW TWO WORD ENTRY WITH THE SYMBOL 

in the first word and in the secondt the symbol in 
the program is replaced with the ordinal number of 
its symbol table entry, exit with the new program 
word In (a), a pointer to the second wqrd qf the 
table entry in stmp2, and the statement type in (b), 



36731 
36732 
36733 
36734 

367^5 
36736 
36737 
36740 
36741 
36742 



060363 
015326 
061611 
065573 
05 4 056 
026755 

150001 
026765 
044361 
026735 



#SSYM 



SYMT1 



LDA f *4 
JSB CUSP 
LDA STMPI 
LDB SYMjB 
CPB P8PTR 
J MP 3 Y M T 3 
CPA 1,1 
JMp SYMT5 
ADB ,+2 
JMP SYMTl 



CREATE A NEW TABL.E ENTRY 



HANDLE UNMATCHED ARRAY SYMBOL 

36743 051611 SYMT2 CPA STMPI 

36744 002001 RSS 

36745 026755 JMP SYMT3 

36746 034056 ISZ PBPTR 

36747 034056 ISZ PBPTR 

36750 061612 LDA STMP2 

36751 002006 INA r SZA 

36752 026760 JMP SyMT4 

36 7 53 1/0001 STA 1,1 

36754 044361 ADB f +2 

• 

#• 
* 

36755 034056 SyMT3 ISz PBPTR 

36756 034056 iSZ pBpTR 

36757 002400 CLA 

36760 006004 SYMT4 INB 

36761 170001 STA 1,1 

36762 044356 A DB .-1 

36763 06161 1 LDA STMPI 

36764 170001 STA 1,1 

* 
•COMPILE' PROGRAM w ORD ** 

* 

36765 006004 SYMT5 INB 

36766 075612 STB STMP2 

36767 00/000 CMB 

36770 045573 AOB SYMTB 

36771 007004 CMB, INB 
3677? 005100 8RS 



INSURE SPACE 

FOR NEW ENTRY 
RETRIEVE SYMBOL 

SYMBOL TABLE EXHAUSTED? 

YEs 

NO, IS NEXT SYMBOL A MATCH? 

YES 

NO, MOVE 

TO NEXT ENTRY 



* 
** 



"DON'T KNOW" SYMBOL? 
YES 

no, make normal Table entry 
allocate space 

FOR NEW ENTRY 
WAS A SINGLE OR DOUBLE 

SUBSCRIPTED ENTRY FOUND? 
Y ES, INCLUDE POINTER IN ENTRy 
NO* SAVE SPACE FOR LATER ENTRY 

WITH NUMBER OF DIMENSIONS 



allocate space 
for new entry 
initialize 

SECOND 

WORD 
PUT SYMBOL 
IN FIRST 

WORD 



COMPUTE 
RELATIVE 
ADDRESS 
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0643 


36773 


161230 


IDA 


SPTR,i 


REPLACE SYMBOL 


0644 


36774 


010570 


AND 


OPMSK 


IN PROGRAM 


0645 


36775 


030001 


IOR 


1 


WITH RELATIVE 


0646 


36776 


171230 


STA 


SPTR,I 


ADDRESS 


®6*7 


36777 


065240 


LDB 


STYPE 


LOAD STATEMENT TYPE 


0648 


37000 


125316 


JMP 


SSYMT,I 
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0001** 








** 




0002*** PROCESS ARRAY SYMBOL 


*** 




0003** 








** 




0004* 














0005* 


ENTER WITH AN ArrAY NAME IN ST*Pl. IF A MATCHING 


0006* 


SYMBOL TABLE 


ENTRY 


EXISTS, PROCEED AS IN SSYMT, ELSE IF 


0007* 


THE ARRAY IS 


SINGLY OR 


DOUBLY 


SUBSCRIPTED (LAST FOUR 


0008* 


BjTS 


OF NAME 


ARE 0001 OR 0010) 


i EXIT IS TO ERROR ON 


0009* 


FINDING A CONFLICTING ENTRY? ON FINDING ONLY A "DONiT 


0010* 


KNOW 


■ ENTRY 


(LAST | 


FOUR 


BITS 0011), PROCEED AS IN 8SYMT, 


0011* 


PLACING THE 


appropriate entry 


IN THE TWn WqROS ABqVE 


0012* 


THE ' 


'DON'T KNOW" ENTRY 


AND SETTING A POINTER TO ITS 


0013* 


SECOND WORD 


INTO THE SECOND WORD OF THE "DON'T KNOW" 


0014* 


ENTRY, IF THE SYMBOL ] 


[S AN UNMATCHED "DON'T KNOW" 


0015* 


ARRAY NAME, 


APPEND 


A SYMBOL TABlE ENTRY! IF A SINGLY 


0016* 


OR DOUBLY SUBSCRIPTED VERSION 


OF THE ARRAY HaS BEEN 


0017* 


PREy] 


[OySLY FOuND, 1 


PLACE A POINTER TO THE SECOND WORD 


0018* 


OF THE PREVIOUS ENTRY ) 


INTO THE 


: SECOND WORD OF THE NEN 


0019* 


If r% |^ f^ ( 


' T KNn^ ^ 


ENfRY? OTHERWISE 


LEAyE TWo WqrDS ABOVE 


0020* 


THE NEW ENTRY, 








0021* 














0022 


37001 


061320 


#ASYM 


LDA 


ASYMT 


SET RETURN 


0023 


37002 


071316 




STA 


SSYMT 


ADDRESS 


0024 


37003 


003400 




CCA 




SET MATCH 


0025 


37004 


071612 




STA 


STMP2 


FLAG FALSE 


0026 


37005 


062002 




LDA 


ApTRl 


INTIALIZE 


0027 


37006 


071320 




STA 


ASYMT 


SEARCH LOOP 


0028 


37007 


060363 




LDA 


. +4 


INSURE SPACE 


0029 


37010 


015326 




JSB 


CUSP 


FOR NEW ENTRY 


0030 


37011 


065573 




LDB 


SyMtB 




0031 


37012 


06161 1 




LDA 


STMPi 


RETRIEVE SYMBOL 


0032 


37013 


030362 




IOR 


• +3 


SET ARRAY SYMgOL 


0033 


37014 


027027 




JMP 


SYMT7+3 


i TO "DON'T KNOW* 


0034 


37015 


040355 


SYMT6 


ADA 


„~2 


MATCH AS 


0035 


37016 


150001 




CPA 


1,1 


'SINGLE SUBSCRIPT!? 


0036 


37017 


027032 




JMP 


SYMT8 


YES 


0037 


37020 


002004 




INA 




NO, MATCH AS 


0038 


37021 


150001 




CPA 


1*1 


'DOUBLE SUBSCRIPT'? 


0039 


37022 


027032 




JMP 


SYMT8 


YES 


00 4 


37023 


002004 




INA 




NO, MATCH AS 


0041 


37024 


150001 


SYMj7 


CPA 


1,1 


"DON'T KNOW"? 


0042 


37025 


027046 




JMP 


SYMT9 


YES 


0043 


37026 


044361 




ADB 


,+2 


NO, MORE SYMBOL 


0044 


37027 


054056 




CPB 


PBPTR 


TABLE ENTRIES? 


0045 


37030 


026743 




JMP 


SYMT2 


NO 


0046 


37031 


125320 




JMP 


ASYMT, 1 


YES 


m^7 


37032 


051611 


SYMT8 


CPA 


STMPI 


DOES ENTRY MATCH SYMBOL? 


0048 


37033 


026765 




JMP 


SYMT5 


YES 


0049 


37034 


030362 




IOR 


• +3 


NO, IS SYMBOL OF 


0050 


37035 


051611 




CPA 


STMPI 


TYPE "DON'T KNOW"? 


0051 


37036 


027041 




JMP 


*+3 


yes 


0052 


37037 


015322 




J SB 


DCMPL 


NO, DECOMPILE 


0053 


37040 


115112 




JSB 


RERRS+11,1 SUBSCRIPT CONFLICT 


0054 


37041 


075612 




STB 


STMP2 


SAVE POINTER TO ENTRY 


0055 


37042 


066001 




LDB 


ApTR2 


CONTINUE SEARCH 


0056 


37043 


075320 




STB 


ASYMT 


FOR POSSIBLE 
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0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 

0067* 
0066* 
0069* 
0070* 
0071* 
0072* 

0073* 
0074* 

0075* 
0076* 

mil* 

0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 

0109 
0110 
0111 
0112 



37044 065612 LOB STMP2 

37045 027026 JMP SYMT7+2 

37046 051611 3YMT9 CPA STMP1 

37047 026765 JMP SYMT5 

37050 006004 INB 

37051 060001 LDA 1 

37052 044355 AOB ,-2 

37053 174000 STB 0,1 

37054 002400 CLA 

37055 026761 JMP SYMT4+1 



"DONtT KNOW* 
ENTRY 
DOES ENTRY MATCH SYMBOL? 
YES 

NO, NEW ENTRY TO BE MADE 
SET POINTER TO 
NEW ENTRY INTO 

"DON'T KNOW" ENTRy 
MAKE NEW 
ENTRY 
** 



** RESTORE SYMBOL TABlE POINTERS *** 

* ** 

used by csaye to restore the symbol table to its appearamce 

b E fore value has been run, i.e. the pointers to dim and com 
statements are placed in the second word of array and string 
entries in the symbol table* »don«t know* entries a*e linked 

TO THE CORRESPONDING KNOwN ONE AND THE SECOND wO*D 0F DEFAULT 
ENTRIES IS SET TO ZERO, 

37056 065575 #RSTP LD B SPROG INITIALIZE PROGRAM 

37057 075230 STB SPTR POINTER 

37060 055573 cPB SYMTB FINISHED PROGRAM SCAN? 

37061 027146 JMP RSjPS YES 

37062 035230 ISz SPTR NO**COMPuTE 

37063 145230 ADB SPTR, I NExT STATMENT 

37064 075236 STB NSPTR POINTER 

37065 035230 ISZ SPjR 

37066 1612 3 LDA SPTR#I EXTRACT 

37067 010570 AND OPMSK OPERATOR 

37070 050534 CPA COMOP »COM»? 

37071 027076 JMP RSTPU1 YES 

37072 050540 CPA DIMOP NO, 'DIM 1 ? 

37073 002001 RSS YES 

37074 027057 JMP #RSTP<H NO 

37075 006400 RSTPl CLB 

37076 075617 STB DCFLG SET CQM-DIM FLAG 

37077 161230 RSTP2 LDA SPTR, I COMPUTE 

37100 010566 AND OPDMK POINTER 

37101 040356 ADA ,-1 INTO 

37102 001000 ALS SYMBOL 

37103 041573 ADA SYMTB TABLE 

37104 071611 STA STMPl 

37105 160000 LDA 0,1 EXTRACT 

37106 010376 AND t +17B SYMBOL 

37107 040353 ADA .-4 SIMPLE 

37110 002020 SSA VARIABLE? 

37111 027124 JMP R8TP4 NO 

37112 003400 CCA YES 

37113 065611 LOB STMPl FLAG 
37H4 006004 INS AS tIN 

37115 170001 STA 1,1 COMMON* 

37116 065230 LDB SPTR UPDATE 

37117 006004 RS T P3 INB SjAtEMENt 
37120 075230 STB SPTR POINTER 
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0095 um cOH 


PILATION AND DECOMPILATION 


0113 


37121 


055236 




CPB NSPTR 


END OF STATEMENT? 


0114 


37122 


027057 




JMP #RsTP+l 


YEs 


0115 


37123 


027077 




JMP RSTP2 


NO 


0116 


37124 


065230 


RSTP4 


LDB SPTR 


SET POINTER 


0117 


37125 


044361 




ADB ,+2 


TO DIMENSION 


011B 


37126 


061617 




LDA DCFLG 




0119 


37127 


002002 




SZA 


«COM»? 


0120 


37130 


007004 




CMB, INB 


YE8**C0MPLEMENT POINTER 


0121 


37131 


061611 




LDA STMP1 


STORE 


0122 


37132 


002004 




INA 


IN SYMBOL 


0123 


37133 


174000 




STB 0,1 


TABLE 


0124 


37134 


065230 




LDB SPTR 


FINISHED 


0125 


37135 


044363 




ADB ,44 




0126 


37136 


055236 




CPB NSPTR 


STATEMENT? 


0127 


37137 


027057 




JMP #RSTP*i 


YES 


0128 


37140 


344356 




ADB .•! 


NO, TWO- 


0129 


37141 


160001 




LDA 1,1 




0130 


37142 


010570 




AND OPMSK 


DIMENSIONAL? 


0131 


37143 


050602 




CPA SCOMM 




0132 


37144 


044361 




ADB ,+2 


YES*„BUMP PAST SECOND DIMENSION 


0133 


37145 


027117 




JMP RSTP3 


NO 


0134* 












0135* 


SCAN 


SYMBOL 


TABLE 


FOR »DONit KNOW ENTRIES AND 


0136* 


DEFAULT DIMENSION 


ENTRIES 




0137* 












0138 


37146 


065573 


RSTP5 


LDB SYMTB 


INITIALIZE TABLE POINTER 


0139 


371*7 


055502 




CPB FILTB 


FINISHED SYMBOL TABLE SCAN? 


0140 


37150 


027214 




•JMP RSTP9 


yes 


0141 


37151 


075611 




STB STMP1 


NO«»sAvE POINTER 


0142 


37152 


160001 




LDA 1,1 


DON«T 


0143 


37153 


010376 




AND ,*17B 


KNOW 


0144 


37154 


050362 




CPA # +3 


ENTRY? 


0145 


37155 


027174 




JMP RSTP7 


YES 


0146 


37156 


040354 




ADA # ,3 


NO, STRING 


0147 


37157 


002021 




SSA,RSS 


OR ARRAY? 


0148 


37160 


027171 




JMP RSTP6 


NO 


0149 


37161 


006004 




INB 


YES 


0150 


37162 


160001 




LDA 1,1 


DEFAULT 


0151 


37163 


003004 




CMA,INA 




0152 


37164 


041573 




ADA SYMTB 


DIMENSIONS? 


0153 


37165 


002021 




SSA,RSS 




0154 


37166 


027171 




JMP RSTP6 


NO 


0155 


37167 


002400 




CLA 


YES**STQRE A ZERO 


0156 


37i7b 


170001 




STA 1,1 


IN SYMBOL TABLE 


0157 


37l7i 


065611 


RSTP6 


LDB STMPi 


BUMP TO 


0158 


37172 


044361 




ADB .+2 


NEXT SYMBOL 


0159 


37173 


027147 




JMP RSTP5+1 




0160* 












0161* 


PROCESS 'DON 


»T KNOW ENTRY 




0162* 












0163 


37174 


075612 


RSTP7 


STB STMP2 




0164 


37175 


065573 




LDB SYMTB 


IS THERE 


0165 


37176 


003400 




CCA 


A MATCHING 


0166 


37177 


141612 




ADA STMP2,I 


TWO-DIMENSIONAL 


0167 


37200 


150001 




CPA 1,1 


ENTRY? 


0168 


37201 


027207 




JMP RSTP8 


YEs 
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0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 

0182 



37202 
37203 
37204 

37205 
37206 
37207 
37210 
37211 
37212 
37213 
37214 
37215 
37216 
37217 



040356 

150001 
027207 
044361 
027176 
006004 
061611 
002004 
174000 
027171 
002400 
071576 
074056 

125520 



ADA 
CPA 
JMp 
AOB 
JMP 

RSTP8 INB 
LDA 
INA 
STB 
JMP 

RSTP9 CLA 
STA 

STB 
JMP 



.-1 
1,1 
R3TP8 
.♦2 

RSTP7+2 

STMP1 

0,1 
RSTP6 

VLFLG 
P8PTR 
RSTPTrl 



NO, MATCHING ONE* 

DIMENSIONAL ENTRY? 
YES 
NO~*BUMP TO 

NEXT SYMBOL 
LINK «DON»T 
KNOW ENTRY 
WITH MATCHING 
KNOWN ONE 

SET STORAGE 

UNALLOCATED FLAG 

RESET END-OF-PRO©RAM POINTER 
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0184** 

0185** 

0186** 

0187* 

0188* 

0189* 

0190* 
0191* 

0192* 
0193* 
0194* 
0195* 
0196* 
0197* 
0198* 
0199* 
0200* 
0201* 
0202* 
0203* 
0204* 
0205* 
0206* 

0207* 

0208* 

0209* 

0210* 

0211* 

0212* 

0213* 

02 14* 

0215* 

0216* 

0217* 

021a* 

0219* 

0220* 

0221* 

0222* 

0223* 

0224* 

0225* 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 



* BUILD THE VALUE TABLE 



• * 

*** 

** 



IF NO VALUE TABLE ExISTS, ONE IS BUILT FROM THE SyMBOL 
TABLE AND INITIALIZED! IF IT ALREADY EXlsTS, X T IS 
INITIALIZED. IN BUILDING THE VaLUE TABLE, EACH ENTRY 
IN THE SYMBOL TAB^E IS CHECKED! FOR FUNCTIONS THE 
EXISTENCE OF A DEFINING FORMULA IS CHECKED; FOR SIMPLE 
VARIABLES TWO wOrDs ArE ALLOCATED AND SET TO 'UNDEFINED* 
AND A POINTER TO THEM IS PLACED IN THE SECOND WORO OF 
ThE SYMBOL TABU ENTRY! FOR ARRAYS FOUR WORDS ARE 
ALLOCATED FOR THE DECLARED AND DYNAMIC DIMENSIONS, 
THE DIMENSIONS ARE INITIALIZED EITHER FROM A 
<DIM STATEMENT IN THE PROGRAM OR THE DEFAULT 
DIMENSIONS, ARRAY SPACE IS ALLOCATED AT TWO WORDS PER 
ARRAY ELEMENT CqNtIGUoUS WITH THE DIMENSIONS, THE 
ELEMENTS ARE INITIALIZED TO 'UNDEFINED, • AND A 
POINTER TO THE FjRST ELEMENT iS PLACED jN THE SECOND 
WORD OF THE SYMBOL TABLE ENTRY; FOR STRINGS FOLLOW THE 
PATTERN FOR ARRAYS WITH ONE WOrD HOLDING THE PHYSICAL 
DIMENSION IN BITS 15»8 AND THE DYNAMIC DIMENSION IN 
BITS 7-0 (DIMENSION HERE mEAnS l e nGTH AS NUmBER OF 
CHARACTERS), STRING SPACE IS ALLOCATED ONE WORD PER 
TWO CHARACTERS, AnD THE DYNAMIC LENGTH IS INITIALIZED 
TO ZERO, FOR "DONiT KNOW" ARRAY ENTRIES, THE SECOND 
WORD OF THE SYMbOL TaBLE ENTRY IS COPIED FROM THE 
ASSOCIATED SINGLY R DqUBLY SUBSCRIPTED ENTRY CoR 
EXIT TO ERROR IF NONE EXISTS), 

f-OR VARIABLES WHICH HAVE BEEN DECLARED IN A <COM 
STATEMENT^ STORAGE IS ALLOCATED IN THE COMMON AREA 
WHICH RESIDES AHEAD OF THE PROGRAM, FOR ARRAYS AnD 
STRINGS, THIS AREA IS LEFT UNDISTURBED IF THE DIMENSIONS 
DECLARED IN THE <COM STATEMENT> MATCH THOSE FOuND IN 
THE COMMON AREA, AND THE DYNAMIC DIMENSIONS A«E CONSISTENT 
IF A VALUE TABLE ALrEADY EXISTS, VARIABLES IN COMMON ARE 

left untouched, values of simple variables and array 
elements are set to 'undefined' and dynamic array 
dimensions are set to declared dimensions! the dynamic 
lengths of strings are set to zero, exit to xec if 
processing is satisfactorily completed, 



37220 
37221 
37222 
37223 
37224 
37225 
3722 6 
37227 
37230 
37231 
3723? 
37233 
37234 
37235 



065232 
074056 
064726 
075616 
065573 

002001 

006004 
055502 
027661 
160001 
006004 
002003 
027554 
010376 



VALUE 



VALU1 



LDB FCORE 


INSURE CORRECT 


STB PBPTR 


SETTING FOR PBPTR 


ldb pbuff 


INITIALIZE 


STB COMPT 


COMMON POINTER 


LDB SYMTB 


SET (B) TO 


RSS 


Symbol table 


INB 


SYMBOL TABLE 


CPB FILTB 


EXHAUSTED? 


JMP VAL99 


YES 


IDA 1,1 


NO, LOAD SYMBOL 


INB 


POINT (B) TO VALUE TABLE POINTER 


SZA,RSS 


NULL SYMBOL? 


JMP vAL14 


YES 


AND .+17B 


NO 
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0240 
0241 
0242 
0243 
0244 
0245 
0246 

0247* 

0248** 

0249* 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277* 

0278** 

0279* 

0280 

02al 

0282 

0283 

0284 

0285* 

0286** 

0287* 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 



37236 
37237 
37240 
37241 
37242 
37243 
37244 



050376 
027300 
002003 
027556 
040353 
002020 
027305 



CPA 
JMP 
SZA 

JMP 

ADA 
SSA 
JMP 



. + 17B 
VALU4 
,RSS 
VAL15 
.-4 

VALU5 



initialize simple variable 



** 

* 



37245 
3724 6 
37247 
37250 
37251 
37252 
37253 
37254 

37255 
37256 

37257 
37260 

37261 
37262 
37263 
37264 
37265 
37266 
37267 
37270 

3727 i 
37272 
37273 
^7274 
37275 
37276 
37277 



061576 
002003 
027262 
160001 
003004 
040001 
002021 
027226 
160001 
07I6II 
003400 
171611 
027226 
16^001 
002020 
027273 
060361 
015326 
070056 
040355 
170001 
027256 
06l6U 
170001 
040361 
071616 
027226 



VALU2 



VALU3 



VAL31 



IDA 
SZA 

JMp 
IDA 
C M A 
ADA 

SSA 
JMP 
LDA 
STA 
CCA 
STA 
JMP 
LDA 
SSA 
JMP 
LDA 
JSB 
STA 

ADA 
STA 
JMP 
LDA 
StA 
ADA 
STA 
JMP 



VLFLG 
,RSS 
VALU3 
lfl 

,Ina 

1 
,RSS 
VALU1 
If I 
VTMP1 

VTMP1,I 

VALUi 

1,1 

VAL31 

.+2 

CUSP 

PBPTR 

.-2 

1,1 

VALU2 

COMPT 

1,1 
• +2 

COMPT 
VALUl 



* 
CHECK FUNCTION ** 

* 

37300 160001 VALU4 LDA 

37301 002002 SZA 

37302 027226 JMP 

37303 015322 JSB 

37304 115106 JSB 

* 
INITIALIZE Array ** 

37305 050356 VALU5 CPA 

37306 027545 JMP 

37307 075611 STB 

37310 002004 INA 

37311 071612 STA 

37312 061576 LDA 

37313 002002 SZA 

37314 027405 JMP 



1,1 

VALUl 
DCMPL 
RERRS+7,1 



.•1 

VAL13 

VTMPl 

VTMP2 
VLFLG 

VAL12 



FUNCTION? 

YES 

NO, STRING VARjABlE? 

YES 

NO, 

ARRAY? 
YES 



SIMPLE VARIABLE 
STORAGE ALLOCATED? 
NO 
YES 

VARIABLE 
IN 

COMMON? 
YES 
NO 

SAVE POINTER TO VALUE 
3E T 

VALUE TO 
UNDEFINED 
VARIABLE 

IN COMMON? 
YES 
NOwALLOCATE 

STORAGE 
FOR VALUE 
PUT VALUE POINTER 

INTO SYMBOL TABLE 

ALLOCATE STORAGE 

IN COMMON 
UPDATE COMMON 

POINTER 



WAS FUNCTION 
DEFINED? 

YES 

NO, DECOMPILE 

UNDEFINED FUNCTION 



IS ARRAY TYPE «DQN«T KNOW" ? 

YES 

NO, SAVE POINTER TO SYMBOL TABLE 

SAVE INFORMATION ON 

NUMBER OF DIMENSIONS 
STORAGE 

ALLOCATED? 
YE3 
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0296 
0297 
0296 
0299 

0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 

0309 
0310 
0311 

0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 

0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 

0338 
0339 

0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 



37315 
37316 
37317 
37320 
37321 
37322 
37323 
37324 
37325 
37326 
37327 
37330 
37331 
37332 
37333 
37334 
37335 
37336 
37337 
37340 
37341 
37342 
37343 
37344 
3/345 
37346 
37347 
37350 
37351 
37352 
37353 
37354 
37355 
37356 
37357 
37360 
37361 
37362 

37363 
37364 

37365 
37366 
37367 

37370 
37370 
37371 
37372 
37373 
37374 
37375 
37376 
37377 
37400 
37401 
37402 
37403 



160001 
002020 
027421 
165611 
060056 
071613 
060363 
015326 
070056 
171611 
006003 
027402 
160801 
044361 
035612 
006405 
164001 
171613 
035613 
175613 
035613 
171613 
035613 
175613 
100200 

101613 
006003 
002020 
027400 
071614 
003004 
071612 
065613 

006004 
054056 
027370 
003400 

170001 

044361 
035612 
027361 
0656H 
027226 

040443 
002020 
027400 
061614 
001000 
015326 
070056 
027361 
015322 
115107 
060371 
066000 



yALU6 



VALy7 



IDA 

SSA 

JMP 

LDB 

LDA 

STA 

LDA 

JSB 

STA 

STA 

SZB, 

JMP 

LDA 

ADB 

ISZ 

CLBr 

LDB 

STA 

ISZ 
STB 
ISZ 
STA 
ISZ 
STB 
MPY 



SZB, 

SSA 

JMp 

STA 

CMA, 

STA 

LDB 

INB 

CPB 

JMP 

VALU8 CCA 
STA 
ADB 
ISZ 
JMP 
LDB 
JMP 

VALU9 EQU 
ADA 
SSA 
JMp 
LDA 

ALS 
JSB 
STA 
JMP 

VAL10 JSB 
JSB 

VAL11 LDA 
LDB 



1,1 

VAL51 

VTMP1,I 

PBPTR 

VTMP3 

.♦4 

CUSP 

PBPTR 

VTMPl,I 

RSS 

VALII 

1,1 

.+2 

yTMP2 

I (MR , RSS 

1,1 

yTMP3,I 

yTMP3 

yTMP3,I 

VTMP3 

VTMP3,I 

VTMP3 

VTMP3,I 

VTMP3,I 

RSS 

VAL10 

VTMp4 

INA 

VTMP2 

VTMP3 

PBPtR 
VALU9 

1,1 
,+2 

VTMP2 
VALU8 
VTMP1 
VALUl 

,5000 

VAL10 
VTMP4 

CUSP 

PBPTR 

VALU8 

DCMPL 

RERRS+8,1 

, + 10 

A. 10 



NO 

IN COMMON? 

YES 

NO, LOAD POINTER TO DIMENSIONS 

SET POINTER TO 

DIMENSION ENTRY 
ALLOCATE 

SPACE 

FOR ENTRY 
SYMBOL TABLE POINTER TO ARRAy 
DEFAULT DIMENSIONS? 
YES 

NO, LOAD ROW DIMENSION 
BUMP POINTER 
TWO DIMENSIONAL? 
NO, SET COLUMN DIMENSION TO 1 
yES, LOAD COLUMN DIMENSION 
PUT 

DECLARED DIMENSIONS 
IN vALUE TABLE 
PUT 

Dynamic dimensions 
in 
value table 
compute number of array elements 

TOO 

LARGE? 
YES 
SAVE POSITIVE 

AND NEGATIVE 
COUNT 
HAS 

ARRAY BEEN 
ALLOCATED? 
NO 
INITIALIZE 

ARRAY ELEMENT 
TO 1 UNDEFINED! 
DONE? 
NO 
yES 



ARRAy 

TOO LARGE? 
YES 
NO 
ALLOCATE 

SPACE 

FOR ARRAY 



DECOMPILE 
ARRAY TOO LARGE 
LOAD (A) WITH 10 
LOAD (B) WITH 
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0351 
0352 
0353 
0354 
0355 
0356 
0357 
0356 
0359 

0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
03 7 2 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
03sl 
03 8 2 

0383 
0384 
03$5 
0386 

0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
03g 7 

0398 
0399 
0400 
0401 
0402 

0403 
0404 



37404 
37405 
37406 
37407 
37410 
374U 
37412 
37413 
37414 

37415 
37416 

37417 
37420 
37421 

37422 
37423 
37424 
37425 
37426 
37427 

37430 
37431 
37432 
37433 
37434 
37435 
37436 
37437 
37440 
37441 
37442 
37443 
37444 
37445 
37446 
37447 
37450 
37451 
37452 
37453 
37454 
37455 
37456 
37457 
37460 
37461 
37462 
374g3 
37464 
37465 
37466 
37467 
37470 
37471 
37472 
37473 



027333 
160001 
003004 
040001 
002021 
027226 
161611 
040353 
071613 
161613 
035613 
165613 
027341 
165611 
007004 
075615 
175611 
061616 
071613 
040363 
171611 
160001 
151613 
002001 
027503 
044361 
061612 
050355 
006405 

16*001 
035 6 13 
155613 

002001 
027503 
161616 
100200 
101613 
006003 
002020 
027503 
071614 
040443 

002020 
027503 
035613 
161613 
035613 
100200 
101613 
006003 
002020 
027503 
003007 
027503 
041614 
002020 



J MP 
VAL12 LDA 
CMA, 
ADA 

SSA, 
.JMP 
LDA 
ADA 
STA 
LDA 
ISZ 
LDB 
JMP 
VAL51 LDB 
CMB, 
STB 
STB 
LDA 
STA 
ADA 
STA 
LDA 
CPA 
RSS 
JMP 
ADB 
LDA 
CPA 
CLB, 
LDB 
ISZ 
CPB 
RSS 
JMP 
LDA 
MPy 

SZB, 

SSA 

JMP 

STA 

ADA 

SSA 

JMP 

IS Z 

LDA 

ISZ 

MPY 



VALU6 
1,1 

ina 
1 

RSS 

VALU1 

VTMP1,I 

• •4 

VTMP3 

VTMP3,I 

VTMP3 

VTMP3,I 

VALU7 

VT*Pl f I 
INB 
VTMP5 
VTMP1, I 
COMPT 
V TMP3 
.+4 
VTMP1,I 

1 r I 

VTMP3,I 

VAL52 

.+2 

VTMP2 

t *»2 

INB,RSS 

1,1 

VTMP3 

VTMP3,I 

VAL52 

COMPTfl 

VTMP3,I 

RSS 

VAL52 
VT*P4 
,5000 

VAL52 

VTMP3 

VTMP3,I 

VTMP3 

VTMP3,I 



address of 10 

IS ARRAY 

IN COMMON? 

yes 

NO««LOAD 

declared 
dimensions 



SET 

DIMENSION 
POINTER 
POSITIVE 
SET 

POINTER 
IN SYMBOL 
TABLE 
PHYSICAL ROW DIMENSION 

SAME AS DECLARED DIMENSION? 
YES 
NO 

B»> SECOND DIMENSION 
TWO 

DIMENSIONAL? 
NO«*SET COLUMN DIMENSION TO 1 
YES«-LOAD COLUMN DIMENSION 
PHYSICAL COLUMN DIMENSION 

SAME AS DECLARED DIMENSION 
YES 
NO 
COMPUTE SIZE OF 

ARRAY AS DECLARED 

TOO 

LARGE? 
YEs 

NO^^sAvE SIZE 
TOO 

LARGE? 
YES 
NO 
COMPUTE SIZE 

AS SPECIFIED By 

DYNAMIC DIMENSIONS 



S28,RSS TOO 

SSA LARGE? 

JMP VAL52 YES 

CMA,lNA,SZA,RSS 

JMP VAL52 CHEESE ITS DYNAMIC DIM 

ADA VTMP4 DYNAMIC SIZE 

SSA > DECLARED SIZE 



PAGE 


0101 i 


iM c OM Pll- A UON ANp DEC^MF 


ELATION 


0405 


*7*7* 


027503 


JMP 


VAL52 


YES 


0406 


37475 


1616U 


IDA 


VTMP1,I 


* COMPT+4 


0407 


37476 


041614 


ADA 


VTMP4 




0408 


37477 


041614 


ADA 


VTMP4 


UPDATE 


0409 


37500 


071616 


STA 


COMPT 


COMMON POINTER 


04 1 


37501 


065611 


LD8 


VTMP1 


RESTORE (B) 


0411 


37502 


027226 


JMP 


VALU1 




0412 


37503 


065615 


VAL52 LDB 


VTMP5 


«> ROM DIMENSION 


0413 


37504 


160001 


LDA 


lrl 




0414 


37505 


044361 


ADB 


.+2 


»> COLUMN DIMENSION 


0415 


37506 


035612 


132 


VT*P2 


TWO-DIMENSIONAL? 


0416 


37507 


006405 


CLBi 


,INB,RSS 


NO~*LOAD DEFAULT DIMENSION 


0417 


37510 


164001 


LDB 


1,1 


PUT 


0418 


37511 


171616 


STA 


COMPT, I 


DECLARED 


0419 


3751? 


035616 


isz 


COMPT 


DIMENSIONS IN 


0420 


37513 


175616 


STB 


COMPT, I 


COMMON AREA 


0421 


37514 


035616 


ISZ 


COMPT 


put 


0422 


37515 


171616. 


STA 


COMPT, I 


dynamic 


0423 


37516 


035616 


ISZ 


COMPT 


DIMENSIONS IN 


0424 


37517 


175616 


STB 


COMPT, I 


COMMON AREA 


042 5 


37520 
37521 


100200 
101616 


MPY 


COMPT, I 


COMPUTE NUMBER OF ARRAY ELEMENTS 


0426 


37522 


006003 


SZB| 


,RSS 


TOO 


0427 


37523 


002020 


SSA 




LARGE? 


0428 


37524 


027400 


JMp 


VAL10 


YES 


0429 


37525 


003004 


CMA, 


,INA 


NO«*»SAVE COMPLEMENT 


0430 


37526 


071612 


STA 


VTMP2 


OF NUMBER OF ELEMENTS 


0431 


37527 


003004 


CMA ( 


,INA 


ARRAY 


0432 


37530 


040443 


ADA 


,5000 


TOO 


V> *T tj S^ 


37531 


002020 


SSA 




LARGE? 


0434 


37532 


027400 


JMP 


VAL10 


YES 


0435 


37533 


035616 


ISZ 


COMPT 


NO 


0436 


37534 


065616 


LDB 


COMPT 


INITIALIZE 


0437 


37536 


003400 


CCA 




ALL 


0438 


37536 


170001 


VAL53 STA 


■M 


ELEMENTS 


0439 


37537 


044361 


ADB 


.♦2 


TO 


0440 


37540 


035612 


ISZ 


VTMP2 


UNDEFINED 


0441 


37541 


027536 


JMP 


VAL53 




0442 


37542 


075616 


STB 


COMPT 


UPDATE COMMON POINTER 


0443 


37543 


065611 


LDB 


VTMP1 


RESTORE (B) 


0444 


37544 


027226 


JMP 


VALUl 




0445 


37545 


061576 


VAL13 LDA 


VLFLG 


STORAGE 


0446 


37546 


002002 


SZA 




ALLOCATED? 


0447 


37547 


027226 


JMP 


VALUl 


YES 


0448 


37550 


160001 


LDA 


1,1 


NO, GET 


0449 


37551 


160000 


LDA 


0,1 


AND STORE 


0450 


37552 


170001 


STA 


1,1 


POINTER TO 


0451 


37553 


027226 


JMp 


VALUl 


VALUE TABLE 


0452 


37554 


015322 


VAL14 JSB 


DCMPL 


DECOMPILE 


0453 


37555 


115110 


JSB 


RERRS+9, 


I NUMBER OF DIMENSIONS NOT KNOWN 
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0455* 

0456* 

0457* 

045$ 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469 

$470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0403 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 



* INITIALIZE STRING VARIABLE 



* 
** 

* 



37556 

37557 
37560 
37561 
37562 
37563 
37564 
37565 
37566 
37567 
37570 
37571 
37572 
37573 
37574 
37575 
37576 
37577 
37600 
37601 
37602 
37603 
37604 
37605 
37606 

376 7 
37610 
37611 
37612 

37613 
37614 

37615 
37616 
37617 
37620 
37621 
37622 
37623 
37624 
37625 
37626 

37627 

37630 

37631 
37632 
37633 
37634 
37635 
37636 
37637 
37640 
37641 
3764? 



075611 
061576 
002002 
027611 
160001 
002020 
027624 
165611 
060056 
071613 
002004 
050716 
115111 
070056 
1716U 
006003 
002405 
160001 
001727 
171613 
001727 
002004 
001100 
015326 
0^0056 

06^6 11 
027226 

160001 
003004 
040001 
002021 
027226 
0074-00 
145611 
160001 
010316 
170001 
027607 
003004 
071613 
061616 
002004 
170001 

I6l6l6 
001727 

010500 
151613 
002001 
027647 
161616 
010500 
003004 
141613 



VAL15 



VALlft 
VAti7 



VAL18 



STB 
LDA 
SZA 

JMP 

LD* 
SSA 
JMP 
LDB 
LDA 
STA 
INA 
CPA 
JSB 
STA 
STA 
SZB 
CLA 

LDA 
ALF 
STA 
ALF 
INA 
ARS 
JSB 
STA 
LDB 
JMP 
LDA 
CMA 
ADA 
SSA 
JMP 
CC8 
ADB 
LDA 

AND 
STA 

JMP 
CMA 
STA 
LDA 
INA 
STA 

LDA 
ALF 
AND 
CPA 
RSS 
JMP 
LDA 
AND 
CMA 
ADA 



VTMP1 
VLFLG 

VAL17 
1 r I 

VAL18 
VTMPlrl 
P8PTR 
VTMP3 

L*aUS 

RERRS+10, 

PBPTR 

VTMPl,I 
f RSS 
, INA, RSS 

1,1 
, ALF 

VTMP3,I 
,ALF 



CUSP 
PBPTR 
VTMP1 
VALU1 

1,1 
,INA 

1 
,RSS 

VALUl 

VTMP1,I 

1,1 
M256 

1,1 
VAL16 
,INA 
VTMP3 
COMPT 

1,1 

COMPT, I 
, ALF 
B377 
VTMP3, I 

VAL20 
COMPT, I 
B377 
,INA 

VTMP3, I 



SAVE (B) 
STORAGE 

ALLOCATED? 
YES 
NO 

IN COMMON? 
YES 

NO, SAVE LENGTH POINTER 
SET POINTER TO 

LENGTH ENTRY 
MORE 

USER SPACE? 
I NO 
YES, SET POINTER TO STRING 

INTO SYMBOL TABLE ENTRY 
DEFAULT LENGTH? 
YES, SET (A) * % 
NO, LOAD DECLARED LENGTH 
STORE PHYSICAL LENGTH 

ALONG WITH ZERO 
LOGICAL LENGTH 
ALLOCATE 

SPACE 
FOR 

STRING 
RESTORE 

(B) 

STRING 
IN 

COMMON? 
YES 
NO—RESET 

LOGICAL LENGTH 

TO ZERO 

SET POINTER POSITIVE 

«> DIMENSION INFORMATION 

SET VALUE 

POINTER IN 
SYMBOL TABLE 
EXTRACT PHYSICAL 

LENG T H FROM 
COMMON AREA 
SAME AS DECLARED LENGTH? 
YES 
NO 
LOGICAL 

LENGTH <■ 
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0511 
0512 
0513 

05U 
0515 

0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 

0525 
0526 
0527 
0528 
0529 
0530 
0531 

0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 



37643 
37644 
37645 
37646 
376 4 7 
37650 
37651 
37652 
37653 
37654 
37655 
37656 
37657 
37660 
37661 
37661 
37662 
37663 
37664 
37665 
37666 
37667 
37670 
37671 
37672 
37673 
37674 
37674 
37675 
37676 
37677 



002020 
027647 
161613 
027653 
161613 
001727 
171616 
001727 
002004 

001100 

002004 
041616 
071616 
027226 

061576 
002002 
027674 
061605 
002003 
027674 
060056 
071756 
060466 
015326 
070056 

002404 
071576 
060056 
071232 



SSA 
JMP 
LOA 
JMP 

VAL20 LDA 
ALF, 
STA 
ALF, 

VAL19 INA 
ARS 
INA 
ADA 
STA 
JMP 

VAL99 EQU 
LDA 
SZA 
JMP 
LDA 

SZA, 

JMP 

LDA 

STA 

L DA 

JSB 

STA 

VAL98 FQU 

cla, 

STA 
LOA 
STA 



VAL20 

VTMP3,I 

VAL19 

VTMP3,I 

ALF 

COMPT, I 

ALF 



COMPT 

COMPT 

VALU1 

* 

VLFLG 

VAL98 

OSESN 

RSS 

VAL98 

PBPTR 

IFSS 

.72 

CUSP 

PBPTR 

INA 
VLFLG 
PBPTR 
FCORE 



PHYSICAL LENGTH! 
NO 
LOAD PHYSICAL LENGTH 

RESET PHYSICAL LENGTH TO 
DECLARED LENGTH AND 

LOGICAL LENGTH TO llHO 



UPDATE 
COMMON 
POINTER 



HAS STORAGE 

BEEN ALLOCATED? 
YES 
NO, ANY 'PRINT 

USING' STATEMENTS? 
NO 
YES, 

ALLOCATE 

SPACE FOR 
FORMAT 
STACK 

SAY STORAGE 

ALLOCATED 
POINTER TO END 
OF FIxED TABLES 
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0543* 

0544* 

0545** 

0546** 

0547** 

0548* 

0549* 

0550* 

0551* 

0552* 

0553* 

0554* 

0555* 

0556* 

0557* 

0558* 

0559* 

5 g0* 

0561* 

0562* 
0563* 
0564* 

0565* 
^566* 
0567* 
056g* 

0569* 
0^70* 

0571* 

0572* 

0573* 

0574* 

0575** 

0576** 

0577** 

0578* 

0579* 

0580* 
0581* 
0582* 

0583* 

0584* 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 
0594 
0595 
0596 
0597 
0598 



************************* 
** *** 

* EXECUTE THE PROGRAM *** 
*• *** 

************************* 



THE CORE-RESIDEN T FILE BijFFEKS FOLLOW THE VALUE TABLE! ONE 
RECORD-SIZED BLOCK OF CORE IS ALLOCATED FOR EACH FILE REQUESTED 
IN THE <FILES STATEMENT^ FlyE STACKS EXIST DyRING ExECuTIONj 
SINCE STACK POINTERS ARE ASSUMED TO REFERENCE THE TOPMOST 
ENTRY IN THEIR STACK THEY ARE INITIALLY SET ONE ENTRY BELOW 
THE PHYSICAL STaRT OF THE STACKp THUS THE FIRST ENTRY ADVANCES 
A STACK POINTER TO THE FIRST wORD OF ITS STACK SPACE, GOSUBS 
QUEUE THEIR RETURN ADDRESSES IN THE RETURN STACK, WHICH HAS A 
FIXED LENGTH F NINE WqROS ALL CAtED IMMEDIATELY F LLoWlNG 
THE FILE BUFFERS, THE FOR-STaCK (SIX-WORD ENTRIES) CONTAINS 
ALL INFORMATION pERTAINING TO ACTIVE FQr-NEXT LOOpsi INITIALLY 
EMPTY, ITS CORE SPACE IS ALLOCATED DYNAMICALLY AS NEEDED, THE 

temporary stack holds intermediate results during formula 
evaluation; it is initialized to hold ten temporaries and 
Expands dynamically as necessary, the operand and operator 

STACKS FOLLOW With THEIR ONE-WORD ENTRIES OCCUPYING ALTERNATE 
LOCATIONS, EXPANDING INTO FREE USER SPACE ON A DEMAND BASIS, 
THE TOP OF THE OPERATOR STACK, ALWAYS AT LEAST ONE WORD AHEAD 
OF THE OPERAND STACK, IS PBPTR SO THAT ALL ACU V E USER SPACE 
IS KEPT WITHIN THE SWaP REGION. SINCE ALL STACKS EXCEPT THE 
RETURN STACK EXPAND DYNAMICALLY, STATIC AND DYNAMIC NESTING 
OF FORMULAS AND FOR-NEXT LOOPS IS FREELY PERMITTED UP TO 
THE EXHAUSTION OF USER SPACE. 

** 
INITIALIZE EXECUTION *** 

** 

PRINT THE PROGRAM NaME, INITIALIZE FILE STATUS INFORMATION 
IN T HE FILE TABLE AND NO T IFY uSER OF AN Y REQuES T ED FILES 
WHICH ARE READ-ONLY, ALLOCATE A 64 WORD BUFFER FOR EACH FILE, 
ALLOCATE rUN-tIHE STACKS, INITIALIZE POINTERS TO THE DATA BLOCK, 
AND MOVE TO A FRESH TELETYPE LINE. 



37700 
37701 
37702 
37703 
37704 
37795 
37706 
37707 
37710 
37711 
37712 
37713 
37714 

37715 



002400 
170632 
114614 
160634 

170632 
160255 
010506 
071252 
002003 
027717 
103100 
120255 
170255 
102100 



CLA 




STA DCLClfl 


CLOCK 


JSB ABCK,I 


ABORT ATTEMPT DURING COMPILE? 


LD A DCLC2,I 


NO^^UNBLOCK 


STA DCLC1,I 


CLOCK 


LDA MAIN, I 




AND CHNFG 




STA TEMP2 


SAVE CHAIN FLAG 


SZA,RSS 


WAS THIS PROGRAM CHAINED TO? 


JMP XEC01 


NO 


CLF g 


YES 


XOR MAIN, I 


CLEAR 


STA MAIN, I 


CHAIN PLAG 


STF 
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0599 


37716 


027734 


JMP XEC0 


DON»T PRINT NAME 


0600 


37717 


060371 


XEC01 IDA , + 12B 


ECHO 


0601 


37720 


015452 


JSB OUTCR 


LINE FEED 


0602 


37721 


061567 


IDA LNAME 




0603 


37722 


071426 


STA LT1 




0604 


37723 


040360 


ADA ,*?NAME' 


•?ID 


0605 


37724 


160000 


LDA A, I 


REMOVE RUN-ONLY 


0606 


37725 


010273 


AND INF 


BIT AND CHECK FOR 


0607 


37726 


002003 


SZA,RSS 


NULL PROGRAM NAME 


0608 


37727 


027734 


JMP XEC0 


YES 


0609 


37730 


006400 


CLB 


NO 


0610 


37731 


075274 


STB LT2 


OUTPUT 


0611 


37732 


060354 


LOA ,»3 


PROGRAM 


0612 


37733 


015460 


JSB OUTST 


NAME 


06l3 


37734 


002400 


XEC0 CLA 


ZERO 


0614 


37735 


07lg00 


STA PCNTR 


FILE COUNTER 


0615 


3 77 36 


071242 


STA RTNST 


AND MESSAGE FLAG 


06l6 


37737 


071607 


STA ENOUF 


TURN OFF OVER/UNDERFLOW 


0617 


37740 


071771 


STA ASlNp 


SET N ASSIGN pRqCESSED 


0616 


37741 


065502 


LDB FILTB 


LOAD ADDRESS OF FILE TABLE 


0619 


37742 


055574 


XEC2 CPB VALTB 


DONE? 


0620 


37743 


927777 


JMP XEC4 


YES 


0621 


37744 


035500 


ISZ FCNTR 


NO, COUNT FILE 


0622 


37745 


061252 


LDA TEMP2 




0623 


377«6 


002002 


3ZA 


WAS THIS PROGRAM CHAINED TO? 


0624 


37747 


027753 


JMp XEC3 


YES 


0625 


37750 


160001 


LDA 1,1 


READ 


0626 


37751 


002020 


SSA 


ONLY? 


0627 


37752 


124766 


JMP XEC5I#I 


YES 


0626 


37753 


061027 


XEC3 LDA BIT15 


NO 


0629 


37754 


044363 


ft UB jt4 


SET NULL 


0630 


37755 


170001 


STA B,I 


RECORD ADDRESS 


0631 


37756 


044354 


ADB ,»3 


GET RECORD 


0632 


37757 


160001 


LDA 8,1 


SIzE AND 


0633 


37760 


001423 


ALR,RAR 


CLEAR BITS 14 AND IS 


0634 


37761 


170001 


STA B,I 


AND STICK BACK IN FILE TABLE 


0635 


37762 


044366 


ADB ,*7 


ALLOCATE 


0636 


37763 


015326 


JSB CUSP 


BUFFER FOR 


063/ 


3/764 


070056 


STA PBPTR 


THE FILE 


0638 


37765 


170001 


STA 1,1 


SET 


0639 


37766 


006004 


INB 


• RECORD FULL' 


0640 


37767 


170001 


3TA 1,1 


CONDITION 


0641 


37770 


006004 


INB 


SET 


0642 


37771 


002400 


CLA 


«NO EOF ExlT« 


0643 


37772 


170001 


STA i,I 


CONDITION 


0644 


37773 


044363 


ADB ,+4 


POINT TO M AS K 


0645 


37774 


170001 


STA i,I 


CLEAR PROTECT MASK 


0646 


37775 


006004 


INB 


POINT TO NEXT ENTRY 


0647 


37776 


027742 


JMP XEC2 




0646 


37777 


061500 


XEC4 LDA FCNTR 


ARE THERE 


0649 


40000 


002003 


SZA,RSS 


ANY FILES? 


0650 


40001 


026007 


JMP XEC9 


NO 


0651 


40002 


060502 


LDA DFCHk 


YES, SET 


0652 


40003 


103100 


CLF 


POSSIBLE DIRTY 


0653 


40004 


130255 


IOR MAIN, I 


% FILES BIT IN 


0654 


40005 


170255 


STA MAIN, I 


TTY TABLE 
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0655 


40006 


102100 




STF 







0656 


40007 


061252 


XEC9 


LDA 


TEMP2 




0657 


40010 


002002 




SZA 




WAS THIS PROGRAM CHAINED TO? 


0658 


40011 


026020 




JMP 


XEC8 


YES 


0659 


40012 


060374 




LDA 


.♦158 


NO, OUTPUT A 


0660 


40013 


015452 


, 


JSB 


OUTCR 


CARRIAGE RETURN 


0661 


40014 


060371 




LDA 


.♦12B 


AND 


0662 


40015 


015452 




JSB 


OUTCR 


TWO 


0663 


40016 


060371 




LDA 


,♦128 


LINE FEEDS 


0664 


40017 


015452 




JSB 


OUTCR 




0665 


40020 


064056 


XEC8 


LDB 


PBPTR 




0666 


40021 


044356 




ADB 


,.i 


SET POINTERS TO 


0667 


40022 


075240 




fiTB 

W 1 +* 


gTQWQ 


TOP AND BOTTOM 


0668 


40023 


075242 




STB 


RTNST 


OF RETURN STACK 


0669 


40024 


044363 




ADB 


.♦4 


SET 


0670 


40025 


075246 




STB 


FORG 


EXECUTION 


0671 


40026 


015430 




JSB 


8ETPT 


POINTERS 


0672 


40027 


065575 




LDB 


SPROG 


SET POINTERS TO 


0673 


40030 


015360 




JSB 


SETDP 


FIRST <DATA STATEMENT^ 


0674* 








* 






0675* 


* EXECUTE STATEMENT 


*# 






0676* 








* 






0677* 














0678* 


SAyE 


SEQUENCE NUMBER FOR POSSIBLE USE By ERROR ROUTINE. 


0679* 


ADVANCE PROGRAM COUNTER TO NEXT 


STATEMENT AND BRANCH TO 


0680* 


CODE 


FOR EXECUTION 


OF CURRENT STATEMENT. 


0681* 














0682 


40031 


065334 


XEC1 


LDB 


PRGCT 


SAVE CURRENT 


068 3 


40032 


160001 




LDA 


lfl 


SEQUENCE 


0684 


40033 


071566 




STA 


.LNUM 


NUMBER 


0685 


BQ Jp J^ $J fig 


060001 




LDA 


B 




0686 


40035 


002004 




INA 




CHECK 


0687 


40036 


160000 




LDA 


A, I 


STATEMENT 


0688 


40037 


015554 




JSB 


8TLCK 


LENGTH 


0689 


40040 


060001 




LDA 


1 


COMPUTE 


0690 


40041 


002004 




INA 




ADDRESS 


0691 


40042 


144000 




ADB 


0,1 


OF NEXT 


0692 


40043 


075334 




8TB 


PRGCT 


STATEMENT 


0693 


40044 


002004 




INA 




SET INTRA- 


0694 


40045 


071611 




STA 


TEMPI 


STATEMENT POINTER 


0695 


40046 


161611 




LDA 


TEMPI, I 


COMPUtE 


0696 


40047 


010570 




AND 


OPMSK 


BRANCH 


0697 


40050 


001727 




ALF, 


-ALF 


ADDRESS 


0698 


40051 


001300 




RAR 




for current 


0699 


40052 


043766 




ADA 


XECBR 


STATEMENT TYPE 


0700 


40053 


071234 




STA 


FILE* 


SET 'NO FILE' FLAG 


0701 


40054 


124000 




JMP 


0,1 


BRANCH TO APPROPRIATE ROUTINE 


0702* 










♦ 




0703** OUTPUT READ* 


•ONLY 


WARNING ** 




0704* 










* 




0705 


40055 


075240 


XEC5 


STB 


RTRNQ 


SAVE (B) 


0706 


40056 


064272 




LDB 


MLINK*1 




^7^7 


40057 


044346 




ADB 


,*?ID.?LINK 


0708 


40060 


160001 




LDA 


If I 


GET ID 


0709 


40061 


010612 




AND 


M2000 


IS IT 


0710 


40062 


050514 




CPA 


A000 


AN «A»? 
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0711 


40063 


026107 


JMP 


X EC7 


y es 


0712 


40064 


035242 


182 


RTNST 


NO, FIRST TIME THROUGH? 


0713 


40065 


115211 


JSB 


WERR8*8,I 


yes# emit message 


0714 


40066 


003400 


CCA 




SET FLAG FOR 


0715 


40067 


071242 


STA 


RTNST 


MESSAGE SUPPRESSION 


0716 


40070 


060422 


LDA 


,♦438 
OUTCR 


OUTPUT 


0717 


40071 


015452 


JSB 


A <*' 


0718 


40072 


061500 


LDA 


FCNTR 


OUTPUT 


0719 


40073 


040345 


ADA 


,•10 




0720 


40074 


002020 


SSA 




FILE #>91 


0721 


40075 


026103 


JMP 


XEC6 


NO 


0722 


40076 


060440 


LDA 


.+61B 


YES 


0723 


40077 


015452 


JSB 


#"!ii* , f*» 


OUTPUT A *1* 


0724 


40100 


061500 


LDA 


FCNTR 


OUTPUT 


0725 


40101 


040425 


ADA 


t +46S 


SECOND 


0726 


40102 


002001 


RSS 




DIGIT 


0727 


40103 


040452 XEC6 ADA 


,58 


OUTPUT SINGLE DIGIT 


0728 


40104 


015452 


JSB 


OUTCR 




0729 


40105 


060417 


LDA 


,♦408 


OUTPUT 


0730 


40106 


015452 


JSB 


OUTCR 


BLANK 


0731 


40107 


065240 XEC7 LOB 


RTRNQ 


RETRIEVE (B) 


0732 


40110 


124764 


JMP 


XEC3I,I 
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0002* 

0003** 

9004** 

0005** 

0006* 

0007 

0008 

0009 

0010 

0011* 

0012** 

0013** 

0014** 

0015* 

0016 

00 1 J 

0018 

0019 

0020 

0021 

0022 

0023 

0024 
0025 
0026 

0027 
0028 
0029 

0030 

0031 

0032* 

0033** 

0034** 

0035** 

0036* 

0037 

0038* 

0039** 

0040** 

0041** 

0042* 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 
0056 



* ** 

EXECUTE <LET STATEMENT* ** 



** 



40111 002404 

40112 071470 

40113 015336 

40114 026031 



ELET 



CLA,INA 
STA EOL 
J$B FORMX 
JMP XEC1 



ALLOW STRING CONSTANT 

IN FORMULA 
EVALUATE 

FORMULA 



* ** 

EXECUTE <IF STATEMENT* ** 



** 



40115 
40116 
40117 
40120 
40121 
40122 
40123 
40124 
40125 
40126 
40127 
40130 

40131 
40132 
40133 
40134 
40135 



035611 
015504 
035236 
0356H 
1656U 
175236 

026031 
104200 

101611 
054542 

002020 
002405 

026ii§ 
071470 
015356 
002003 
026031 



EIF1 



EIF 



ISZ TEMPI 


EVALUATE 


JSB VLFIL 


FILE REQUEST 


ISZ F8ASE 


TRANSFER 


ISZ TEMPI 


EOF LABEL 


LOS TEMPI, I 


TO 


STB FBASE f I 


FILE TABLE 


JMP XECl 




OLD TEMPI, I 


EOF 


CPB ENPOP 




S3 A 


OPERATOR? 


CLA,INA,RSS 


NO 


JMP EIFl 


YES 


STA EOL 


ALLOW STRING CONSTANT 


JSB pETC H 


EVALUATE DECISION fO**ULA 


SZA,RSS 


RESULTANT »TRUE* ? 


JMP XECl 


NO 



* ** 
EXECUTE <G TO STATEMENT* ** 

* ** 

40136 006401 EGQTO CLB,R8S 

* ** 

EXECUTE <G0SUB StAtEMENj* ** 

* ** 



40137 
40140 
40141 
40142 
40143 
40144 
40145 
40146 
40147 
40150 
40151 
40152 
40153 
40154 



075476 

065611 
006004 
161611 
010566 
050550 
026161 
015356 
015342 
026031 
045611 
006004 
060001 



E6O3B CCB 
STB 
LOB 
INB 
LOA 
AND 
CPA 
JMP 
JSB 
JSB 
JMP 
ADB 
INB 
LDA 



GTMP 
TEMPI 

TEMPI, I 
OPDMK 

INTFL 
EGOS1 
FETCH 
8BFIX 

XECl 
TEMPI 

1 



SET FLAG TO 1GOTO1 MODE 



$ET flag to 

*G0$UB' MODE 
COMPg T E SIMPLE BRANCH 

UDDRESS* ADDRESS 
SIMPLE 

BRANCH 

STATEMENT? 
yES 
NO, COMPUTE 

BRANCH INDEX 
UNSUITABLE RESULT 
COMPUTE 

UDDRESS* 
ADDRESS 



PAGE 


0109 t 


*09 STATEMENT 


EXECUTION PROCESSORS 


0057 


40155 


003000 




CMA 




WITHIN 


0056 


40156 


041334 




ADA 


PRGCT 


STATEMENT 


0059 


40157 


002020 




SSA 




RANGE? 


0060 


40160 


026031 




JMP 


XECl 


NO 


0061 


40161 


164001 


FGOSl 


LDB 


1,1 


YES, LOAD BRANCH ADDRESS 


0062 


40162 


035476 




isz 


GTMP 


<GOTO STATEMENT ? 


0063 


40163 


026032 




JMP 


XECU1 


YES 


0064 


40164 


061334 




LDA 


PRGCT 


NO, STACK 


0065 


40165 


035242 




ISZ 


RTNST 


RETURN 


0066 


40166 


171242 




STA 


RTNST,I 


ADDRESS 


0067 


40167 


061242 




LDA 


RTNST 


NESTING 


0068 


40170 


040345 




ADA 


.-10 


10 


0069 


40171 


051240 




CPA 


RTRNQ 


DEEP? 


0070 


40172 


115116 




J SB 


PERRS+15, 


I YES 


0071 


40173 


026032 




JMP 


XECUi 


NO 


0072* 














0073*** 








** 




0074** EXECUTE <FOr STAtEMEN] 


r> ** 




0075*** 








** 




0076* 














mi7 


40174 


055250 


EFOR0 


CPB 


FORST 


TOP ENTRY? 


0078 


40175 


026231 




JMP 


EF0R5+1 


Y ES 


0079 


40176 


071420 




STA 


EFN0 


NO, SAVE (A) 


0080 


40177 


075512 




STB 


DEST 


SET DESTINATION ADDRESS 


0081 


40200 


065250 




LDB 


FORST 


COMPUTE MOVE 


0082 


40201 


044365 




ADB 


,♦6 


TERMINATION ADDRESS 


0083 


40202 


061512 




LDA 


DEST 


COMPUTE 


0084 


40203 


040365 




ADA 


.+6 


SOURCE ADDRESS 


0085 


40204 


015476 




J SB 


mover 


DELETE FoR^TABLE ENTRY 


0086 


40205 


061420 




LDA 


EFN0 


RETRIEVE (A) 


0087 


40206 


026230 




JMP 


EF0R5 




0088 


40207 


161611 


EFOR 


LDA 


TEMP1,I 


EXTRACT 


0089 


40210 


010504 




AND 


B777 


AND SAVE THE 


0090 


40211 


071426 




STA 


FVT 


FOR-VARIABLE 


0091 


40212 


001000 




ALS 




COMpUTE 


0092 


40213 


041573 




ADA 


symtb 


ADDRESS 


0093 


40214 


040356 




ADA 


.-1 


OF ITS 


0094 


40215 


160000 




L DA 


0,1 


VALUE 


0095 


40216 


065250 




L DB 


FORST 


LOAD POINTER TO FOR-STACk 


0096 


40217 


055246 


EKoRl 


CPB 


FORQ 


at bottom of For-stack? 


0097 


40220 


026225 




JMP 


EF0R2 


YES 


0098 


40221 


150001 




CPA 


UI 


NO, ENTRY FOR THIS FOR-VaRIABLE? 


0099 


40222 


026174 




JMP 


EFOR0 


Y ES 


0100 


40223 


044351 




ADB 


.-6 


NO, CHECK 


0101 


40224 


026217 




JMP 


EFOR1 


LOWER ENTRY 


0102 


4022 5 


065250 


EF0R2 


LDB 


FORST 


MOVE TO SPACE 


0103 


40226 


044365 




ADB 


• +6 


FOR ENTRY 


0104 


40227 


015430 




J3B 


setpt 


rE$ET EXECUTION PQINtErS 


0105 


40230 


171250 


EF0R5 


STA 


FORST, I 


SAvE ADDRESS OF yALUE IN ENTRY 


0106 


40231 


015336 




JSB 


FORMX 


initialize for-variablE 


0107 


4023? 


061250 




LDA 


FORST 


SAVE POINTERS TO 


0108 


40233 


002004 




INA 




ENTRY FOR 


0109 


4023 4 


071420 




STA 


EFN0 


LIMIT VALUE 


0110 


40235 


040361 




ADA 


.+2 


AND 


0111 


40236 


071422 




STA 


EFN1 


STEP SIZE 


0112 


40237 


040361 




ADA 


o+2 


SAVE ADDRESS OF 
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0113 


40240 


065334 


LDB 


PRGCT 


FOLLOWING STATEMENT 


0114 


40241 


174000 


STB 


0.1 


IN ENTRY 


0115 


40242 


015356 


JSB 


FETCH 


COMPUTE AND SAVE 


0116 


40243 
40244 


104400 
101420 


DST 


EFN0,J 


LIMIT vALuE 


0117 


40245 


061611 


LDA 


TEMPI 


IMPLICIT 


0118 


40246 


051334 


CPA 


PRGCT 


STEP SIZE? 


0119 


40247 


026304 


JMP 


EF0R6 


YES 


0120 


40250 


015356 


JSB 


FETCH 


NO, COMPUTE STEP SIZE 


0121 


40251 
40252 


104400 
101422 


EE0R3 DST 


EFN1,I 


AND SAVE VALUE 


0122 


40253 


006400 


CUB 




SET SIGN FLAG 


0123 


40254 


002020 


SSA 




TO -1 FOR 


0124 


40255 


007400 


CCB 




NEGATIVE STEP SIZE, 


0125 


40256 


075424 


STB 


EFN2 


FOR POSITIVE STEP SIzE 


0126 


40257 


035334 


ISZ 


PRGCT 


LOAD 


0127 


40260 


065334 


LDB 


PRGCT 


Type word of 


0128 


40261 


006004 


EF R4 INB 




STATEMENT FOLLOWING 


0129 


40262 


160001 


LOA 


1*1 


THE <FOR STATEMENT 


0130 


40263 


071366 


STA 


EFN3 


SAVE IT 


0131 


40264 


044356 


AOB 


.-1 


COMPUTE POINTER 


0132 


40265 


144001 


ADB 


1,1 


to its successor 


0133 


40266 


010570 


AND 


OPMSK 


<NEXT 


0134 


40267 


050562 


CPA 


NXTOP 


STATEMENT ? 


0135 


40270 


002001 


RSS 




YEs 


0136 


40271 


026261 


JMP 


EF0R4 


NO 


0137 


40272 


021366 


XOR 


EFN3 


SAME 


0136 


40273 


05U26 


CPA 


FVT 


FOR^VARIABLE? 


0139 


40274 


002001 


RSS 




YES 


0140 


40275 


026261 


JMP 


EF0R4 


NO 


0141 


40276 


044356 


ADB 


.-1 


SET PROGRAM COUNTER 


0142 


40277 


075334 


STB 


PRGCT 


PAST <NEXT STATEMENT 


0143 


40300 


165250 


LDB 


FORST,I 


LOAD 


0144 


40301 


104200 


OLD 


1,1 


INITIAL VALUE OF 




40302 


100001 






. 


0145 


40303 


026346 


JMP 


ENEX3 


FQR*yARIABLE 


0146 


40304 


061031 


EE0R6 LDA 


HALF 


LOAD 


0147 


40305 


064361 


LDB 


.♦2 


DEFAULT 


0148 


40306 


026251 


JMP 


EF0R3 


OF 1.0 


0149* 












0150*** 






** 




0151** EXECUTE <NEXT STATEMENTS ** 




0152*** 






** 




0153* 












0154 


40307 


161611 


ENEXT LDA 


TEMPI, I 


EXTRACT 


0155 


40310 


010504 


AND 


B777 


FOR^VARIABLE 


0156 


40311 


001000 


ALS 




COMPUTE 


0157 


40312 


041573 


ADA 


SYMTB 


ADDRESS 


0158 


40313 


040356 


ADA 


r-1 


OF ITS 


0159 


40314 


160000 


LDA 


0,1 


VALUE 


0160 


40315 


065250 


LDB 


FORST 


LOAD POINTER TO FOR*STACK 


0161 


40316 


055246 


ENEX1 CPB 


FORQ 


BOTTOM OF STACK? 


0162 


40317 


026031 


JMP 


XECl 


YES, IGNORE STATEMENT 


0163 


40320 


150001 


CPA 


1,1 


NO, MATCHING ENTRY? 


0164 


40321 


026324 


JMP 


ENEX2 


YES 


0165 


40322 


044351 


ADB 


• *6 


NO, CHECK 
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0166 


40323 


026316 




JMP ENEX1 


LOWER ENTRY 


0167 


40324 


071422 


ENEX2 


STA EFNi 


SAvE FOR.yARlABLE ykl^l ADDRESS 


0168 


40325 


055250 




CP8 FORST 


TOP ENTRY OF FOR..STACK? 


0169 


40326 


026331 




JMP *+3 


YES 


0170 


40327 


015430 




JSB SETPT 


NO, RESET 


0171 


40330 


065250 




LDB FORST 


execution pointers 


0172 


40331 


006004 




INB 


SAVE ADDRESS 


0173 


40332 


075420 




STB EFN0 


OF LIMIT VALUE 


0174 


40333 


044361 




ADB .+2 




0175 


40334 


060355 




LOA t ~2 


SET SIGN FLAG TO SAY 


0176 


40335 


071424 




STA EFN2 


POSITIVE STEP SIZE 


0177 


40336 
40337 


104200 

100001 




DLD 1,1 


LOAD STEP SIZE 


0178 


40340 


^2^2^ 




SSA 


POSITIVE? 


0179 


40341 


035424 




ISz EFN2 


NO, RESET SIGN FLAG 


0180 


40342 


015402 




JSB f FAD 


ADD STEP SIZE 


0181 


40343 


101422 




DEF EFNl f I 


TO VALUE OF FOR-VARIABLE 


0182 


40344 
40345 


104400 
101422 




DST EFNI, I 


SAVE NEW VALUE 


0183 


40346 


015404 


ENEX3 


JSB ,FSB 


SUBTRACT 


0184 


40347 


101420 




DEF EFN0,I 


LIMIT VALUE 


0185 


40350 


035424 




ISz EFN2 


IF STEP SI 2 E POSITIVE, 


0186 


40351 


001600 




ELA 


INVERT SIGN OF RESULT 


0187 


40352 


002020 




SSA 


LIMIT VALUE EXCEEDED? 


0188 


40353 


026360 




JMP ENEX4 


YES 


0189 


40354 


061250 




LDA FORS7 


NO, LOAD ADDRESS 


0190 


40355 


040364 




ADA ,+5 


OF STATEMENT 


0191 


40356 


164000 




LDB 0,1 


FOLLOWING THE 


0192 


40357 


026032 




JMP XEC1+1 


<FOR STATEMENT 


0193 


40360 


065250 


ENEX4 


LDB FORST 


REMOVE 


0194 


40361 


044351 




ADB ,*6 


ENTRY FROM 


0195 


40362 


015430 




JSB SkTPT 


F0r*3TACK 


0196 


40363 


026031 




JMP XECl 


SKIP PAST <NEXT STATEMENT* 


0197* 












0198*** 






*• 




0199** EXECUTE <RE 


TURN S 


TAtEMENj> *• 




0200*** 






** 




0201* 












0202 


40364 


061242 


ERTRN 


LDA RTNST 


RETURN STACK 


0203 


40365 


051240 




CPA RTRNQ 


EMPTY? 


0204 


40366 


Il5ll7 




JSB RERRS+16, 


I YES 


0205 


40367 


164000 




LDB 0,1 


NO, POP 


0206 


40370 


040356 




ADA ,*1 


RETURN ADDRESS 


0207 


40371 


071242 




STA RTNST 


FROM STACK 


0208 


40372 


026032 




JMP xECUl 




0209* 












0210*** 






** 




0211** EXECUTE <InPUT STAtEmEnT> ** 




0212*** 






** 




0213* 












0214 


40373 


002400 


EINPt 


CLA 


TURN OFF 


0215 


40374 


071476 




STA MCN-T 


MATRIX INPuT COyNTER 


0216 


40375 


071456 


EINPJ 


STA INITF 


SAVE ADDRESS FLAG 


0217 


40376 


002400 




CLA 


REQUEST 


0218 


40377 


071470 




STA SYNTQ 


FIRST 


0219 


40400 


015444 




JSB INCAL 


INPUT RECORD 



PAGE 


0112 i 


¥09 STATEMENT 


EXECUTION PROCESSORS 


0220 


40401 


035420 


EINP2 


isz 


IFCNT 


COUNT INPUT QUANTITY 


0221 


40402 


003400 




CCA 




MATRIX 


0222 


40403 


051456 




CPA 


INITF 


INPUT? 


0223 


40404 


026415 




JMP 


EINP3 


YES 


0224 


40405 


015336 




JSB 


FORMX 


NO, EVALUATE NEXT ADDRESS 


0225 


40406 


165332 




L D8 


OPDST, I 


IS IT A 


0226 


40407 


006020 




SSB 




STRING VARIABLE? 


0227 


40410 


026521 




JMP 


EIN13 


YES 


0228 


40411 


061332 




L DA 


OPDST 


NO, 


0229 


40412 


040355 




ADA 


t «»2 


UNSTACK 


0230 


40413 


071332 




STA 


OPDST 


ADDRESS 


0231 


40414 


075572 




STB 


SBPTR 


SAVE DESTINATION ADDrEsS 


0232 


40415 


002400 


EINP3 


CLA 




StT SIGN 


0233 


40416 


071266 




STA 


SIGN 


TO POSITIVE 


0234 


40417 


071354 




STA 


INTMP 


FLAG REQUEST FOR NUMBER 


0235 


40420 


026424 




JMP 


EINP4 




023 6 


40421 


075266 




STB 


SIGN 


RESET SIGN TO POSITIVE 


0237 


40422 


015444 




JSB 


INCAL 




0236 


40423 


035420 




ISZ 


IFCNT 


FETCH 


0239 


40424 


015446 


EINP4 


JSB 


GETCR 


FIRST 


0240 


40425 


026422 




JMP 


• •3 


CHARACTER 


02*1 


40426 


007400 




CCB 




TURN OFF 


0242 


40427 


075472 




STB 


SERR 


OVER/UNDERFLOW FLAG 


0243 


40430 


050434 




CpA 


,445 


!«.! ? 


0244 


40431 


026506 




JMP 


EINU 


YES 


0245 


40432 


006404 




CLB, 


,INB 


NO 


0246 


40433 


050432 




CPA 


e *43 


!*» ? 


0247 


40434 


026506 




JMP 


EIN11 


YES 


0248 


40435 


015276 


EINP5 


JSB 


NUMCK 


NO, NUMBER? 


0249 


40436 


026471 




JMP 


EINP7 


NO 


0250 


40437 


026475 




JMP 


EINP8 


BAD EXPONENT 


0251 


40440 


064417 


EINP6 


LDB 


,+40B 


TURN ON 


0252 


40441 


075571 




STB 


blank 


blank suppression 


0253 


40442 


035476 




ISZ 


mCnt 


MATRIX COMPLETED? 


0254 


40443 


002001 




RSS 




NO 


0255 


40444 


127771 




JMP 


mioen,i 


YES 


0256 


40445 


065611 


EINP0 


LDB 


TEMPI 


<INPUT STATEMENT 


0257 


40446 


055334 




CPB 


PRGCT 


SATISFIED? 


0258 


40447 


026512 




JMP 


EIN12 


YES 


0259 


40450 


035472 




ISZ 


SERR 


DID OVER/UNDERFLOW OCCUR? 


0260 


40451 


026456 




JMP 


EINP9 


YES 


0261 


40452 


050374 




CPA 


. + 15B 


NO, END OF INPUT RECORD? 


0262 


40453 


026400 




JMP 


EINP2-1 


YES 


0263 


40454 


050433 




CPA 


,+54B 


NO, COMMA NEXT? 


0264 


40455 


026465 




JMP 


EIN10 


YES 


0265 


40456 


115201 


EINP9 


JSB 


WERRS,I 


NO 


0266 


40457 


065420 




LDB 


IFCNT 


OUTPUT NEXT 


0267 


40460 


006004 




INB 




ITEM 


0268 


40461 


015454 




JS8 


OUTIN 


NUMBER 


0269 


40462 


060374 




LOA 


. + 15B 


OUTPUT 


0270 


40463 


015452 




JSB 


OUTCR 


CARRIAGE RETURN 


0271 


40464 


026400 




JMP 


EINP2-1 




0272 


40465 


015446 


E1N10 


JSB 


GETCR 


end of input record? 


0273 


40466 


026456 




JMP 


EINP9 


YES 


0274 


40467 


015450 




JSB 


BCKSP 


NO 


0275 


4047m 


026401 




JMP 


EINP2 





PAGE '0113 *09 STATEMENT fcXECUTION PROCESSORS 



0276 
0277 

0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 

0302 
0303 

0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 

03l6 
0317 
0318 
0319 
0320 
0321 
0322 

0323 
0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 



40471 
40472 
40473 
40474 
40475 
40476 
40477 
40500 
40501 
40502 
40503 
40504 
40505 
405 6 
40507 
40510 
40511 
40512 
40513 
40514 
40515 
40516 
40517 

40520 
40521 
40522 
40523 
40524 

40525 
40526 
40527 

40530 
40531 
4053? 
40533 
40534 
40535 
40536 
40537 
40540 

40541 
40542 

40543 
40544 
40545 
40546 
40547 

40550 
40551 

40552 
40553 
40554 
40555 
40556 
40557 
40560 



050421 
02647b 

055266 
026424 
115201 
065420 
015454 
060374 
015452 
006400 
055354 
026421 
026535 

075^66 
015446 
0264 7 5 
026435 
050374 
002401 
115210 
071570 
060371 
015452 
026031 
007000 

160001 
001727 
010500 
003000 
141330 
071410 
003400 
015344 
065406 
075354 

026537 
015444 
035420 
015446 
026535 
007400 
075472 

050421 
002001 
015450 
006400 
075571 
063770 
015350 
006400 
055406 
026600 
055462 
026574 
071354 

003400 



EINP7 CPA 
JMP 
CPB 
JMP 

E1NP8 JSB 
LDB 
JSB 
LDA 
JSB 
CLB 
CPB 
JMP 
JMP 

EIN11 STB 
JSB 
JMP 
JMP 

EIN12 CPA 
CU, 
JSB 

STA 
LDA 
JSB 
JMP 

E1N13 CMB 
LDA 
ALF, 
AND 
CMA 
ADA 
STA 
CCA 
JSB 
LDB 
STB I 
JMP 

EINu JSB 
ISZ 
JSB 
JMP 

CCB 
STB 
CPA 
RSS 
JSB 
CLB 
STB 
LDA 
JSB 
CLB 
CPB 
JMP 
CPB 
JMP 
SjA 
CCA 



. + 42B 

EINP8 

SIGN 

EINP4 

WERRSrI 

IFCNT 

OUTIN 

t + 15B 

OutCR 

INTMP 

EINP4-3 

EIN14 

SIGN 

GETCR 

EINP8 

EINP5 

.♦15B 

RSS 

WERRS+7,1 

CHRCT 

.♦12B 

OUTCR 

XECi 

1#I 
ALF 
B377 

TMPST,l 
TPRME 

PSTR 

TNULL 

NTMP 

*+3 

INCAL 

IFCNT 

GETCR 

**3 

SERR 
.♦428 

BCKSP 

BLAnjK 
FINCA 
TRSTR 

TNULL 
EIN21 
PS1 

EIN20 
IN-rMP 



■ ? 

YES 

NO, SIGN FOUND? 

NO, IGNORE CHARACTER 

YES 

OUTPUT 

ITEM NUMBER 
OUTPUT 

CARRIAGE REtuPN 
NUMBER 

REQUESTED? 
YES 
NO 
SAVE SIGN 

OUT-OF-DATA ERROR 

END OF rECOrD? 
YES 
NO 

ZERO CHARACTER COuNT 
OUTPUT A 
LINE FEED 

EXTRACT 
PHYSICAL 
LENGTH OF 

DESTINATION STRING 
SET IT AS END 
OF UNSPECIFIED 

DESTINATION STRING 
PREPARE 

DESTINATION STRING 
SAVE LENGTH 
ALLOWANCE 



FETCH 

FIRST 

CHARACTER 

TURN OFF 

over/underflow Flag 
■ ? 

YES 

NO, STRING BEGINS HERE 

TURN OFF 

BLA N K SUPPRESSION 
POINT TO INPUT BUFFER 
TRANSFER STRING 
ALL REQUESTED 

CHARACTERS TRANSFERRED? 
YES 

NO, TRANSFER LENGTH SPECIFIED? 
NO 

YES, SAyE (A) 
FINISH 
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0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

034fi 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365* 

0366* 

0367* 

0368* 

0369* 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
0384 
0385 
0386 



071410 
041406 
071406 
060664 
015350 
061354 
050374 

026440 
015446 
000000 
026440 
165260 
045406 
175260 

02^567 
055462 

026607 
015446 
026440 
050421 
026571 
026602 
015446 
026440 
050421 
026571 
061354 
071406 
061572 
071272 
060417 
071571 
026475 



STA TPRME 

ADA TNULL 

STA TNULL 

LDA FSCHA 

JSB TRSTR 

LDA INTMP 

EIN18 CPA ,+15B 

JMP EXNP6 

EIN19 JSB GETCR 
NOP 

JMP EINP6 

EIN20 LOB TEMP6.I 

ADB TNULL 

STB TEMP6,I 

JMP EIN18 

Ein21 CPB PS1 

JMP EIN15 

EIN16 JSB gETCR 

JMP EINP6 

CPA ,+42B 

JMP EIN19 

JMP EIN16 

EIN15 JSB GETCR 

JMP EINP6 

CPA ,+42B 

JMP EIN19 

LDA INTMP 

STA TNULL 

LDA SBPTR 

StA TEMP5 

LDA ,+40B 

STA BLANK 

JMP EINP8 

** 
AD STATEMENT> ** 

** 

40622 015504 EREAD JSB VLFIL 

40623 026640 JMP EREA1 

40624 015336 JsB FqrmX 

40625 161332 L & A nPDST,I 

40626 002020 SSA 

40627 026644 JMP EREA2 

40630 071572 STA SBPTR 

40631 061332 LDA OPDST 

40632 040355 ADA ,^2 

40633 071332 STA OPDST 

40634 006404 CLB,INB 

40635 015362 JSB FDATA 

40636 104400 DST SBPTR, I 

40637 101572 

40640 061611 EREAl LDA TEMPI 

40641 051334 CPA PRGCT 

40642 026031 JMP xECl 

40643 026624 JMP EREAD+2 



40561 
40562 
40563 
40564 
40565 
40566 
40567 
40570 
40571 
40572 
40573 
40574 
40575 
40576 
40577 
40600 
40601 
40602 
40603 
40604 
40605 
40606 
40607 
40610 
40611 
40612 
40613 
40614 
40615 
40616 
40617 
40620 
40621 

* * 

* EXECUTE <RE 

* + 



TRANSFER 

WITH BLANKS 

RESTORE (A) 

TRANSFER ENDED BY END^OF-INPUT? 

yES 

NO, WAS A « 

EXIT WITH 

NEXT CHARACTER 
SET LOGICAL 

TO ACTUAL 

STRING LENGTH 

LENGTH OF TRANSFER SPECKED? 

NO 

YES 

IMPLIED CLOSING QUOTE 

■ ? 

Y ES 

NO# LOOK FOR « OR END*OF*INPUT 

END*OF«INPUT NEXT? 

YES 

NO, CLOSING " ? 

YES 

NO, DESTINATION STRING EXCEEDED 

RESTORE 

DESTINATION STRING 
PARAMETERS 
SET TO 

SKIP BLANKS 



LOOK FOR FILE REQUEST 

FILE REQUEST FOUND 

EVALUATE DESTINATION ADDrEsS 

STRING 

VARIABLE? 
YES 
NO, SAVE AND 

UNSTACK 

DESTINATION 
ADDRESS 
FETCH 

NUMBER 
STORE NUMBER 

END OF 

STATEMENT? 
YES 
NO 
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0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394* 

0395* 

0396* 

0397* 

0398* 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 
0410 

0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 

0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 



40644 064361 

40645 015362 

40646 003400 

40647 015344 

40650 060664 

40651 015350 

40652 026640 

** 

* EXECUTE <PR 

** 



EREA2 LOB ,+2 

JSB FOATA 

CCA 

JSB PSTR 

LDA FSCHA 

JSB TRSTR 

JMP EREA1 

** 
INT STATEMENT ** 
** 



PREPARE 

SOURCE STRING 
PREPARE 

DESTINATION STRING 

TRANSFER STRING 



40653 
40654 

40655 
40656 
40657 
40660 
40661 
40662 
40663 
40664 

40665 
4 666 
40667 
40670 
40671 
40672 
40673 
40674 
40675 
40676 
40677 
40700 
40701 
40702 
40703 
40704 
40705 
40706 

40710 
40711 
40712 
40713 
40714 

40715 
40716 
40717 
40720 
40721 
40722 
40723 
40724 
40725 
40726 



002404 
015552 
002400 
071754 
015504 
027017 
026671 
061234 
002021 
026670 
00^400 
05M70 
015426 
003401 
002400 
071470 
161611 
010566 
002002 
026722 
035611 
065611 
055334 
027014 
161611 
010570 
050514 
026662 
050516 

026670 
050506 
026746 

050542 
027006 
002003 
026673 
003400 
041611 
071611 
003400 
071470 
015336 
165332 
006020 



EPRIN CLA, 
JSB 
CLA 
STA 
JSB 
JMP 
JMP 

EPRIt LDA 
SSA, 
JMP 
CLA 
CPA 
JSB 

EPRI2 CCA, 
CLA 
STA 

EPRI3 LDA 
AND 
SZA 
JMP 

ISZ 
EPRI4 LDB 
CPB 
JMP 
LDA 
AND 
CPA 
JMP 
CpA 
JMP 
CPA 
JMP 
CPA 
JMP 
SZA, 
JMP 
CCA 
ADA 

STA 
EPRI5 CCA 
STA 
JSB 
LDB 
SSB 



INA 
EpRUS 

FFLG 

VLFlL 

EPR13 

EPRI2+1 

FILE* 

RSS 

EPRI2 

EOL 

EDELM 

RSS 

EOL 

TEMPI, I 
OPDMK 

EPRI5 

TEMPI 

TEMPI 

PRGCT 

EPR12 

TEMPI, I 

OPMSK 

B2000 

EPRIi 

B3000 

EPRI2 

B1000 

EPRJ8 

ENDOP 

EPRil 

RSS 

EPRI3 

TEMpl 
TEMPI 

EOL 

FORMX 

OPDST,X 



FLAG AS IPRINT* 

CHECK F R using statement 

FLAG AS 

NON*FOrMATTED 
VALIDATE FilE REQUEST 

NO FILE REQUEST FOUND 
FILE 

MODE? 
yES 
NO, EXECUTE COMMA 

UNLESS PRECEDED BY 
A 'TAB* (EOL p 1) 
TURN O^F tE N D«o*H X NE» F^AG 
TURN ON 

»END-QF«LINEi FLAG 

extract 

NEXT OPERAND 
NULL? 

NO, BEGINS FORMULA 
yES 
STATEMENT 

FINISHED? 
YES 
NO, EXTRACT 

NEXT OPERATOR 
COMMA? 
YES 

NO, SEMICOLON? 
YES 

NO, • ? 
YES 
NO, 

YES 
NO, 
YES 

NO, 



»END< ? 



NULL? 



MUST 



be Formula 
reset to prior 
null operand 

TURN OFF 

1TAB1 FLAG 
EVALUATE FORMULA 
IS IT A 

STRING VARIABLE? 



PAGE 0116 #09 STATEMENT EXECUTION PROCESSORS 



0443 
0444 

0445 
0446 
0447 
044a 
0449 
0450 

0451 
0452 

045 3 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 

0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 

0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 

0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 



40727 
40730 
40731 
40732 
40733 
40734 
40735 
40736 
40737 
40740 
40741 
4^742 
40743 
40744 
40745 
40746 
40747 
40750 
40751 
40752 
40753 
40754 
40755 
40756 
40757 
40760 
40761 
40762 
40763 
407$4 
40765 
40766 
40767 
40770 
40771 
40772 
40773 
40774 

40775 
40776 

40777 

41000 

41001 
41002 
41003 
41004 

41005 
41006 
41007 
41010 
41011 
41012 
41013 
41014 
41015 
41016 



026747 
015376 
061234 
002021 
026742 
035470 
026700 
104200 

100001 

015416 
026700 
075572 
064355 
015510 
026700 
015340 
060355 
015344 
071256 
075410 
064354 
061234 
002021 
026744 
002400 
071470 
061406 
003004 
041570 
043772 

002021 
015424 
027003 
015364 
060417 
050375 
060371 
050376 
002001 
027002 
060374 
015452 
002400 
015452 
035406 
026770 
026700 
071651 
015512 
050362 
026677 

m74m 

026744 
035470 
015424 
026031 



JMP EPRI8+1 

J3B OPCHK 

IDA FILE* 
SSA,RSS 

JMP EPRI7 

ISZ EOL 

JMP EPRI4 

OLD 1,1 



EPRI7 



EPRI8 



EPRI9 



EPR10 



EPRll 



EPR12 



JSB 
JMP 
STB 
LD8 
JSB 
JMP 
JSB 
LDA 
JSB 
STA 
STB 
LDB 
LDA 

SSA, 

JMP 

CLA 

STA 

LDA 

CMA, 

ADA 

ADA 

SSA, 

JSB 

JMP 

JSB 

LDA 

CPA 

LDA 
CPA 

RSS 
JMP 
LDA 
JSB 
CLA 
JSB 
ISZ 
JMP 
JMP 
STA 
JSB 
CPA 
JMP 

CCB 
JMP 

ISZ 
JSB 

JMP 



ENOUT 
EPRI4 
SBPTR 

• -2 
FILST 
EPRI4 
STSTR 

»*2 

PSTR 

TEMP4 

TPRME 

• **3 
FILE* 
RSS 
EPRI7+2 

EOL 

TNULL 

INA 

CHRCT 

M74 

RSS 

OUTLN 

EPR10 

FSCH 

• +40B 
. + 16B 

, + 12B 
. + 17B 

EPR10-1 

.♦15B 

OUTCR 

OUTCR 

TNULL 

EPRI9 

EPRI4 

EORFL 

GTTYP 

. + 3 

EPRI4-1 

EPRI7+2 
EOL 
OUTLN 
XECi 



YES 

NO, UNSTACK VALUE ADDRESS 

TO BE WRITTEN 

ON A FILE? 
YES 

NO, A »TAB» ? 
YES (EOL ■ 1 NOW) 
NO, OUTPUT 

A NUMBER 

SAVE VALUE ADDRESS 
WRITt NUMBER 
ON FILE 

STACK STRING CONSTANT 
PREPARE 
PRINT 
STRING 

PRESET TO WRITE ON FILE 
TO BE WRITTEN 

ON A FILE? 
YES 
NO, TURN ON 

'END-.OF-.HNEt FLAG 
ENOUGH 

SPACE 
ON 

CURRENT 
LINE? 
NO 
YES 
FETCH 

CHARACTER 
PSUEDO LINE FEED? 
YES 

PSUEDO CARRIAGE RETURN? 
YES 
NO 

OUTPUT 

CARRIAGE RETURN 
AND A NULL 
OUTPUT CHARACTER 
MORE STRING? 
YES 
NO 
FILE 

FULL? 
YES 

NO* WRITE 

END-OF-FILE 
»END*OF*LINE« FLAG SET? 
YES 

NO 
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0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0001* 

0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0008* 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 

0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 



41017 
41020 
41021 
41022 
41023 
41024 
41025 
41026 



044347 

160001 
031027 
170001 
065611 
055334 
026031 
026670 



EPR13 



ADB 
LOA 
IOR 
STA 
LOB 
CPB 
JMP 
JMP 



,"8 

B,I 

BIT15 

B,I 

TEMPI 

PRGCT 

XEC1 

EPRI2 



SET BUFFER 
DIR- 
TY 
BIT 
NULL 

PRINT? 
YES 
NO 

** 



* EXFCUTE <PRInT USIn^ STATEME N T> ** 

* ** 



exit t° cp+1 
format speci 



) IF NO USING OPERAjOR FOuND, OTHERWISE PREPARE 
FICATION STRING AND CALL FORMATTED OUTPUT ROUTINE, 



41027 

41030 

4i03l 
41032 
41033 
41034 
41035 
41036 
41037 
41040 
41041 
41042 
41043 
41044 
41045 
41046 
41047 
41050 
41051 
41052 
41053 
41054 
41055 
41056 
41057 
41060 
41061 
41062 
41063 
41064 
41065 
41066 
41067 
41070 
41071 
41072 
41073 
41074 
41075 
41076 



071754 
0656U 

160001 
050574 

006005 

125552 
055334 
125552 
160001 
010570 
050604 
002001 
125552 
120001 
0756H 

002021 
027065 
006004 
164001 
044361 
160001 
010570 
050546 
002001 
115145 
035611 
035611 
002400 
071760 
015550 
002003 
027135 
015336 
060355 
015344 
161260 
010500 
002003 

026031 
003004 



#EPRU STA 
LDB 
IDA 
CPA 
INB, 
JMP 
CPB 
.JMP 
IDA 
AND 
CPA 
PSS 
JMP 

XOR 
STB 

SSA, 

JMP 

INB 

LDB 

ADB 

LDA 

AND 

CPA 
RSS 
J SB 
ISZ 
ISZ 
CLA 
STA 
JSB 
EPRU1 SZA, 
JMP 
JSB 
LDA 
JSB 
LDA 

AND 
S2A, 
JMP 
CMA, 



FFLG 
TEMPI 

B,I 

PRTOP 

RSS 

EPRUS,I 

PRGCT 

EPRUS,I 

B,I 

OPMSK 

USEOP 

EPRUS,I 

B,I 

TEmPI 

RSS 

EPRUi 

B,I 
• ♦2 
H,I 
OPMSK 

IMGOP 

RERRS+38, 

TEMPI 

TEMPI 

NCH 

FRMAT 

RSS 

EPRU4 

FQRMX 

.-2 

PSTR 
TEMP6,I 

B377 

RSS 

XEC1 

INA 



SAVE FORMAT FLAG 



NULL OPERAND? 
YES 

NO, CAN'T BE USING STATEMENT 
END OF STATEMENT? 
YES 

NO, »USINGi 
OPERATOR 
NEXT? 
YES 

NO, EXIT 
GET OPERAND 
SAVE POINTER 

integer Follows? 
no 

get address of image statement 

«> LENGTH wORD 

GET OPERATOR 
IMAGE? 
YES 
I NO, ERROR 
BUMP TO POINT 

TO FIRST OPERAND 



CALL FORMATTER 
NULL OPERAND? 
YES 

NO, FETCH 
STRING 

OPERAND 
GET 

LENGTH 
NULL STRING? 
YES 
NO, SAVE 
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0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 

007l 
0072 
0073 
0074 
0075 
0076 

mn 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090* 

0091*** 

0092** 

0093*** 

0094* 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102* 

0103*** 

0104** 



1077 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1110 
1111 
1112 
1113 
1114 

1115 
1116 

1117 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 

1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1 140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 



071550 
065330 
044361 
160001 
003004 
006004 
134001 
027112 
002400 
071760 
027125 
140001 
002003 
026031 

002020 
1151 53 
071760 
003400 
140001 
04l5 5 

002021 
115153 
044356 
160001 
041550 
002021 
115153 
160001 
065260 
015550 
006004 
160001 
010566 
002004 
001100 
041611 
040361 
071611 
002400 
071760 
015550 



STA 

LDB 

ADB 

LDA 

CMA, 

INB 

ISZ 

JMP 

CLA 

STA 

JMP 

EPRU2 ADA 
SZA, 
JMP 
SSA 
JSB 
STA 
CCA 
ADA 
ADA 
SSA, 
JSB 

EPRU3 ADB 
LDA 
ADA 
SSA, 
JS8 
LDA 
LDB 
JSB 

EPRU4 INB 
IDA 
AND 
INA 
ARS 
ADA 
ADA 
STA 
CLA 
STA 
JSB 



STRLN 
TMPST 
.+2 
B,I 

INA 

B,I 
EPRU2 

NCH 

EPRU3 

B,I 

RSS 

XEC1 

RERRS+44, 
NCH 

B,I 
STRLN 
RSS 
RERRS+44, 

.-1 

B,I 
STRLN 
RSS 
RERRS+44, 

B,I 

TENP6 

FRMAT 

B,I 
OPDMK 



TEMPj 

.♦2 

TEMPI 

NCH 
FRMaT 



•LENGTH 



GET FIRST SUBSCRIPT 
NEGATE IT 

SECOND SUBSCRIPT EXIST? 

YES 

NO f SET 

CHARACTER COUNT 

COMPUTE DIFFERENCE 
NULL STRING? 
YES 

NOf NEGATIVE? 
I YES 
NO, SAyE DIFFERENCE 

SECOND 

SUBSCRIPT 
VALID? 
I NO 
YES 
FIRST 

SUBSCRIPT 
VALID? 
I NO 
YES, LOAD IT 
«> FIRST WORD OF STRING 
CALL FORMATTER 
■> 1ST WORD OF STRING 
UPDATE 

INTRA* 

STATEMENT 

POINTER 



CALL FORMATTER 



** 



EXECUTE <RFS T ORE S t AtEMEN T » ** 



** 



1150 
1151 
1152 
1153 
1154 

H55 
1156 



161611 
035611 
065575 
002020 
165611 
015360 
026031 



ERSTR 



LDA 

ISZ 
LDB 
SSA 
LDB 
JSB 
JMp 



TEMPI, I 

TEMPI 

SPROG 

TEMPI, I 

SETDP 

XEC1 



LOAD FLAG wORD 

ADVANCE STATEMENT POINTER 

SET (B) TO START OF PR06RAM 

■LABELLED RESTORE* 

YES, RESET (B) TO STATEMENT 

SET DATA POINTERS 



EXECUTE <EnTFR STAjEME N T> 



** 
• * 
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0105*** 






*** 




0106* 












0107 


41157 


161611 


EENTR LOA 


TEMPI, I 


»> FIRST OPERATOR 


0106 


41160 


010566 


ANO 


OPDMK 




0}09 


41161 


002002 


SZA 




IS •#' PRESENT? 


0110 


41162 


027214 


JMP 


EENT3 


NO 


0111 


41163 


065611 


LOB 


TEMPI 




0112 


41164 


006004 


INB 






0113 


41165 


160001 


IDA 


B,I 


GET NEXT OPERATOR 


0114 


41166 


010570 


AND 


OPMSK 




0115 


41167 


050520 


CPA 


B4000 


'#»? 


0116 


41170 


002001 


RSS 




YES 


0117 


41171 


027214 


JMP 


EENT3 


NO 


0118 


41172 


075611 


STB 


TEMPI 




0119 


41173 


015336 


JSB 


FORMX 


EVALUATE ADDRESS 


0120 


41174 


165332 


LDB 


OPDST,! 




0121 


41175 


075572 


STB 


SBpTR 


■> SYMBOL 


0122 


41176 


061332 


LDA 


OPDST 


UN8TACK 


0123 


41177 


040355 


ADA 


.-2 




0124 


41200 


071332 


STA 


OPDST 


ADDRESS 


0125 


41201 


064255 


LDB 


MAIN 




0126 


41202 


006004 


INB 




»> USERS TTY # IN TELETYPE TABLE 


0127 


41203 


160001 


LD* 


1*1 


GET TTY * ANo 


0128 


41204 


001727 


ALF, 


ALF 


RIGHT JUSTIFY 


0129 


41205 


105120 


OCT 


105120 


convert to floating ^oint 


0130 


41206 


171572 


STA 


SBRTR,I 


STORE 


0131 


41207 


035572 


ISZ 


SBPTR 


TTY 


0132 


41210 


175572 


STB 


SBPTR, I 


NUMBER 


0133 


41211 


06*611 


LDA 


TEMPI 


ENTER STATEMENT 


0134 


41212 


051334 


CPA 


PRGCT 


FINISHED? 


0135 


41213 


026031 


JMP 


XECl 


YES 


0136 


41214 


015356 


EtNT3 JSB 


FETCH 


NO^FEtCh ALLOWED TIME 


0137 


41215 


015414 


JSB 


IFIX 


CONVERT 


0138 


41216 


000000 


NOP 




TO 


0139 


41217 


060001 


LDA 


1 


SECONDS 


0140 


41220 


010500 


AND 


B377 


MASK TO 8 BITS 


0141 


41221 


002003 


SZA, 


rRSS 


IF 0, SET 


0142 


41222 


002004 


INA 




TO 1 


0143 


41223 


071610 


STA 


ATIM 




0144 


41224 


060255 


LDA 


MAIN 


DOES THIS USER 


0145 


41225 


002004 


INA 




HAVE THE 


0146 


41226 


050253 


CPA 


PRIST 


LINE PRINTER? 


0147 


41227 


115212 


JSB 


WERRS+9,1 


YES . RELEASE IT 


0148 


41230 


060400 


LDA 


.+21B 


OUTPUT 


0l4g 


41231 


015452 


JSB 


OUTCR 


AN X*ON 


0150 


41232 


060214 


LDA 


STE 


START 


0151 


41233 


031610 


IQR 


ATIM 


EnTEr 


0152 


41234 


114742 


JSB 


SCHIN,I 


TIMING 


0153 


41235 




EN T R T EQU 


* 




0154 


41235 


027253 


JMP 


EENT6 


INPUT ENjErED 


0155 


41236 


015336 


JSB 


FORMX 


TIMEOUT OCCURED 


0156 


41237 


165332 


LDB 


OPDST, 1 


■> RESPONSE 


0157 


41240 


075572 


STB 


SBPTR 


TIME 


0158 


41241 


061332 


LDA 


OPDST 


UNSTACK 


0159 


41242 


040355 


ADA 


.-2 




0160 


41243 


071332 


STA 


OPDST 


ADDRESS 
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0161 


41244 


060316 


LDA 


M256 


SET 


0162 


41245 


105120 


OCT 


105120 


RESPONSE 


0163 


41246 


171572 


STA 


sbptr,i 


TIME 


0164 


41247 


035572 


ISZ 


SBPTR 


TO 


0165 


41250 


175572 


STB 


SBPTR, I 


-256 


0166 


41251 


127252 


JMP 


*+l,I 




0167 


41252 


041425 


DEF 


EEN18 




0166 


41253 




EENT6 EQU 


* 




0169 


41253 


006400 


CLB 




DON'T SUPPRESS 


0170 


41254 


075571 


STB 


BLANK 


BLANKS 


0171 


41255 


015446 


JSB 


GETCR 


FIRST 


0172 


41256 


000000 


NOP 




CHARACTER A 


0173 


41257 


064417 


LDB 


t +40B 


SUPPRESS 


0174 


41260 


075571 


STB 


BLANK 


BLANKS 


0175 


41261 


050362 


CPA 


f +3 


CONTROL C? 


0176 


41262 


124652 


JMP 


EXITA,I 


YES 


0177 


41263 


015450 


JSB 


BCKSP 


NO 


0178 


41264 


015336 


JSB 


FORMX 


EVALUATE ADDRESS 


0179 


41265 


165332 


L.DB 


OPDST, I 




0180 


41266 


075572 


STB 


SBPTR 


•> RESPONSE TImE 


0181 


41267 


075420 


STB 


RSPTR 




0182 


41270 


061332 


LDA 


OPDST 


UNSTACk 


0183 


41271 


040355 


ADA 


.-2 




0184 


41272 


071332 


STA 


OPDST 


ADDRESS 


0185 


41273 


064255 


LDB 


MAIN 




0186 


41274 


044377 


ADB 


,+?RUM 


GET RESPONSE 


0187 


41275 


160001 


LDA 


1,1 


TIME 


0188 


41276 


105120 


OCT 


105120 




0189 


41277 


171572 


STA 


SBpTR,I 


STORE 


0190 


41300 


035572 


ISZ 


SBPTR 


IT 


0191 


41301 


175572 


STB 


SBpTR* I 




0192 


41302 


015336 


JSB 


FORMX 


EVALUATE ADDRESS 


0193 


41303 


165332 


LDB 


OPDST, I 


IS IT A 


0194 


41304 


006020 


SSB 




STRING VARIABLE? 


0195 


41305 


027341 


JMP 


EEN10 


YES 


0196 


41306 


061332 


LDA 


OPDST 


NO, 


0197 


41307 


040355 


ADA 


*• cL 


UNSTACK 


0198 


41310 


071332 


STA 


OPDST 


ADDRESS 


0199 


41311 


075572 


STB 


SBPTR 


SAVE DESTINATION ADDRESS 


0200 


41312 


002400 


CLA 




SET SIGN 


0201 


4l3l3 


071266 


STA 


SIGN 


TO POSITIVE 


0202 


41314 


015446 


JSB 


GETCR 


FETCH FIRST CHARACTER 


0203 


41315 


027414 


JMP 


EEN17 


NONE FOUND—ERROR 


0204 


41316 


007400 


CCB 




TURN OFF 


0205 


41317 


075607 


STB 


ENOUF 


OVER/UNDERFLOW FLAG 


0206 


41320 


050434 


CPA 


,+55B 


i*»7 


0207 


41321 


027326 


JMP 


EENT7 


YES 


0206 


41322 


006404 


CLBi 


rINB 


NO 


0209 


41323 


050432 


CPA 


t +53B 


»4«? 


0210 


41324 


002001 


R3S 




YES 


0211 


41325 


027331 


JMP 


EENT8 


NO 


0212 


41326 


075266 


EENT7 STB 


SIGN 


SET SIGN 


0213 


41327 


015446 


JS8 


GETCR 


GET NEXT CHARACTER 


0214 


41330 


0274J4 


JMP 


EEN17 


NONE FOUND 


0215 


41331 


015276 


EENT8 JSB 


NUMCK 


NUMBER? 


0216 


41332 


000000 


NOP 




NO**ERROR 
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0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 

0249 

0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
026a 
0269 
0270 
0271 
0272 



41333 
41334 
41335 
41336 
41337 
41340 
41341 
41342 
41343 
41344 

41345 
41346 
41347 
41351? 
41351 
41352 
41353 
41354 
41355 
41356 
41357 
41360 
41361 
4136? 
41363 
41364 
41365 
41366 
41367 
41370 
41371 
41372 
413?3 
41374 
41375 
41376 
41377 
41400 
41401 

41402 
41403 
41404 
41405 
41406 
41407 
41410 
41411 
41412 
41413 
4I4U 
4141s 
41416 

41417 
41420 
41421 
4U22 



027414 
035607 
027414 
050374 
027425 
027414 
007000 
160001 
001727 
010500 
003000 
141330 
071410 

003400 

015344 
065406 
075354 
006400 
07557 1 
063767 
015350 
006400 
055406 
027401 
055462 
027375 
071354 
003400 
071410 
041406 
071406 
060664 
015350 
027425 
165260 
045406 
175260 
027425 
055462 
027406 
015446 
027425 
027403 
015446 
027425 
061354 
071406 
061572 
071272 
161420 
035420 
165420 
015370 
175420 
007400 
045420 



JMP 
ISZ 

JMP 
CPA 

JMP 
JMP 

EfcNi0 CMB 
LDA 
ALF 
AND 
CMA 

ADA 
STA 
CCA 
JSB 
LOB 
STB 
CLB 
STB 

lda 

JSB 
CLB 
CPB 
JMP 
CPB 
JMP 
STA 
CCA 
STA 
ADA 
STA 
LDA 

JSB 
JMP 
EEN13 LDB 
ADB 
STB 
JMP 
CPB 
JMP 
JSB 
JMP 
JMP 
JSB 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
ISZ 
LDB 
JSB 
STB 
CC6 
ADB 



EEN14 
EEN15 



EEN16 



EEN17 BAD EXPONENT«-»ERRQR 

ENOyF DID OvER/uNDERFLOw OCCuR? 

EEN17 YE3—ERR0R 

. + 15B NO, CARRIAGE RETURN FOUOWS7 

EEN18 YES 

EEN17 NO„„ERROR 

EXTRACT 
1,1 PHYSICAL 

,ALF LENGTH OF 

B377 DESTINATION STRING 

SET IT AS END 
TMPST#I OF UNSPECIFIED 
TPrME DESTINATION STRING 

PREPARE 
PSTR DESTINATION STRING 
TNULL SAVE LENGTH 

INtMP allowance 

TURN OFF 

blank blank suppression 

fenca point to enter c h ar routine 

trstr transfer string 

aul requested 
tnull characters transferred? 

EEN14 YES 

PS1 NO, TRANSFER LENGTH SPECIFIED? 
EEN13 NO 
INTMP YES«*-SAVE (A) 
FINISH 



EEN17 



TPRME 




TNULL 


TRANSFER 


TNULL 




fscha 


with blanks 


TRSTR 




EEN18 




TEMP6,I 


SET LOGICAL 


TNULL 


TO ACTUAL 


TEMP6,I 


STRING LENGTH 


EEN18 




PS1 


LENGTH OF TRANSFER SPECIFIED? 


EEN16 


NO 


GETCR 


YES 


EEN18 


CARRIAGE RETURN 


EEN15 


LOOK FOR CARRIAGE RETURN 


GETCR 


EnD«OF«InPUT next? 


EEN18 


YES 


INTMP 


NO*„DESTINATIQN STRING EXCEEDED 


TNULL 


RESTORE 


SBPTR 


DESTINATION STRING 


TEMPS 


PARAMETERS 


RSPTR, I 


TAKE 


RSPTR 


ARITHMETIC 


RSPTR, I 


INVERSE OF 


ar:nv 


RESPONSE TIME 


RSPTR, I 


STORE 




IN 


RSPTR 


VALUE 
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0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282* 

0283* 

0284* 

0285* 

0286* 

0287 

0288 

0289 

0290 

0291 

0292 

0293 
0294 

0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 



41423 
41424 

41425 
41426 
41427 

41430 
41431 
41432 
41433 



170001 
075607 

002400 

071570 

060417 

071571 

P02400 
015452 
026031 



EEN18 



STA 


1,1 


TABLE 


STB 


enouf 


clear over/underflow Flag 


CLA 




ZERO CHARACTER 


STA 


CHRCT 


COUNTER 


1 DA 


• +40B 


RESTORE 


STA 


BLANK 


BLANK SUPPRESSION 


CLA 




OUTPUT A 


JSB 


OUTCR 


NULL* 


JMP 


XEC1 





♦ * ** 

* EXECUTE <AssI«N sTATEMENt> ** 
** ** 



41434 
41434 
4143s 
41436 
41437 
41440 

41441 
41441 

41442 
41443 
41444 
41445 
41446 
41447 

41450 
4U51 
41452 
41453 
41454 
41455 
41456 
41457 
41460 
41461 
41462 
41463 
41464 
41465 
41466 
41467 
41470 
41471 
41472 
41473 
41474 

4I474 
41475 
41476 
41477 
41477 
41500 
41501 



EASN 



060354 
071440 
071771 
067765 
063764 

170001 
006004 
035440 
027441 
002404 
071470 
015336 
060355 
015344 
071256 
002400 
071466 
054356 
027514 
075410 
065256 
004065 
160001 
002041 
001727 
010500 
006404 
050423 
027474 
050431 
006005 
027477 

075466 
035256 
035410 

061410 
040366 
002020 



EASN0 



EAS01 



EA$00 



EQU * 




LDA t *»3 




STA LT5 




STA ASINP 


SET FLAG TO SAY ASSIGN OCC 


LOB ASBFA 




LDA DBLNK 




EQU * 




STA B,I 


BLANK OUT 3 WORDS 


INB 




ISZ LT5 




JMP EASN0 




CLA,INA 


ALLOW STRING 


STA EOL 


CONSTANT 


jSB FORMX 


EVALUATE STRING 


LDA ,-2 




JSB PSTR 


PREPARE STRING OPERANO 


STA TEMP4 


SAVE SORCE POINTER 


CLA 


INITIALIZE TO 


STA ASTYP 


LOCAL LIBRARY 


CPB .-1 


NULL STRING? 


JMP EAS02 


YES 


STB TPRME 


SAVE STRING LENGTH 


LDB TEMP4 


GET FIRST 


CLE,ERB 




LDA B,I 


CHARACTER 


SEZ,RSS 




ALF, ALF 


OF STRING 


AND B377 




CLB,INB 


SET FOR PUBLIC LIBRARy 


CPA ,+44B 


'$«? 


JMP EAS01 


YES 


CPA •+52B 


NO, '*«? 


INB#RSS 


YES, SET FOR GROUP LIBRARY 


JMP EAS00 


NO 


EQU * 




STB ASTYP 


SAVE LIBRARY TYPE 


ISZ TEMP4 


BUMP SOURCE POINTER 


ISZ TPRME 


BUMP LENGTH 


EQU * 




LDA TPRME 




ADA ,+7 




SSA 


LENGTH > 6? 
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0329 
03313 
0331 
0332 
0333 
0334 
0335 
0336 

0337 

0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
034$ 

0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 

0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
03g2 



41502 

41503 
41504 

41505 
41506 
41507 
41510 
41511 
41512 
41513 
41514 
41515 
41516 
41517 
41520 
41521 
41522 
41523 
41524 

41525 
41526 
41527 
41530 
41531 
41532 
41533 
41534 
41535 
41536 
41537 
41540 
4l54l 
41542 
41543 
41544 
41545 
41546 
41547 
41550 
41551 
41552 
41553 
41554 
41555 
41556 
41557 
41560 
41561 
41562 
41563 
41564 
41565 
41566 
41567 
41570 
41571 



002400 

040350 
071410 
071406 
063765 
071554 
001000 
071272 
060654 

015350 
015356 
015342 
064506 
075550 
015336 
161332 
071633 
060363 

105120 
104400 

101633 
015376 
061550 

003000 
041500 
003021 
026031 
006400 
061550 
100200 
000376 
041502 
040364 
071236 

040362 
164000 
040350 
160000 
001423 
003004 
040001 
071645 
015514 
061236 
040352 
071236 
006400 
174000 
040375 
174000 
075770 
114744 
072047 
027646 
035770 
035770 



CLA 
ADA 
STA 
STA 
LDA 
STA 
ALS 
STA 
LDA 
JSB 
EA$02 JSB 
JSB 
UDB 
STB 
JSB 
LDA 
STA 
LDA 
OCT 
DST 



.-7 

TPRME 
TNULL 
ASBFA 
ASBFP 

TEMP5 

PCUCA 

TRSTR 

FETCH 

SBF1X 

B1000 

ORDNO 

FORMX 

OPDST,! 

AyMP+l 

.♦4 

105120 

ATMP+1,1 



JSB OPCHK 

LDA ORDNO 

CMA 

ADA FCNTR 

CMA,SSA,RSS 

JMP xECl 

CLB 

LDA ORDNO 

hPy .+FTPL 



ADA 

ADA 

STA 

ADA 

LDB 

ADA 

LDA 

ALR, 

CMA, 

ADA 

STA 

JSB 

LDA 

ADA 

STA 

CLB 

STB 

ADA 

STB 

STB 

JSB 

DEF 

JMP 

ISZ 

182 



FILTB 

f +5 

FBASE 

.♦3 

0,1 

• -7 

0,1 

RAR 

INA 

1 

RQ3 
WRBuF 
FBASE 

,"5 
FBASE 

0,1 

.♦14 

0,1 

RETCD 

SCH|_B,I 

ASNIB 

EASN4 

RETCD 

RETCD 



YES, SET TO 6 
NO 



POINTER TO 
NAME BUFFER 

DESTINATION STRING POINTER 
UPPER CASE CHARACTERS ONLY 
MOVE NAME 

EVALUATE NUMERIC QP^rAnD 
ROUND TO INTEGER 

SAVE SPECIFIED ORDINAL NUMBER 
LEAVE NEXT VARIABLE ON TOP OF ST 
SAVE ADDRESS OF USER VARIABLE 

DEFAULT 
RETURN CODE 

TO NONEXISTENT FILE 

UNSTACK VALUE ADORESS 
DOES 

REQUESTED 
FILE 
EXIST? 
NO, DONE 

LOCATE 

CORRECT 

FCB 
DISC ADDRESS AnO SAVE IT 

get current buffer address 



CLEAR BITS J5 AND 14 



write out record 

RESTORE 
FCB 

POINTER 

INITIALIZE 

INITIALIZE PROTECTMASK TO 
INITIALIZE RETURN CODE 
CALL IN 

ASSIGN OVERLAY 
FILE RECORD SIZE TOO LARGE 
FILE DOESN'T EXIST OR PROTECTED 
•READ- ONLY' - GROUP OR A000 



page 


0124 i 


¥10 STATEMENT 


EXECUTION PROCESSORS 


0383 


41572 


035770 


ISZ 


RETCD 


'READ ONLY' - FILE IN USE 


0384 


41573 


061611 


LOA 


TEMPI 




0385 


41574 


051334 


CPA 


PRGCT 


END OF STATEMENT ? 


0386 


41575 


027644 


JMP 


FASN3 


YES 


0387 


41576 


160000 


IDA 


0,1 


TEST FOR A COMMA 


0388 


41577 


010570 


ANO 


OPMSK 




0389 


41600 


050514 


CPA 


B2000 


COMMA FOLLOWING? 


0390 


41601 


002001 


RSS 






0391 


41602 


027644 


JMP 


EASN3 


NO 


0392 


41603 


002404 


CLA ( 


,INA 


ALLOW 


0393 


41604 


071470 


STA 


EOL 


STRING CONSTANT 


0394 


41605 


015336 


JSB 


FormX 


YES, tvAtUATE STRING OPErAnD 


0395 


416^6 


060355 


LOA 


,-2 


PREPARE 


0396 


41607 


015344 


JSB 


PSTR 


SOURCE 


0397 


41610 


071256 


STA 


TEMP4 


STRING 


0398 


41611 


075410 


STB 


TPRME 




0399 


41612 


063765 


IDA 


ASBFA 




0400 


41613 


071554 


STA 


ASBFP 


GET CHARACTER 


0401 


41614 


001000 


ALS 




POINTER TO 


0402 


41 6 15 


071272 


STA 


TEMP5 


PASSWORD BUFFER 


0403 


41616 


060354 


LOA 


.-3 




0404 


41617 


071440 


STA 


LT5 




0405 


41620 


065554 


LDB 


ASBFP 




0406 


41621 


063764 


LDA 


DBLNK 




m%7 


41622 


170001 


STA 


1,1 


FILL PASSWORD 


040a 


41623 


006004 


INB 




BUFFER WITH 


0409 


41624 


035440 


ISZ 


LT5 


BLANKS 


0410 


41625 


027622 


JMP 


*<*3 




0411 


41626 


060350 


LOA 


.-7 


SET LENGTH (IN CHARACTERS) 


0412 


41627 


071406 


ST A 


TNULL 


OF PASSWORD BUFFER 


0413 


41630 


060664 


LDA 


FSCHA 




0414 


41631 


015350 


JSB 


TRSTR 


MOVE PASSWORD TO BUFFER 


0415 


41632 


061554 


LDA 


AsBFp 




0416 


41633 


002004 


INA 






0417 


41634 
41635 


104200 

100000 


OLD 


0,1 




0418 


41636 


141554 


ADA 


As8Fp,I 


ADD MQrDI AND w0rD2 


0419 


41637 


020001 


XOR 


1 


EXCLUSIVE OR * W0RD3 


0420 


41640 


030221 


IOr 


RBP 


INCLUSIVE Or BITS U AND 15 


0421 


41641 


065236 


LDB 


FBASE 




0422 


41642 


044375 


ADB 


. + 14 




0423 


41643 


170001 


STA 


1,1 


STORE PROTECTMASK IN FCB 


0424* 












0425 


41644 


061770 EASN3 


LDA 


RETCD 


A ■ RETURN CODE 


0426 


41645 


002001 


RSS 






0427 


41646 


060364 EAsN4 


LDA 


.♦5 




0428 


41647 


105120 


OCT 


105120 


FLOAT RETURN CODE AND 


0429 


41650 
41651 


104400 
101633 


DST 


ATMP*1, I 


STORE IN USER VARIABLE 


0430 


41652 


026031 


JMP 


xeci 


DONE 
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0432* 








0433*** 




** 


0434** complete execution ** 


0435*** 




** 


0436* 








0437 


41653 




EXIT FQU 


0436 


41653 


103100 


CLF 


0439 


41654 


160255 


IDA 


0440 


41655 


030377 


IOR 


0441 


41656 


170255 


STA 


0442 


41657 


102100 


STF 


0443 


4l660 


061500 


LDA 


0444 


41661 


003000 


CMA 


0445 


41662 


071500 


SjA 


0446 


41663 


002004 


INA 


0447 


41664 


071550 


STA 


0448 


41665 


061232 


L OA 


0449 


41666 


065502 


L.DB 


0450 


4 1 667 


044364 


A08 


0451 


41670 


035500 


EXlTg, ISZ 


0452 


41671 


027750 


J MP 


0453 


41672 


015556 


JSB 


0454 


41673 


006400 


EXIT3 CLB 


0455 


41674 


174632 


STB 


0456 


41675 


114614 


JSB 


0457 


41676 


160634 


LOA 


0458 


41677 


170632 


STA 


0459 


41700 


063773 


LDA 


0460 


41701 


071426 


STA 


0461 


41702 


160255 


LDA 


0462 


41703 


010363 


A NO 


0463 


41704 


002002 


S2A 


0464 


41705 


003401 


CCA, 


0465 


41706 


060353 


LDA 


0466 


41707 


064255 


LDB 


0467 


41710 


006004 


INB 


0468 


41711 


054253 


CPB 


0469 


41712 


002001 


RSS 


0470 


41713 


027721 


JMP 


0471 


41714 


063735 


LDA 


0472 


41715 


07M26 


STA 


0473 


41716 


060345 


LDA 


0474 


41717 


006400 


CLB 


0475 


41720 


074253 


STB 


0476 


41721 


006400 


EXIT4 CLB 


0477 


41722 


075274 


STB 


0478 


41723 


015460 


JSB 


0479 


41724 


060255 


LDA 


0480 


41725 


002004 


INA 


0481 


41726 


160000 


LDA 


0482 


41727 


030224 


IOR 


0483 


41730 


114736 


JSB 


0484 


41731 


060363 


LDA 


0485 


41732 


064255 


LDB 


0486 


41733 


015562 


JSB 


0487 


41734 


124740 


JMP 



* 



MAIN, I 

UNABT 
MAIN, I 

FCNTR 

FCN T R 

FRMAT 
ECORE 
FlLTB 
• *5 
FCNTR 

EXIT2 
LCDLP 

DCLClrl 
ABCK,I 

DCLC2,I 

DCLC1,I 

EXIT1 

LTl 

MAIN,1 

HFLAG 

RSS 

t «*4 

MAIN 

PRIST 

EXIT4 
EXT1A 
LTl 
,*10 

PRIST 

LT2 

OUTST 

MAIN 

0#I 
UNR 
S14LP#I 

. + 4 
MAIN 
EDABR 
SCHEN,I 



INHIBIT 

ABORTS 

SET COUNTER TO 

1»S COMPLEMENT Or 

number of files 
save 2ts Complement For 

lcd«s fil* count 
load First buffer address 
load pointer to 

FIRST DISC ADDRESS (LOW WORD) 
MORE FILES? 

Yf*S 

UPDATE LAST CHANGE DATE 
OUTPUT 



COMPLETION 



MESSAGE UNLESS 
$HELLO PROGRAM 

DOES USER 
HAVE LP? 



NO, 
YES 

RELEASE IT AND 
PRINT MESSAGE 



TELL 2114 

THAT USER IS 

FINISHED RUNNING 

clear pbflg and cbflg 
bus. 



page 0126 #10 statement execution processors 



0486 


41735 


041735 


EXT1A 


DEF 


• 




0489 


41736 


011423 




OCT 


11423 




0490 


41737 


006412 




OCT 


6412 




0491 


41740 
41741 
41742 


046120 
020106 
051105 




ASC 


3, LP FRE 




0492 


41743 




EXTl 


EQU 


* 




0493 


41743 


042412 




OCT 


42412 




0494 


41744 


006412 




OCT 


6412 




0495 


41745 
41746 


042117 
047105 




ASC 


2,D NE 




0496 


41747 


006412 




OCT 


6412 




0497 


41750 


075236 


EXIT2 


STB 


FBASt 


WRITE 


0498 


41751 


071645 




STA 


RQ3 


OUT 


0499 


41752 


015514 




JSB 


WRBUF 


RECORD 


0500 


41 7 53 


065236 




LDB 


FBASE 


GET RECORD 


0501 


41754 


044372 




ADB 


.4.FTEL-4 


SIZE OF NEXT 


0502 


41755 


160001 




IDA 


1,1 




0503 


41756 


001423 




ALR, 


f W A K 


CLEAR BITS 14 


0504 


41757 


003004 




CMAi 


>INA 




0505 


41760 


044366 




ADB 


.+7 


GET END OF F 


0506 


41761 


140001 




ADA 


1,1 


COMPUTE FILE 


0507 


41762 


044354 




ADB 


# *»3 


POINT B TO F 


0508 


41763 


027670 




JMP 


EXIT0 




0510 


41764 


020040 


DBLNK 


OCT 


20040 




0511 


41765 


001737 


ASBFA 


DEF 


ErsEC+60 




0512 


41766 


142254 


XECBR 


DEF 


XECTB„42B 


,1 


0513 


41767 


001522 


FENCA 


DEF 


FENCH 




0514 


41770 


001274 


FINCA 


DEF 


FINCH 




0515 


41771 


046174 


MIOEN 


DEF 


MI07 




0516 


41772 


177666 


M74 


DEC 


-74 




0517 


41773 


041743 


EXIT1 


DEF 


EXTl 





FILE 

AND 15 

FILE BUFFER 

BUFFER STARTING ADD 
FIRST DISC ADDRESS 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009* 

0010* 

0011* 

0012* 

0013* 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024* 

0025* 

0026* 

0027* 

0026* 

0029* 

0030* 

0031* 

0032* 

0033* 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053* 

0054* 

0055* 

0056* 

0057* 



42000 ORG 42000B 

42000 142672 AR8AS DEF FOJT*12B,I 

42001 177712 066 OCT -66 

42002 041673 EXT3A DEF EXIT3 

42003 000000 I TEMP BSS 1 

42004 177670 M72 DEC -72 

42005 000111 ,73 DEC 73 



* 
*• 

• 



EXECUTE <CHAIn 8TATEmEnT> 



*• 

*** 

** 



42006 114744 ECHAN JSB SCHLB,I CALL SYSTEM TO EXECUTE DISC 

42007 072051 DEF 

42010 115146 JSB 

42011 115157 JSB 

42012 115147 JSB 

42013 115150 JSB 

42014 115156 JSB 

42015 115161 JSB 

42016 126017 JMP 

42017 036051 DEF 

** SET POINTERS TO DATA 



onitT 



CHLIB 

RERRS*39,1 

RERRS+48, I 

RERRS+40,1 

RERRS+41,1 

RERRS+47,1 

RERRS+50,1 BAD LINE 

*+l,I GO COMPILE 

CMPL0 

** 
STATEMENT *** 

** 



NUMBER 
IT 



STARTING wITH THE STATEMENT REFERENCED BY (B) UPON 
ENTRY, FIND THE NEXT <daTa STaTeMENT> AND SET THE DATA 
BLOCK POINTERS APPROPRIATELY, IF NO <DATA STATEMENT> 
IS FOUND* SET THE POINTERS TO THE f OUT OF DATA 1 

Configuration and exit nith (a) a *t. 



42020 
42021 
42022 
42023 
42024 
42025 
42026 
42027 
42030 
42031 
42032 
42033 
42034 
42035 
42^36 
42037 
42040 
42041 
42042 



055573 
026037 
044361 
160001 
044356 
010570 
050536 
026033 
144001 
044356 
026020 
160001 
006004 
003004 
002G505 

003400 
071262 
075244 
125360 



#STDP CPB 
JMP 
ADB 
LDA 
ADB 
AND 
CPA 
JMP 
ADB 
ADB 
JMP 

SETDl LDA 
INB 
CMA, 
INA, 

SETD2 CCA 
STA 
STB 
J MP 



SYMTB 
SETD2 
• *2 
1*1 

OPMSK 

DATOP 

SETDl 

1*1 

t — 1 

#STDP 

1*1 

INA 
RSS 



*• 

* 



DCCNT 
NxTDT 
SETDp,I 
*• 
VALIDATE A FILE REQUEST *** 

• * 



PROGRAM EXHAUSTED? 

YES, SET 'OUT OF DATA' CONDITION 

NO* 

STATEMENT 
OF 

TYPE 

•DATA*? 
YES 

NO, COMPUTE 
ADDRESS OF 

NEXT STATEMENT 
LOAD STATEMENT LENGTH 
SET 
DATA 

COUNTER 
TO 

USTATEMENT LENGTH 
SET POINTER ONE w° R D 

A3QVE FIRST DATA CONSTANT 



EXIT TO (P+2) IF (TEMPi) + r DOES NOT? BEGIN A FILE REFERENCE? 
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0058* 
005g* 

0060* 

0061* 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

d&77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100* 

0101* 

0102* 

0103* 

0104* 

0105* 

0106* 

0107* 

0108* 
0109* 

0110* 
0111 
0112 
0113 



ELSE EVALUATE THE FILE REFERENCE AND VERIFY ITS CORRESPONDENCE 
WITH a REQUESTED FILE. IF A RECORD REFERENCE IS ALSO PRESENT, 

Evaluate it and call for its Swapping into the core buffer, 



42043 
42044 
42045 
42046 
42047 
42050 
42051 
42052 
42053 
42054 
42055 
42056 

42057 
42060 
42061 
42062 
42063 
42064 
42065 
42066 
42067 
42070 
42071 
42072 
42073 
42074 
42075 
42076 
42077 
42100 
42101 
42102 
42103 
42104 
42105 
42106 
42107 
42110 

* 

** 



0656! 1 
006004 
055334 

026053 
160001 
010570 
050520 
026055 
035504 
125504 

007400 
161611 

010570 
050574 
006400 
075514 

03561 1 
015356 
015342 
115142 
075234 

161611 
010570 
0505)4 

026105 
007400 
075520 

006020 
064355 
061234 
035514 
003000 
015506 
125504 
015356 

015342 
064273 

026075 



#VLFI 



VLFI0 
VLFI1 



FETCH DATA 



LDB 
INB 
CpB 
JMP 
LDA 
AND 
CPA 
JMP 
ISZ 
JMP 
CCB 
LDA 
AND 
CPA 
CL8 
STB 

ISZ 
JSB 
JSB 
JSB 
STB 
LDA 
AND 
CPA 
JMP 

CCB 

VLFI2 STB 

SSB 

LDB 

LDA 

ISZ 

CMA 

JSB 

JMP 

VLFI3 JSB 

JSB 

LDB 

JMP 

** 

ITEM *** 

** 



TEMPI 

PRGCT 
VLFI0 

1,1 

OPMSK 

B4000 

VLFI1 

VLFIL 

VLFIL, I 

TEMPI, I 

OPMSK 

PRTOP 

VL0 

TEMPI 

FETCH 

SBFIX 

RERRS+35, 

FILE* 

TEMPI, I 

OPMSK 

B2000 

VLFI3 

RCRD# 

, <*2 

FILE* 

VL0 

ROSTR 

VLFIL, I 

FETCH 

SBFIX 

INF 

VLFI2 



IS 



NEXT 

OPERATOR 

A »#« ? 

YES 

NO, EXIT 

TO (P*2) 
SET 

VLB * 
FOR 

'PRINT 1 , 
ELSE 

VL0 * •* 
EVALUATE 

FIlE REFERENCE 
15.BIT INTEGER? 
I NO 

yes, save it 

NEXT 

OPERATOR 
A COMMA? 
YES 
NO, USE NULL RECORD 

NULL RECORD? 

YES, DO NOT ADJUST FILE POINTER 

WRITE REQUEST? 

yES 

VALIDATE FILE/RECoRO REQUEST 

EVALUATE RECORD REFERENCE 

15«BIT INTEGER? 

NO, LOAD IMPOSSIBLE RECORD 

YES 



UPON ENTRY (B) • 1 IF A NUMBER IS REQUESTED OR (B) « 2 IF A 
STRING IS REQUESTED. FDATa FILLS THE REQUEST FROM A FILE IF 
ONE IS REFERENCED BY THE CALLER, ELSE FROM THE DATA BLOCK, 
TYPE MATCH IS CHECKED. NUMBERS RETURN IN (A) AND (B)| STRINGS 
ARE PREPARED AS SOURCE STRINGS, FDATA MOVES TO NEW FILE 
RECORDS OR <DATa STATEMENTS AS NECESSARY, 



42111 061234 

4211? 002021 
42113 026164 



#FDAT 



LDA FILE* 


READ FROM 


SSA,RSS 


FILE? 


JMP FDAT3 


YES 
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0114 
0115 
0116 
0117 

01 ia 

0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 

0130 
0131 
0132 

0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0l5l 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
«168 



42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 

42 
42 

42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 

42 
42 

42 

42 
42 

42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 



114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 

132 
133 
134 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 

151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
163 
164 
165 
166 
167 
170 
171 
172 
173 
174 
175 
176 
177 



42230 
42201 
42202 
4220J 



035262 
026125 
075272 
065244 
015360 
065272 
035262 
002001 
115124 
035262 
161244 
035244 
005300 
020001 

002020 
115125 

006021 
026144 
104200 
101244 
035244 
035244 
035262 
125362 
161244 
035244 
065244 
005000 
075256 
010500 

003000 

071410 
003004 
001100 
064000 
041244 
071244 

045262 
075262 

125362 
061236 
040364 
160000 
071767 
075272 
065520 
075651 
015512 
051272 
026213 
050363 
026203 
050362 
002001 
115125 
035236 



FD-ATl 



IS Z 

JMP 

STB 

LDB 

JSB 

LOB 

ISZ 

RSS 

JSB 

ISZ 

LOA 

ISZ 

RBR 

XOR 

SSA 

JSB 

SSB, 

JMP 

DLD 



ISZ 
ISZ 
ISZ 
JMP 

FDAT2 LOA 
ISZ 
LDB 
BLS 
STB 
AND 
CMA 
STA 
CMA 
ARS 
LDB 
ADA 
STA 
ADB 
STB 
JMP 

FDAT3 LDA 
ADA 
LDA 
STA 
STB 
LDB 
STB 
JSB 
CPA 
JMP 
CPA 
JMP 
CPA 
RSS 
JSB 

FD.AT4 ISZ 



DCCNT 

fdati 

TEMP5 
NXTDT 
SETDP 
TEMP5 
DCCNT 

RERRS+21, 
DCCNT 
NxTDT, I 
NXTDT 

1 

RERRS+22, 
RSS 
FDAT2 
NXTDT, 1 

NXTDT 

NXTDT 

DCCNT 

FDATA,I 

N X TDT,I 

NxTDT 

NxTDT 

TEMp4 
B377 



TPRME 

,INA 



NXTDT 

NXTDT 

DCCNT 

DCCNT 

FDATA, I 

FBASE 

.+5 

0,1 

PMASK 

TEMP5 

RCRD# 

EORFL 

GTTYP 

TEMP5 

FDAT5 

.♦4 

FDAT4 

,♦3 

RERRS+22* 
F8ASE 



NO, DATA IN CURRENT STATEMENT? 

YES 

NO, SAVE (B) 

MOVE TO NEXT 

<DATA STATEMENT 
RETRIEVE (B) 
DATA FOUND? 
YES 
I NO, OUT OF DATA 
INCREMENT COUNTER 
CORRECT 

TYPE OF 

DATA? 
I NO 
YES, STRING? 
YES 
NO, LOAD NUMBER 

UPDATE 
POINTER 



LOAD STRING LENGTH 
SET 

START-OF^STRING 
CHARACTER 
ADDRESS 
SET 

transfer string 

LENGTH 
UPDATE 



DATA 



POINTERS 



GET 



PROTECT 

MASK 
SAVE DATA REGuEST TYPE 
GET TYPE 

OF NEXT ITEM 
IN FILE 
MATCHING TYPES? 
YES 

NO, END-OF*RECORD? 
YES 

NO, END-OF-FILE? 
YES 
I NO, TYPE MISMATCH 
LOAD 
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0169 


42204 


165236 


LDB 


FBASE, 


I 


EOF/EOR ADDRESS 


0170 


42205 


006003 


SZBj 


,RSS 




NULL? 


0171 


42206 


115144 


JSB 


RERRS* 


37, 


,1 YES, UNPROTECTED EO 


0172 


42207 


075334 


STB 


PRGCT 




NO 


0173 


42210 


065250 


LOB 


FORST 




CLEAN UP 


0174 


42211 


015430 


JSB 


SETPT 




EXECUTION STACKS 


0175 


42212 


124762 


JMP 


XEC1A, 


I 




0176 


42213 


165236 


FDAT5 LDB 


FBASE, 


I 


load data address 


0177 


42214 


002011 


SLA! 


rRSS 




STRING? 


0178 


42215 


026231 


JMP 


FDAJ6 




YES 


0179 


42216 
42217 


104200 
100001 


OLD 


t,I 




NO, LOAD NUMBER 


0180 


42220 


002003 


S Z A ( 


,RSS 




ZEROS ARE 


0181 


42221 


026226 


JMP 


FDAT7 




NOT MASKED 


0182 


42222 


021767 


XOR 


pMAsK 




MASK 


0183 


42223 


101100 


SWP 








0184 


42224 


021767 


XOR 


PMASK 




DATA 


0185 


42225 


101100 


SWP 








0186 


42226 


135236 


FDAT7 IS2 


FBASE, 


I 


ADJUST RECORD POINTER 


0187 


42227 


135236 


ISZ 


FBASE, 


I 


PAST DATA 


0188 


42230 


125362 


JMp 


FDATA, 


I 




0189 


42231 


160001 


FOAT6 LDA 


1#I 




LOAD STRING HEADER 


0190 


42232 


006004 


INB 






SET 


0191 


42233 


005000 


BLS 






SOURCE 


0192 


42234 


075256 


STB 


TEMP4 




ADDRESS 


0193 


42235 


005100 


BRS 








0194 


42236 


010500 


AND 


B377 




SET 


0195 


42237 


003000 


CM A 






TRANSFER 


0196 


42240 


071410 


STA 


TPRME 




LENGTH 


0197 


42241 


003004 


CMA, 


-INA 




ADJUST 


0198 


42242 


001100 


ARS 






RECORD POINTER 


0199 


42243 


044000 


ADB 







PAST 


0200 


42244 


175236 


STB 


FBASE, 


I 


STRING 


0201 


42245 


125362 


JMP 


FDATA, 


I 
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0203** 
0204** 

0205** 

0206* 

0207* 

020Q* 

0209* 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0226 

0229 

0230 

0231 

0232 
0233 
0234 

0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
02 4 3 
0244 
0245 
0246 
0247 
0248 
0249 

0250** 

0251** 

0252** 

0253 

0254 

0255 

02 5 6 

0257 

0258 



• * 



* request An Input record *** 



** 



SERylCES REQUESTS FOR TELETYPE INPyT, IF (A) • 
AND 'X.ON' ELSE EMIT A LINE FEED, TWO »?»# AND AN 



EMIT A »?« 
«X«ON». 



42246 072003 #INCL STA ITEMP 

42247 060255 IDA MAIN 

42250 002004 INA 

42251 050253 CPA PRIST 

42252 115212 JSB WERRS+9,1 

42253 062003 LDA ITEMP 

42254 002002 SZA 

42255 026305 JMP INCL2 

42256 061570 LDA CHRCT 

42257 042004 ADA M72 

42260 002020 SSA 

42261 026266 JMP INCL1 

42262 060374 LDA t +15B 

42263 015452 JsB OutCr 

42264 060371 LDA .+12B 

42265 015452 JSB OUTCR 

42266 060460 INCLl LDA B77 

42267 015452 JSB OUTCR 

42270 060400 LDA f +21B 

42271 015452 JSB OUTCR 

42272 002400 CLA 

42273 071570 STA CHRCT 

42274 071420 STA IFCNT 

42275 060225 LDA IWT 

42276 114742 JSB SCHIN#I 

42277 015446 JSB GETCR 

42300 026305 JMP INCL2 

42301 050362 CPA ,+3 

42302 124652 JMP EXITA,I 

42303 015450 JSB BCKSP 

42304 125444 JmP InCAL,I 

42305 060255 INCL2 LDA MAIN 

42306 002004 INA 

4 2307 050253 CPA PRIST 

42310 115212 JSB WERRS+9,1 

42311 060371 LDA , + 12B 

42312 015452 JSB OUTCR 

42313 060460 LDA 877 

42314 015452 JSB OUTCR 

42315 026266 JMP INCLl 

** 



* EXECUTION BRANCH TABLE 



42316 
42317 
42320 
42321 
42322 
42323 



041434 

040031 
040031 
040031 
040111 
040031 



XECTB 



DEF 
DEF 
DEF 

DEF 
DEF 
DEF 



*** 
** 
EASN 
XEC1 
XEC1 
XEC1 
ELET 
XECl 



SAVE FLAG 
DOES THIS USER 
HAVE THE 

LINE PRINTER? 
YES • RELEASE IT 

RESTORE FLAB 

INITIAL REQUEST? 

NO 

YES 

LINE 

FULL? 
NO 
YES, OUTPUT 

CARRIAGE RETURN 
AND 

LINE FEED 
OUTPUT 

i ?» 

OUTPUT 
AN X-ON 

RESET 

OUTPUT CHARACTER COUNTER 
AND INPUT ITEM COUNTER 

REQUEST INPUT RECORD 
FIRST 

CHARACTER A 
tCONTROL Ci ? 

yes, terminate execution 
no, return 

TO CALLER 
IF USER 
HAS THE 

LINE PRINTER, 
RELEASE IT 
OUTPUT A 
LINE FEED 
AND 
A »?» 



ASSIGN 
USING 
IMAGE 
COM 

LET 

DIM 
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0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279** 

0280** 

0281** 

0282* 

0283* 

0284* 

0285 

0286 

0287 

0288 

0289** 

0290** 

0291** 

0292* 

0293* 

02g4* 

0295* 

0296* 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311** 

0312** 

0313** 



42324 
42325 
42326 
42327 
42330 
42331 
42332 

42333 
42334 
42335 
42336 
42337 
42340 
42341 
42342 
42343 
42344 
42345 
42346 
42347 



040031 
040031 
040136 
040124 
040207 
040307 
040137 
040364 
041653 
041653 

040031 
040373 
040622 
04065^ 

041150 
046023 
040031 
042006 
04 H 57 

040111 



* FfcTCH FORMULA 



DEF xtCl 


DEF 


DEF XEC1 


REM 


DEF EGOTO 


GOTO 


DEF EIF 


IF 


DEF EFOR 


FOR 


DEF ENEXT 


NEXT 


DEF EGOSB 


GOSyB 


DEF ERTRN 


RETURN 


DEF EXIT 


END 


DEF EXIT 


STOP 


DEF xECl 


DATA 


DEF EINPT 


INPUT 


DEF EREAD 


READ 


DEF EPRIN 


PRINT 


DEF FRSTR 


RESTORE 


DEF EMAT 


MAT 


DEF XECl 


FILES 


DEF ECHAN 


CHAIN 


DEF EENTR 


ENTER 


DEF ELET 


•IMPLIED' LET 


** 




UE *** 





** 



RETU RN WITH THE RESULT IN (A) AND (B) 



42350 015336 

42351 015376 

42352 104200 

42353 100001 

42354 125356 



#FTCH JS8 FORMX 
JSB OPCHK 
DLD 1,1 



EVALUATE FORMULA 
UNSTACK ADDRESS 
LOAD RESULT 



JMP FETCH, I 
** 

set execution pointers *** 

** 

SETS POINTERS TO THOSE STACKS 
DURING EXECUTION, USUALLY DUE 
OF FOR^LOOPS, 



WHOSE LOCATION MAY CHANGE 
TO INITIATION OR COMPLETION 



42355 075250 #STPT STB FORST SET TOP OF FOR»STACK 

42356 044363 ADB ,+4 SET POINTER TO TOP 

42357 075330 STB TMPST v OF TEMPORARY STACK 

42360 044403 ADB t +20 S^T POINTER TO TOP 

42361 075332 STB OPDST OF OPERAND STACK 

42362 044362 ADB t *3 SET POINTER TO BOTTOM 

42363 075464 STB OPTRO OF OPERATOR STACK 

42364 007000 CMB OUT 

42365 044716 ADB LWAUS OF 

42366 006020 SSB STORAGE? 

42367 1151H JSB RERRS+10,1 YES 

42370 065464 LDB OPTRQ NO, SET POINTER TO TOP 

42371 074056 ST8 PBPTR OF OPERATOR STACK 

42372 125430 JMP SETPT,I 

#* 

* INITIALIZE FOR PROGRAM MODIFICATION *** 

** 
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0314 42373 060417 #SINI IDA .+40B TURN ON 

0315 42374 071571 STA BLANK BLANK SUPPRESSION 

«3l6 42375 07142& STA GFLAG TURN OFF INTEGER ERROR*SUPPRESS 

0317 42376 125462 J*P SINIT,! 
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0319* 
0320* 
0321* 
0322* 
0323* 
0324* 
0325* 

0326* 

0327* 

0328* 

0329* 

0330* 

0331* 

0332* 

0333* 

0334* 

0335* 

0336* 

033/* 

0338* 

0339* 

0340* 

0341 

0342 

0343 

0344* 

0345* 

0346* 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356* 

0357* 

0358* 

0359* 

0360* 

0361* 

0362* 

0363* 

0364 

0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 



* 
** 



EVALUATE. A FORMULA 



** 
**• 

*4 



enter with tempi pointing to the first operand of the 
formula. operators and the addresses of operands are 
stacked separately. operand addresses are stacked as 
soon as the operand is scanned, an operator is not 
stacked while the operator n top q* the stack has equal 
or higher precedence, instead the latter is unstacked 

AnD EXECUTED! THUS An OPERATOR FORCES EXECUTION OF THOSE 
PREVIOUSLY STACKED, DOWN TO THE LATEST ONE STACKED WHICH 
HAS A LOW E R PRECEDENCE, THE OPERATOR STACK IS INITIALIZED 
WITH AN END^OF-FORMULA (LOWEST PRECEDENCE) OPERATOR. THE 
ACTION OF OPERATORS IS IN GENERAL TO COMBINE THE TOP TWO 
OPERANDS STACKED t THE ADDrEsS OF THE PARTIAL RESULT THUS 

Obtained replaces the addresses of its constituent operands 
on the stack (values of partial results are kept on the 
temporary stack), upon exit tempi points to the first program 
WOrD whose operator does not manipulate the stack (THIS 
may be an end-of^formula, »then», »of», etc.k 



42377 015366 

42400 006400 

42401 174056 



#FORM 



JSB 
CLB 
STB 



PSHST 



* PROCESS NEXT OPERAND 
FqrMI 



42402 
42403 
42404 
42405 
42406 
42407 
42410 
42411 
42412 



161611 
035611 
010566 
002003 
026447 
035332 
035332 

002020 
026525 



PBPTR,I 

** 
• 
TEMpl,I 
TEMpl 
OPDMK 
SZA,RSS 
JMP F0RM2 
OPDST 
OPDST 



LDA 
ISZ 
AND 



ISZ 
ISZ 
SSA 

JMP 



F0RM6 



STACK 

beginning*of~formula 
operator 



EXTRACT 

NEXT 

OPERAND 
NULL OPERAND? 
YES 
NO, BUMP POINTER 

TO OPERAND STACK 
VARIABLE OPERAND? 
NO 



* STACK NON-FUNCTION VARIABLE OPERAND ADDRESS ** 



THE ADDRESSES STACKED ARE AS FOLLOWS* FOR SIMPLE VARIABLES, 
A POINTER To THE VA L UE; FOR ARRAYS, THE BASE ADDRESS! FOR 
STRING VARIABLES, THE NEGATION OF THE BASE ADDRESS, 



42413 
42414 
42415 
42416 
42417 
42420 
42421 
42422 
42423 
42424 
42425 



040356 

001000 
041573 
064000 
006004 
160000 
010376 
0503/6 
026557 
164001 
002002 



ADA ,-1 COMPUTE 

ALS POINTERS 

ADA SYMTB TQ SYMBoL 

LDB TABLE 

INB ENTRY 

LDA 0,1 PROGRAMMER- 

AND .+17B DEFINED 

CPA „+l7B FUNCTION? 

JMP FORMS YES 

IDB 1,1 NO, LOAD VALUE POINTER 

SZA STRING VARIABLE? 
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0375 


42426 


026446 


JMP F0RM2-1 


NO 


0376 


42427 


061611 


LDA TEMPI 


YES, END 


0377 


42430 


051334 


CPA PRGCT 


OF FORMULA? 


0378 


42431 


026436 


JMP FORM0 


YES 


0379 


42432 


161611 


LDA TEMPI, I 


NO, 


0380 


42433 


010570 


AND OPMSK 


FOLLOWED BY 


0381 


42434 


050554 


CPA LBOP 


SUBSCRIPT? 


0382 


42435 


026445 


JMP F0RM2-2 


YES 


0383 


42436 


075256 


FORM0 STB TEMP4 


NO 


03a 4 


42437 


015400 


JSB RSCHK 


CREATE TEMPORARY 


0385 


42440 


002400 


CLA 


RECORD 


0386 


42441 


007400 


CCB 




0387 


42442 
42443 


104400 
101330 


DST TMPST,I 


(0,«*1) 


0368 


42444 


065256 


LDB TEMP4 


RETRIEVE AND 


0389 


42445 


007004 


CMB,INB 


NEGATE STRING ADDRESS 


0390 


42446 


175332 


STB OPDST,I 


STACK ADDRESS 


0391* 






* 




0392** PROCESS NEXT OPERATOR ** 




0393* 






* 




0394 


42447 


06l6U 


F0RM2 IDA TEMPI 


FORMULA 


0395 


4 2 4 50 


051334 


CPA PRGCT 


EXHAUSTED? 


0396 


42451 


026465 


JMP F0RM3 


YES 


0397 


42452 


1616H 


IDA TEMPI, I 


NO, 


0398 


42453 


010570 


AND OPMSK 


EXTRACT 


0399 


42454 


001727 


ALF,ALF 


NEXT 


0400 


42455 


064000 


LOB 


OPERATOR 


0401 


42456 


050361 


CPA t +2 


STRING CONSTANT? 


0402 


42457 


026657 


JMP F0R13 


YES 


0403 


42460 


040337 


ADA ,-20B 


NO, NON*FORMULA 


0404 


42461 


002020 


SSA 


OPERATOR? 


0405 


42462 


006400 


CLB 


YE S 


0406 


42463 


042001 


ADA D66 


NO, NON-FORMULA 


0407 


42464 


002021 


SSA,RSS 


OPERATOR? 


0406 


42465 


006400 


E0RM3 CLB 


YES 


0409 


42466 


002400 


CLA 


NO 


0410 


42467 


006003 


SZBfRSS 


END*OF-FQRMULA? 


0411 


424/0 


026474 


JMP *+4 


YEs 


0412 


42471 


044660 


ADB fopbs 


NO, LOAD OPERATOR 


0413 


42472 


160001 


LDA 1,1 


INFORMATION WORD 


0414 


42473 


010500 


AND B377 


SAVE 


0415 


42474 


071252 


STA TEMP2 


PRIORITY 


0416 


42475 


120001 


XOR 1,1 


SAVE 


0417 


424/6 


001100 


ARS 


INTERNAL 


0418 


42477 


071254 


STA TEMP3 


NAME 


0419* 








* 


0420** STACK PRESENT OR ExECUTE PREVIOUS OPERATOR ** 


0421* 








* 


0422 


42500 


160056 


FORM4 LDA PBPTR,I 


DOES OPERATOR 


0423 


42501 


010500 


AND B377 


ON TOP 


0424 


42502 


003000 


CMA 


OF STACK 


0425 


42503 


041252 


ADA TEMP2 


HAVE HIGHER 


0426 


42504 


002020 


SSA 


PRIORITY? 


0427 


42505 


026515 


JMP FORMS 


YES 


0428 


42506 


061252 


LDA TEMP2 


NO 


0429 


42507 


050372 


CPA * + 13B 


CORRECT 
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0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

«44l 

0442 

0443* 

0444* 

0445* 

0446* 

0447* 

0446* 

0449* 

0450* 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464* 

0465* 

0466* 

0467* 

0468* 
0469* 

0470* 

0471* 

0472* 

0473* 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 



42510 
42511 
42512 
42513 
42514 
42515 
42516 
42517 
42520 
42521 
42522 
42523 
42524 



002404 
031254 
015366 
170056 
026402 
160056 
064355 
044056 
074056 
001727 
010500 
042000 
124000 



F0RM5 



cla,ina 


STACK PRIORITY 


IOR TEmP3 


ADD nAmE 


J3B P8HST 


STACK 


STA PBPTR,! 


OPERATOR 


JMP FORM1 




LOA PBPTR, I 


POP 


LDB .-2 


OPERATOR 


ADB PBPTR 


FROM TOP 


STB pBpTR 


OF STACK 


ALF,ALF 


BRANCH 


AND B377 


TO 


ADA ARBAS 


APPROPRIATE 


JMP 0,1 


ROUTINE 

* 



* STACK CONSTANT OR PARAMETER ADDRESS ** 



for numerical constants Stack a pointer to the value 
embedded in the program? for parameters stack the 
parameter address. 



42525 001665 F0RM6 £LA,CLE,ERA 

42526 002002 SZA 

42527 026534 JMP F0RM7 

42530 065611 LDB TEMPI 

42531 0356U ISZ TEMPI 

42532 035611 ISZ TEMPI 

42533 026446 JMP F0RM2-1 

42534 071252 F0RM7 STA TEMP2 

42535 010376 AND ,*17B 

42536 050376 CPA ,*17B 

42537 026542 JMP *+3 

42540 165464 LDB OPTRQ,I 

42541 026446 JMP F0RM2*1 



ERASE FLAG BIT 

CONSTANT? 
NO 
YES, 
STACK 
ADDRESS 

PRE- 
DEFINED 
FUNCTION? 

YES 

NO, STACK 

PARAMETER ADDRESS 



for functions recursion on formx evaluates the parameter 
and* for programmer defined functions, the value, 
function values are left on the temporary stack and a 
pointer thereto is placed on the operand stack. 
•lEn 1 is handled in a special way. 



42542 
42543 
42544 
42545 
42546 
42547 
42550 
42551 
42552 
42553 
42554 
42555 



021252 
001727 
001700 
050374 
026636 
041000 
015366 
170056 
061336 
171332 
015336 
K153/4 



ed function 


* 
** 


XOR TEMP2 


♦ 
IDENTIFY 


ALF,ALF 




ALF 


FUNCTION 


CPA ,*15B 


iLEN? ? 


JMP F0R12 


YES 


ADA PDFBS 


NO, STACK 


j SB PSHST 


JUMP TO 


STA PBPTR, I 


ENTRY POINT 


LDA Formx 


SAVE FoRMX 


STA OPDST*I 


RETURN ADDRESS 


JSB FORMX 


EyAtuATE ARGUMENT 


JSB STTOP 


BRANCH TO 
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0486 42556 12405b JmP P6pTR,I SUBROUTINE 
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0488* 

0489* 

0490* 

0491 

0492 

0493 

0494 

049b 

04g6 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526* 

0527* 

0528* 

0529* 

0530* 

0531* 

0532* 

0533 

0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 



* evaluate programmer-defined Function 



* 
** 

* 



42557 
42560 
42561 
4256? 
42563 
42564 
42565 
42566 
42567 
42570 
42571 
4257? 
42573 
42574 
42575 
42576 
42577 
42600 
42601 
42602 
42603 
42604 
42 6 05 
42606 
42607 
42610 
42611 
42612 
42613 
42 6 14 
42615 

42 6 l6 
42617 

42620 
42621 



160001 
015366 
065330 
174056 
015366 
170056 
061336 
171332 
015336 
161332 
165464 
175332 
171464 
051330 
015400 
06161 1 

l6405 6 
075611 

170056 
015336 
165332 
060355 
041332 
071332 
161332 
171464 
175332 
1 60056 
071611 
060056 
040355 

070056 
160056 
071330 
015374 



F0RM8 IDA 
JSB 
LDB 
STB 
JSB 

STA 
LDA 
STA 
JSB 
IDA 
LDB 
STB 
STA 
CPA 
JSB 
LDA 
LDB 
STB 
STA 
JSB 
L DB 
LDA 
ADA 
STA 
LDA 
STA 
STB 
LDA 
STA 
LDA 
ADA 
STA 
LDA 
STA 
JSB 



1,1 

PSHST 

TMPST 

PBPTR, 

PSHST 

PBPTR, 

FORMX 

OPDST, 

FORMX 

OPDST, 

OPTRQ, 

OPDST, 

OPTRQ, 

TMPST 

R3CHK 

TEMPI 

PBPTR, 

TEMPI 

PBPTR, 

FQRMX 

OPDST, 

.-2 

OPDST 

OPDST 

OPDST, 

OPTRQ, 

OPDST, 

PBPTR, 

TEMPI 

PBPTR 

t *»2 

PBPTR 

PBPTR, 

TMPST 

STTOP 



I 



1 



* RECORD RESULT OF FUNCTION * 



PRE-DEFINED FUNCTIONS RETURN 
RESULT IN (A) AND (B). 



LOAD ADDRESS OF FORMULA 
SAVE VALUE OF 

CURRENT POINTER TO 
TEMPORARY STACK 
SAVE ADDRESS OF 

DEFINING FORMULA 
SAVE FORMX 

RETURN ADDRESS 
EVALUATE ARGUMENT 
SWAP 

old and new 
argument 
addresses 
protect parameter 

on temporary stack 
swap addresses 

OF CURRENT 
AND FUNCTION 
FORMULAS 
EVA L UATE FUNCTION 
POP 

OPERAND 
STACK, 
SAVING 

RESULT ADDRESS 
AND ADDRESS OF 
OLD PARAMETER 
RESTORE 

FORMULA POINTER 
POP 

OPERATOR 
STACK 

restore original 

temporary stack pointer 
load function result 



TO THIS POINT W ITH THEIR 



42622 
42623 
42624 
42625 
42626 
42627 
42630 
42631 
42632 
42633 
42634 



104400 

101330 
161332 
071336 
061330 
171332 
064056 
044355 
074056 
035611 
035611 



DST 


TMPST, I 


SAVE RESULT 


LDA 


OPDST,! 


RESTORE FORMX 


STA 


FORMX 


RETURN ADDRESS 


LDA 


TMPST 


RECORD LOCATION 


STA 


OPDST, I 


OF RESULT 


LDB 


PBPTR 


POP 


ADB 


,-2 


FUNCTION 


STB 


PBPTR 


ADDRESS 


ISZ 


TEMPi 


OF RESULT 


ISZ 


TEMPI 


ON TOP OF 
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0543 

0544* 

0545* 

0546* 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

05b4 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563* 

0564* 

0565* 
0566* 
0567* 
0568* 
0569* 
0570* 
0571* 
63572* 
0573* 

0574* 
0575* 

0576* 
0577* 

0578* 
0579* 
0580 
0581 

0582 
0583 



42635 026447 



* EVALUATE 'LEN' 



JMP F0RM2 



* 
** 

* 



42636 
42637 
42640 
42641 
42642 
42643 
42644 
42645 
42646 
42647 
42650 
42651 
42652 
42653 
42654 
42655 
42656 



015400 
161611 
010566 
040356 
001000 
041573 
002004 
160000 
040356 
160000 
010500 
105120 
104400 
101330 
061330 
171332 
026633 



F0R12 JSB RSCHK 

IDA TEMPI, I 
AND OPDMK 
ADA ,-1 
ALS 

ADA SYMTB 
INA 

LDA 0,1 
ADA ,*1 
LDA 0,1 
AND 8377 
OCT 105120 
DST TMPsTfl 



LDA TMPST 
STA 0PD8T,I 
JMP FOR12-3 
* 
* PROCESS STRING CONSTANT ** 



OPERAND STACK 



CREATE SPACE ON TEMPORARY STACK 
FIND 

STRING'S 
SYMBOL 
TABLE 
ENTRY 
LOAD ADDRESS 

OF STRING 
EXTRACT 
STRING 
LENGTH 
STACK 
STRING LENGTH 

STACK ADDRESS 
OF RESULT 



WHEN S T RING CONStANtS ARE StAC 
ENTRY IS PLACED ON THE TEMPORA 
STRING OPtRAnDS HAVF THE SAME 
ADDRESS ON THF OPERAND STACK A 
THE TEMPORARY STACK CONTAINING 
AND END~OF-STRING DESIGNATORS 
STArT-o f -STrING DESIGNATORS HA 

default end-of-string designat 
of -1), in the case of subscr 
the temporary is created when 
Entry For non-subsCrIrted stri 
when they are scanned, 



42657 002404 

42660 051470 

42661 015340 

42662 026465 



PORU ClA,InA 
CpA Eol 
JSB STSTR 
JMP F0RM3 



KED, AN APPROPRIATE 
RY STACK SO THAT ALL 
FqRM* A N EGATED BASE 
NO A TWO WORD ENTRY ON 

THE START»0F»STR1NG 
BIASED BY *1 (DEFAULT 
VE A STACK VALUE F 0> 
ORS HAVE A STACK VALUE 
IPTED STRING VARIABLES, 
THE '1 • IS SCANNED! THE 
N G OPERANDS IS CREATED 



PRINT STATEMENT 

string Constant? 
no, stack string constant 

execute end~of»formula 
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0585* 




* 




0586** RECORD RESULT OF I 


OPERATION ** 




0587* 




* 




0588* 








0589* OPERATORS CREATING 


INTERMEDIATE 


RESULTS RETURN TO HERE. 


0b90* 








0591 4266J 035332 


FOR14 


ISZ OPDST 


STACK 


0592 42664 035332 




ISZ OPDST 


TEMPORARY 


0593 42665 104400 




DST TMP8T,1 


RESULT 


42666 101330 








05g4 42667 061330 




IDA TMPST 


SAVE 


0595 42670 171332 




STA OPDST, I 


ADDRESS ON 


0596 42671 026500 




JMr F0RM4 


OPERAND STACK 


0597* 




* 




0598** EXIT FORMULA EVALUATOR ** 




0599* 




* 




0600* 








0601* THIS WORD IS 


ACTUALLY PART OF THE FORMULA OPERATOR JuMP 


0602* table, the 


WORDS I 


9ETWEEN IT AND 


FOJT CORRESPOND TO 


0603* OPERATORS WHICH ARE NqT EXECUTED 


, So CoDE IS INSERTED HErE 


0604* TO UTILIZE THIS SPACE, 




0605* 








0606 42672 101336 




DEF FORMX,I 




0607** 




** 




0608*** SET LOGICA 


L VALUES *** 


, 


0609** 




*• 




0610 42673 002400 


FALSE 


CLA 


LOAD 


0611 42674 006400 




CLB 


ZERO 


0612 42675 026663 




JMP F0R14 




0613 42676 061031 


TRUE 


IDA HALF 


LOAD 


0614 4267/ 064361 




LDB ,4-2 


1,0 


06l5 42700 02666-3 




JMP F0R14 




0616** 




** 




0617*** EXECUTE UNARY - 


*** 




0618** 




** 




&6l9 42701 ^15374 


EUMIN 


JSB STTOP 


UNSTACK AND LOAD TOP OF STACK 


0620 42702 015370 




JSB ARINV 


NEGATE IT 


0621 42703 026663 




JMP F0R14 


STORE IT 


0622** 






** 


0623*** FORMULA OPERATOR 


JUMP TABLE *** 


0624** 






** 


0625 42704 042734 


FOJT 


DEF ELBRC 


t 


0626 42705 042402 




DEF FORMl 


( 


0627 42706 042500 




DEF F0RM4 


UNARY * 


0628 42707 042701 




DEF EUMIN 


UNARY - 


0629 42710 042743 




DEF ESCMA 


SUBSCRIPT COMMA 


0630 42711 043017 




DEF ESTR 


ASSIGNMENT OPERATOR 


0631 42712 043126 




DEF EFAO 


* 


0632 42713 043131 




DEF EFSB 


<m 


0633 42714 043134 




DEF EFMP 


* 


0634 42715 043137 




DEF FFDV 


/ 


0635 42716 043142 




DEF EPWR 


t 


0636 42717 043243 




DEF EGTRT 


> 


0637 4?720 043247 




DEF ELST 


< 


0638 42721 043265 




DEF ENEQL 


# 


0639 42722 043255 




DEF EEQL 


' X 
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0640 

0641 

0642 

0643 

0644 

064b 

0646 

0647 

0648 

0649* 

0650* 

0651* 

0652* 

0653* 

0654* 

0655* 

0656 

0657 

0658 

0659 
0660 

0661 
0662 
0663* 
0664* 

0665* 
0666* 
0667* 
0668* 

0669* 
0670* 

0671* 

0672* 

0673* 

0674* 

0675* 

0676 

0677 

0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 

0686 
0687 

0688 
0689 
0690 
0691 
0692 
0693 
06g4 



42723 
42724 
42725 
42726 
42727 
42730 
42731 
42732 
42733 



000000 
043312 
043320 
043300 
043271 
043265 
043251 
043261 
043326 



** execute left 



NOP UNUSED 

DEF EAND AND 

DEF EIOR OR 

DEF F.MIN MIN 

DEF EMAX MAX 

DEF ENEQL <> 

DEF EGORE >• 

DEF ELORE <« 

DEF ENOT NOT 
** 

BRACKET *** 
** 



LOAD A DEFAULT SECOND SUBSCRIPT AND ENTER THE CODE FOR 
A SUBSCRIPT COMMA. 

42734 061332 

42735 04035b 

42736 160000 

42737 007400 

42740 002021 

42741 006400 

42742 026753 



ELBRC lda opdst 


LOAD 


ADA ,.2 


• 1 


LDA 0,1 


r ■ uf? w 


CCB 


STRING, 


SSA,RSS 





CLB 


FOR 


JMP ESCMl 


AN ARRAY 



** 



EXECUTE SUBSCRIPT CQMMA 



** 

*** 



** 



BOTH SUBSCRIPTS ARE ROUNDED TO INTEGERS AND TESTED TO BE 
POS1T1VE. FOR STRINGS, THE TWO INTEGERS ARE SAVED ON THE 
TEMPORARY STACK AS A PSUEDO-ENTRY LATER USED BY PSTR t FOR 
ARRAYS, THE SUBSCRIPTS aRE CHECKED AND IF WITHIN THE CU**£NT 
BOUNDS THEY ARE COMBINED WITH THE BASE ADDRESS OF THE ARRAY, 
THE ARRAY ELEmEnT ADDRESS THEn REpLACES THE BASE ADDRESS ON 
THE OPERAND STACK, UNSUITABLE SUBSCRIPTS EXIT TO THE ERROR 
ROUTINE. 



42743 

4 2 744 
42745 
42746 
42747 
42750 
42751 
42752 
42753 
42754 
42755 
42 7 5 6 
42757 
42760 
42761 
42762 
42763 
42764 
42765 
42760 



015376 
104200 

100001 

015342 
115120 
060056 
040355 
070056 
075256 
015374 
015342 
115120 
175330 
161332 
002021 
026770 

061330 
0020W4 
065256 
174000 



ESCMA JSB OPCHK 
OLD 1,1 



ESCMl 



JSB 

JSB 
LDA 

ADA 
STA 
STB 
JSB 

JSB 
JSB 
STB 
LDA 
SSA 
JMP 
LDA 
INA 
LDB 
STB 



S8FIX 

RERRS+17, 

P8PTR 

• **2 
PBPTR 

TEMP4 

STTOP 
SsFIX 

RERRS+17, 
TMPST,I 

OPDST, I 
,RSS 
ESCM2 
TMPST 

TEMP4 
0,1 



UNSTACK 

second subscript 
round to Integer 

I UNSUITABLE RESULT 
UNSTACK 
THE 

' P 
SAVE RESULT 

POP FIRST SUBSCRIPT 
ROUND TO INTEGER 
I UNSUITABLE RESULT 
STORE IN TEMPORARY STACK 
STRING 

VARIABLE? 
NO, ARRAY VARIABLE 
YES, 
SAVE 

SECOND SUBSCRIPT IN 
TEMPORARY STACK 
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0695 
0696 
0697 

0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
\d7ido 
\d7Q7 
070ft 

0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 

0001** 

0002** 

0003** 

0004* 

0005* 

0006* 
0007* 

000a* 

0009* 
0010* 

0011* 
0012* 
0013* 
0014* 

0015* 
0016 

0017 
0016 
0019 
0020 
0021 
0022 
\d&23 

0024 

0025 
0026 
0027 
0028 
0029 
0030 



42767 
42770 
42771 
42772 
42773 
42774 
42775 
42776 
42777 
43000 
43001 
43002 
43003 
43004 
43005 
43006 
43007 
43010 
4301 1 
43012 
43013 
43014 
43015 
43016 



026402 
040355 
104200 
100000 
003004 
141330 
002021 
115120 
075272 
007004 
045256 
006021 
115120 
161330 
100200 
001272 
041256 
001000 

1 *j 1 O Jc 

171332 
061330 
040355 
071330 
026402 



FSC 



* EXECUTE STORE 



JMP 

M? ADA 

OLD 

CMA, 

ADA 

SSA, 

JSB 

STB 

CMB, 

ADB 

SSB, 

JSB 

LOA 

MPY 

ADA 
ALS 
ADA 
STA 

LDA 
ADA 
STA 
JMP 

#• 

*** 

*♦ 



FORM1 

.-2 LOAD COLUMN 

0,1 AND ROW BOUNDS 

INA IS SPECIFIED 

TMPST,I ROW 

RSS LEGAL? 

REPRS+17,1 NO 

TEMPS YES 

TNB IS SPECIFIED 

TEMP4 COLUMN 

RSS LEGAL? 

RERRS*l7 f I NO 

TMPST,I YES, COMPUTE ROW 

TEMP5 DISPLACEMENT 

TEMP4 ADD COLUMN DISPLACEMENT 

DOUBLE FOR CORE WORDS 

OPDST, I STORE ACTUAL 

OPDST,I ELEMENT ADDRESS 

TMPST POP UNUSED 

.-2 TEMPORARY 

TMPST STACK 

FORM1 ENTRY 



IN OrDEr tO ALLOW MULTIPLE ASSIGNMENT STATEMENTS, NO 
ASSIGNMENT CAN TAKE PLACE UNTIL THE RIGHT-HANO FORMULA 
IS EVALUATED! I.E. ONLY AN END-OF*FORMULA OPERATOR CAN 
FORCE AN ASSIGNMENT OPERATOR OFF OF THE STACK, ASSIGNMENTS 
MAY BE NUMERICAL TO NUMERICAL TYPE OPERAND, IN WHICH CASE 
THE ASSl6 N ED QUAnTUY Is SAVED F R POSSIBLE ADDITIONAL 
ASSIGNMENTS; OR STRING TO STRING OPERAND, IN THE LATTER 
CASE AN INTERMEDIATE S'TRlNG Is NECESSARY IF THE HEAD OF 
THE DESTINATION STRING LIES IN THE TAIL OF THE ACTUAL 
SOURCE STRING. 



43017 065252 ESTR LDB TEMP2 

43020 006002 SzB 

43021 027120 JMP ESTR5 

43022 055254 CPB TEMP3 

43023 027036 JMP ESTR2 

43024 161332 ESTR1 LDA OPDST,I 

43025 071260 STA TEMP6 

43026 104200 DLD TEMP3,I 

43027 101254 

43030 104400 DST TEMP6,I 

43031 101260 

43032 061332 LDA OPDST 

43033 040355 ADA t -2 

43034 071332 STA OPDST 
4303b 026500 JMP F0RM4 

43036 161332 ESTR2 LDA OPi)ST,I 

43037 002020 SSA 



NEXT OPERATOR AN 

END-OF-FORMULA? 
NO 

yES, FIRST STORE OF FORMULA? 
YES 
NO, SET 

DESTINATION ADDRESS 
TRANSFER 

THE NUMBER 

UNSTACK 

DESTINATION 
OPERAND 

STRING 

OPERANDS? 
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0031 


43040 


027044 


JMP 


ESTR3 


Y ES 


0032 


43041 


015376 


J SB 


OPCHK 


NO, UNSTACK source 


0033 


43042 


075254 


STB 


TEmP3 


AnO save value ADDRESS 


0034 


43043 


027024 


JMP 


F.STR1 




0035 


43044 


060355 


FSTR3 LDA 


.-2 


PREPARE 


0036 


43045 


015344 


JSB 


PSTR 


SOURCE 


0037 


43046 


071256 


STA 


TEMP4 


STRING 


0036 


43047 


075410 


STB 


TPRME 




0039 


43050 


003400 


CCA 




PREPARE 


0040 


43051 


015344 


JSB 


PSTR 


DESTINATION STRING 


0041 


43052 


064056 


LD8 


PBPTR 


SAVE CORE 


0042 


43053 


075436 


STB 


EST1 


POINTER 


0043 


43054 


061256 


LDA 


TEMP4 


TRANSFER 


0044 


43055 


003000 


CMA 




TO 


0045 


43056 


041272 


AOA 


TEMP5 


HIGHER 


0046 


43057 


002020 


SSA 




CORE? 


0047 


43060 


027113 


JMP 


ESTR4 


NO 


0048 


43061 


041410 


AOA 


TPRME 


YES, 


0049 


43062 


040361 


AOA 


.*2 


OVERLAPPING 


0050 


43063 


002021 


SSA, 


pRSS 


TRANSFER? 


0051 


43064 


027H3 


JMP 


ESTR4 


NO 


0052 


43065 


061272 


LDA 


TEMP5 


YES, SAVE 


0053 


43066 


071440 


STA 


EST2 


DESTINATION ADDRESS 


0054 


4^067 


006004 


INB 




SET DESTINATION 


0055 


43070 


005000 


BLs 




ADDRESS to start 


0056 


43071 


075272 


SjB 


temps 


OF FREE CORE 


0057 


43072 


061406 


LDA 


TNULL 


SAVE TRANSFER 


0058 


43073 


071442 


STA 


EST3 


LENGTH 


0059 


43074 


003004 


CMA, 


INA 


ALLOCATE 


0060 


43075 


001100 


ARS 




SPACE FOR 


0061 


43076 


015326 


JSB 


CUSP 


INTERMEDIATE 


0062 


43077 


070056 


STA 


PBPTR 


STRING 


0063 


43100 


060664 


LDA 


FSCHA 




0064 


43101 


015350 


JSB 


TRSTR 


TRANSFER STRING TO FREE CORE 


0065 


43102 


061442 


LDA 


EST3 


RESTORE TRANSFER 


0066 


43103 


071406 


STA 


TNULL 


LENGTH 


0067 


43104 


071410 


STA 


TPRME 


RESET ACTUAL SOURCE LENGTH 


0068 


43105 


061436 


LDA 


ESTl 


SET SOURCE 


0069 


43106 


002004 


INA 




ADDRESS TO 


0070 


43107 


001000 


ALS 




INTERMEDIATE 


0071 


43H0 


071256 


STA 


TEMP4 


STRING 


0072 


43111 


061440 


LDA 


EST2 


RESTORE ORIGINAL 


0073 


43H2 


071272 


STA 


TEMP5 


DESTINATION STRING 


0074 


43113 


060664 


ESTR4 LDA 


FSCHA 




0075 


43114 


015350 


JSB 


TRSTR 


COMPLETE TRANSFER 


0076 


43115 


061436 


LDA 


ESTl 


RESTORE FREE 


M77 


4311 6 


070056 


STA 


PBPTR 


CORE POINTER 


0076 


43117 


026515 


JMP 


F0RM5 


EXECUTE END-OF„FORMULA 


007g 


43120 


034056 


ESTR5 ISZ 


PBPTR 


DEFER 


0080 


43121 


034056 


ISZ 


PBPTR 


EXECUTION 


0081 


43122 


063125 


LDA 


BASSO 




0082 


43123 


170056 


STA 


PBPTR, I 




0083 


43124 


026506 


JMP 


F0RM4+6 




0084* 












0085 


43125 


007402 


BASSO OCT 


7402 




0086** 




** 
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0087* 
0088* 
0089 
0090 

0091 

0092* 

0093* 

0094* 

0095 

0096 

0097 

0098* 

0099* 

0100* 

0101 

0102 

0103 

0104* 

0105* 

0106* 

0107 

0108 

0109 

0110* 

0111* 

0112* 

0113* 

0114* 

0115* 

0116* 

0117* 

0118* 

0119* 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137* 

0138* 

0139* 

0140* 

0141* 



** EXECUTE ♦ 

43126 015372 

43127 015402 

43130 026663 

* 

** EXECUTE - 

43131 015372 

43132 015404 

43133 026663 

** EXECUTE * 
* 

43134 015372 

43135 015406 

43136 026663 

# 

** EXECUTE / 

43137 015372 

43140 015410 

43141 026663 

** EXECUTE t 



* REAL POWER 



**• 
** 
feKAO 



• * 

• * 
EFSB 



** 
*** 

** 
EFMP 



** 
*** 

** 
EFDV 



** 

*** 

** 

• 
** 

* 



JSS BINOP 
JSB .FAD 
JMP FORM 



JSB BINOP 
JSB .FSB 
JMP F0R14 



JSB BINOP 
JSB ,FMP 
JMP F0R14 



JSB BINOP 
JSB .FDV 
JMP F0R14 



ExIt t° ERROR IF BA 
RESULT AS EtCPOWER* 



SE IS NEGA T I V E. 
LN(BASE)), 



ELSE COMP UT E 



43142 
43143 
43144 
43145 
43146 
43147 
43150 
43151 
43152 
43153 
43154 
43155 
43156 
43157 
43160 
43161 
43162 
43163 



165332 
104200 
100001 
015414 
027151 
102301 
027164 

015372 
002001 
015354 
002020 
115135 
065640 
015434 
015406 
101641 
015432 
026663 



£PWR 



LDB OPDST,I 
DLD 1,1 

JSB IFIX 

JMP *+3 

SOS 

JMP IPWR 

JSB BINOP 

RSS 

JSB PCHK 

SSA 

JSB RERRS+30, 

LDB BINOl 

JSB .LOG 

JSB ,FMP 

DEF BIN02#I 

JSB .EXP 

JMP F0R14 



LOAD 
POwER 

INTEGER? 

NO 

YES, 16-BIT? 

YES 

NO, UNSTACK 

ARGUMENTS 
CHECK ARGUMENTS 
NEGATIVE BASET 
1 YES 
NO, LOAD BASE ADDRESS 
TAkE NATUAL LOG 
MULTIPLY 

BY POWER 
EXPONENTIATE 



* INTEGER POWER 



** 
* 



Multiply 8a s e repeatedly, us* N(i powers-of*two hethod 
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0142* 

0143* 

0144* 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0i72 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 
0186 
0187 
0188 
0189 
0190 
0191 



To SPEED PROCESS. 


IF POWER IS 


NEGATIVE, TAKE REC 


FOR UNAL RESULT, 








43164 


075264 


IPWR 


STB 


TT1 


SAVE SIGN 


43165 


006020 




SSB 




FORM ABSOLUTE 


43166 


007004 




CMB, 


>INB 


VALUE OF PONER 


43167 


075266 




STB 


TT2 


SAVE IT 


43170 


015372 




JSB 


BINOP 


UNSTACK 


43171 


002001 




RSS 




ARGUMENTS 


43172 


015354 




JSB 


PCHK 


CHECK ARGUMENTS 


43173 


065640 




LDB 


BINOl 


STORE 


43174 


071640 




STA 


BINol 




43175 


075641 




STB 


BIN02 


BASF- 


43176 


061031 




IDA 


HALF 


INITIALIZE 


43177 


071614 




STA 


TT3 


RESULT 


43200 


060361 




LDA 


.♦2 


TO 


43201 


071615 




STA 


TT4 


1.0 


43202 


065266 


IPWRl 


LOB 


TT2 


DIVIDE POWER 


43203 


00403 1 




SLBi 


rBRS 


BY 2 


43204 


027223 




JMP 


IPWR4 


ODD POWER 


43205 


075266 




STB 


TT2 


EVEN POWER 


43206 


006002 


IPW*2 


SZB 




ZERO? 


43207 


027234 




JMP 


IPWR5 


NO 


43210 


061264 




LDA 


TT1 


YES 


43211 


002020 




SSA 




POSITIVE POWER? 


43212 


027216 




JMP 


IPWR3 


NO 


43213 


061614 




LDA 


TT3 


YES, RETURN 


43214 


065615 




LDB 


TT4 


WITH 


43215 


026663 




JMP 


F0R14 


RESULT 


43216 


061031 


IPWR3 


IDA 


HALF 


TAKE 


43217 


064361 




LDB 


• + 2 


RECIPROCAL 


43220 


015410 




JSB 


.FDV 


FOR 


43221 


001614 




DEF 


TT3 


FINAL 


43222 


026663 




JMP 


FOR 14 


RESULT 


43223 


075266 


IPWR4 


STB 


TT2 


SAVE POWER 


43224 


061640 




LDA 


BINOl 


LOAD 


43225 


065641 




LDB 


BIN02 


BASE 


43226 


015406 




JSB 


,FMP 


MULTIPLY BY 


43227 


001614 




DEF 


TT3 


RESULT SO FAR 


43230 


071614 




STA 


TT3 


SAVE NEW 


43231 


075615 




STB 


TT4 


PARTIAL 


43232 


065266 




LDB 


TT2 


RESULT 


43233 


027206 




JMP 


IPWR2 




4323 4 


061640 


IPWR5 


LDA 


BINOl 


SQUARE 


43235 


065641 




LDB 


BIN02 




43236 


015406 




JSB 


.FMP 


BASE 


43237 


001640 




DEF 


BINOl 




43240 


071640 




STA 


BINOl 


RECORD 


43241 


075641 




STB 


BIN02 


NEW 


43242 


027202 




JMP 


IPWRl 


BASE 
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0193* 

0194* 

0195* 

0196 

0197 

0198 

0199 

0200* 

0201* 

0202* 

0203 

0204 

0205* 

0206* 

0207* 

0208 

0209 

0210 

0211 

0212* 

0213* 

0214* 

0215 

0216 

0217 

0218 

0219* 

0220* 

0221* 

0222 

0223 

0224 

0225 

0226* 

0227* 

0228* 

0229 

0230 

0231 

0232 

0233* 

0234* 

0235* 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243* 

0244* 

0245 

0246 

0247 



** EXECUTE > 

* 

43243 
43244 
43245 
43246 

** EXECUTE < 
* 

43247 

43250 



015352 
002020 
026673 
027266 



015352 

003001 



** 



EXECUTE >« 



** 
**# 

** 
EGTRT 



** 
• ** 

** 
EL8T 

** 
• *• 
** 
EGORE 



JSB 
SSA 
JMP 
JMP 



COMPR 

FALSE 
ENEQL+1 



JSB 
CMA, 



COMPR 
RSS 



43251 015352 

43252 002020 

43253 026673 

43254 026676 

* 

** EXECUTE « 

* 

43255 015352 

43256 002002 

43257 026673 

43260 026676 
* 

** EXECUTE <• 
* 

43261 015352 

43262 002020 

43263 026676 

43264 027256 

** EXECUTE # OR 
* 

43265 015352 ENEQL 

43266 002002 

43267 026676 
43270 026673 

* 

** EXECUTE »H 



** 
*** 

** 
EEQL 



** 
*** 
** 
ELORE 



JSB 
SSA 
JMP 
JMP 



JSB 
SZA 

JMP 
JMP 



JSB 
SSA 
JMP 
JMP 

** 
*** 

** 
JSB 
SZA 
JMP 
JMP 



COMPR 

FALSE 
TRUE 



COMPR 

FALSE 
TRUE 



COMPR 

TRUE 
EEQL+i 



COMPR 

TRUE 
FALSE 



AX f * 

EMAX 



** 
** 



43271 015372 

43272 015404 

43273 002021 

43274 027304 
432^5 104200 ARG2 

43276 101641 

43277 026663 

** execute »min« 



** 

JSB 
JSB 
SSA, 

JMP 
OLD 



BINQP 

.FSB 

RSS 

ARG1 

BIN02,I 



43300 015372 

43301 015404 

43302 002021 



JMP F0R14 
** 
• ** 
** 
EMIN JSB BINOP 
JSB ,FSB 
SSA, RSS 



COMPARE OPERANDS 

< ? 

YES 

NO 



COMPARE OPERANDS 
REVERSE COMPARISON SENSE 



COMPARE OPERANDS 

< 7 

YES 

NO 



COMPARE OPERANDS 

s ? 

NO 
YES 



COMPARE OPERANDS 
>* ? 

NO 
YES 



COMPARE OPERANDS 

# ? 

NO 

YES 



subtract the 

Top tmo operands 
top operand larger? 

NO 

YES, RETRIEVE 

ITS VALUE 



SUBTRACT THE 

TOP TWO OPERANDS 
TOP OPERAND LAR6ER? 
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0248 
0249 
0250 
0251 
0252 

0253 

0254** 

0255** 

0256** 

0257 

0258 

02»S9 

0260 

0261 

0262 

0263** 
0264** 
0265** 
0266 

0267 
0268 
0269 
0270 
0271 

0272** 

0273** 

0274** 

0275 

0276 

0277** 

0278** 

0279** 

0280* 

0281* 

0282* 

0283* 

0284* 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0296 

0299 



43303 
43304 
43305 
43306 
43307 
43310 
43311 



027275 
035332 
035332 
165332 

104200 

100001 
026665 



ARG1 



JMP 
ISZ 
ISZ 

ldb 

OLD 



ARG2 

0PD8T 

OPDST 

OPDST,I 

1,1 



* EXECUTE 'AND 1 



43312 
43313 
43314 
43315 
43316 
43317 



015372 
002001 
002003 

026673 
161641 
027266 



JMP FOR 14*2 

** 
*** 

* + 
EAND JSB BINOP 
RSS 

SZA, RSS 
JMP FALSE 
LDA 8IN02,I 
JMP ENEQL'M 



** 

* execute 'or* *** 

** 

43320 015372 EIOR JSB 

43321 002001 RSS 

43322 002002 SZA 

43323 026676 JMP 

43324 l 6 l6 4 l LDA 

43325 027266 JMP 

** 

* EXECUTE 'NOT' *** 

** 

43326 015374 ENOT JSB 

43327 027256 jMP 

* INSURE VALID POwErING 



BINOP 



TRUE 
BIN02, I 
ENEQL+1 



STTOP 

EEQL*1 

** 

*** 

** 



NO 
YES, 

RETRIEVE 
VALUE OF 

NEXT.TO*TOP 

OPERAND 



UNSTACK 

OPERANDS 
TOP OPERAND ZERO? 
YE3 
NO, CHECK 

NEXT-TO»TOP OPERAND 



UNSTACK 

OPERANDS 
TOP OPERAND NQN„ZERO? 
YES 
NO, CHECK 

NEXUTO-TOP OPERAND 



LOAD TOP OPERAND 
GO TO CHECK 



INSURES THAT AfB HAS ACCEPTABLE ARGUMENTS, A*B«0 IS A NON. 
RECOVERABLE ERROR, A?0 AND 8<0 PRINts A WARNING MESSAGE AND 
RETURNS THE MAXIMUM POSITIVE NUMBER AS THE RESULT, 



43330 0756*0 #PCHK STB BINOl 

43331 165641 LDB BIN02#I 

43332 002002 SZA 

43333 027344 JMP PCHK1 

43334 006003 SZB # RSS 

43335 115134 JSB RERRS*29,I 

43336 006021 8SB,RSS 

43337 026673 JMP FALSE 

43340 115203 JSB WERRS + 2,I 

43341 060273 LDA INF 

43342 064355 LDB ,»2 

43343 026663 JMP F0R14 

43344 006003 PCHKl SZB,RSS 

43345 026676 JMP TRUE 

43346 125354 JMp pCHK,I 



POWER ZERO? 



LOAD HIGH PART 

OF POWER 
BASE ZErO? 
NO 
YES, 

YES 
NO, pOwER pOslTlVE? 
YES 
NO 

USE POSITIVE 
INFINITY 

FOR RESULT 
POWER ZERO? 

YES, TAKE RESULT AS 1,0 
No 
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0301* 
0302* 
0303* 
0304* 
0305* 
0306* 
0307* 
0308* 
0309 

0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 

0332 
0333 

0334 
0335 
0336 
0337 
033g 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0364 
0355 



** COMPARE TOP OPERANDS OF STACK 

* 



** 

*** 

** 



ON EXIT (A) Is NEGATIVE IF THE TOP OPERAND OF THE 
STACK IS GREATER THAN THE NEXT-TO-TOP OPERAND* 
POSITIVE IF I T IS LESS, AND ZfRO IF tHEy ARE EOyAL, 



43347 
43350 
43351 
43352 
43353 
43354 
43355 
43356 
43357 
43360 
43361 
43362 
43363 
43364 
43365 
43366 
43367 
43370 
43371 
43372 
43373 
43374 
43375 
43376 
43377 

43400 
43401 
43402 
43403 
43404 
43405 
43406 

43407 
43410 
43411 
43412 
43413 
43414 
43415 
43416 
43417 
43420 
43421 
43422 
43423 
43424 
43425 



161332 

002020 
027355 
015372 
015404 
125352 
060355 
015344 
071256 
075410 
061406 
071432 
060355 
015344 
075344 
035330 
035330 
035432 
027374 
006400 
027377 
015364 
060417 
064000 
035406 
027410 
002400 
007004 
040001 
002003 
006003 
125352 

027370 
061344 

002006 
027415 
060417 
027402 
071344 
061272 
000065 
160000 
002041 
001727 
010500 
035272 
027402 



#CMPR 



COMP1 



C0MP2 

C0MP3 
C0MP4 

C0MP5 



C0MP6 



COMP7 



LDA 
SSA 
JMP 
JSB 
JSB 
JMP 
LDA 
JSB 
STA 
STB 
LDA 
STA 
LDA 
JSB 
STB 

isz 

ISZ 
ISZ 

JMP 
CLB 
JMP 
JSB 
LDA 
LDB 
ISZ 
JMP 

CLA 

CMB, 

ADA 

SZA, 

SZB, 

Jmp 

JMP 

LDA 

INA, 

JMP 

LDA 

JMP 

STA 

LDA 

CLE? 

LDA 

SE2, 
ALF, 

AND 
ISZ 
JMP 



OPDST,I 

COMP1 

BINOP 

,FSB 

CQMPR,I 

,"2 

PSTR 

TEMP4 

TPRME 

TNULL 

CP0 

.-2 

PSTR 

CPl 

T MP S t 

TMPST 

CP0 

C0MP3 

C0MP4 

FSCH 

,+40B 



TNULL 

C0MP6 

INB 

1 

RSS 

RSS 

COMPR,I 

C0MP2 

CPl 

SzA 

C0MP7 

, + 40B 

C0MP5 

CPl 

TEMP5 

ERA 

0,1 

RSS 

ALF 

B377 

TEMP5 

C0MP5 



STRING 

ARGUMENTS? 
YES 
NO, COMPARE 

NUMERICAL 
OPERANDS 

PREPARE 

COMPARISON 
STRING 

SAVE SPECIFIED 
LENGTH 

PREPARE 

TEST STRING 
SAVE ACTUAL LENGTH 
RESERVE SPACE 

FOR RESULT 
MORE SPECIFIED STRING? 

yEs 

NO, LOAD A 

null Character 
load next 

COMPARISON 
CHARACTER 
MORE SPECIFIED TEST STRING? 
YES 

NO, LOAD NULL CHARACTER 
COMPARE 

CHARACTERS 
EXIT ON NOT EQUAL 

OR BOTH NULL 
CHARACTERS 

MORE ACTUAL 

TEST STRING? 
YES 
NO, LOAD A BLANK 



extract 

NEXT 
TEST 

CHARACTER 
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0357** 

0358** 

0359** 

0360* 

0361* 

0362* 

0363* 

0364* 

0365* 
0366* 

0367* 
0368* 
0369* 
0370* 

0371* 
0372* 

0373* 

0374* 

0375* 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

03$3 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 
0407 

0408 
0409 
0410 
0411 
0412 



** 

* prepare string operand ** 

** 

THE STRING ADDRESS ON TOP OF THE OPERAND STACK IS COMBINED 
WiTh T H E SUBSCRIPTS IN A PSUEDO.ENTRY ON ThE TEMPORARY STACK 

to form a string operand, (a) « «2 upon entry for a 8qurce 
string; (a) « -1 for a destination string. the address of 
the first character of the string operand is left in temp5i 
for source strings (a) « t£mp5 upon exit, the requested 
string length (in characters) is left in tnulll for source 
strings the actual string length (which may be less than the 
requested length) is in (b) upon exit. the following 
conditions e*it to error* negative string length, reque8ted 
destination string would exceed physical string boundary, or 
requested destination string would produce a string quantity 
with two unconnected parts, the logical length of a 
destination string is adjusted as needed. 



43426 
43427 
43430 
43431 
43432 
43433 
43434 
43435 
43436 
43437 
43440 
43441 
43442 
43443 
43444 
43445 
43446 
43447 
43450 
43451 
43452 
43453 
43454 
43455 
43456 
43457 
43460 

43461 
43462 

43463 
43464 
43465 
43466 
43467 
43470 
43471 
43472 



071466 
015376 
075462 
005000 
075272 
005100 
044356 
075260 

065330 
044361 
160001 
071400 
041272 
071272 
071572 
006004 
160001 
002006 
027463 
003400 
051466 
027457 
161260 
010500 
027463 
071462 
061410 
003000 
041400 
071376 

003000 
041400 

002021 
115121 

071406 
042005 
002020 



#PSTR STA 
JSB 
STB 
BLS 
STB 
8RS 
ADB 
STB 
LDB 
ADB 
LDA 
STA 
ADA 
STA 
STA 
INB 
LDA 
INA, 
JMP 
CCA 
CPA 
JMP 
LDA 
AND 
JMP 

PSTRl STA 
LDA 
CMA 
ADA 

PSTR2 STA 
CMA 
ADA 
SSA, 
JSB 
STA 
ADA 
SSA 



PS0 

OPCHK 

PS1 

TEMP5 

.-1 

TEMP6 

TMPST 
.+2 

1,1 

MPT 

TEMP5 

TEMP5 

SBpTR 

lfl 
SZA 
PSTR2 

P30 

PSTRl 

TEMP6,I 

B377 

PSTR2 

PS1 

TPRME 

MPT 
NQT 

MPT 

RSS 

RERRS+i8, 

TNULL 

.73 



SAVE MO&E F^AG 
UNSTACK OPERAND 
SET FLAG POSITIVE 
SAVE ADDRESS OF FIRST 

CHARACTER OF STRING 
SAVE 

POINTER TO 

STRING LENGTH 
LOAD 

START.OF-STRING 
DESIGNATOR 
SAVE IT 
RECORD CHARACTER ADDRESS 

OF START.0F.8TRING 
SAVE ADDRESS 
LOAD 

END-OF-STRING DESIGNATOR 
SPECIFIED? 
YES 
NO 

» SOURCE* MODE? 
NO 
YES, LOAD STRINGiS 

LOGICAL LENGTH 

SET FLAG TO *X 
COMPUTE 

END«OF»STRING 
DESIGNATOR 
SAvE IT 
IS LENGTH 

OF SPECIFIED STRING 
NEGATIVE? 
I YES 

>72? 
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0413 


43473 


115123 




JSB RERRS+20, 


I 


0414 


43474 


161260 




LDA TEMP6,I 


DOES 


0415 


43475 


010500 




AnD 8377 


START-O^STRInG 


0416 


43476 


003000 




CMA 


CHARACTER 


0417 


43477 


035466 




ISZ P30 


RELATE TO 


0416 


43500 


002004 




INA 


PREVIOUS 


0419 


43501 


041400 




ADA MPT 


VALUE 


0420 


43502 


002021 




SSA,RSS 


OF STRING? 


0421 


43503 


027522 




JMP PSTR3 


NO 


0422 


43504 


161260 




LDA TEMP6,I 


YES, EXTRACT 


0423 


43505 


035466 




ISZ PS0 


END*OF* 


0424 


43506 


001727 




ALF f ALF 


PERMITTED. STRING 


0425 


43507 


010500 




AND B377 


DESIGNATOR 


0426 


43510 


003000 




CMA 


COMPUTE DIFFERENCE FROM 


0427 


43511 


041376 




ADA NQT 


END OF SPECIFIED STRING m \ 


0428 


43512 


006404 




clb,inb 


'SOURCE* 


0429 


43513 


055466 




CpB PS0 


MoDE? 


0430 


43514 


027527 




JMP P3TR5 


NO 


0431 


43515 


065406 




LDB TNULL 


YES, SPECIFIED SOURCE STRING 


0432 


43516 


A02004 




INA 


CONTAINED wITHIN 


0433 


43517 


002021 




SSArRSS 


DEFINED SOURCE STRING? 


0434 


43520 


044000 




ADB 


NO, CORRECT LENGTH 


0435 


43521 


027525 




JMP PSTR4 


OF ACTUAL SOURCE STRING 


0436 


43522 


035466 


PSTR3 


ISZ PS0 


'SOURCE* MODE? 


0437 


43523 


115122 




JSB RERRS+19, 


I NO 


0438 


43524 


007400 




CCB 


YES, SET ACTUAL LENGTH TO 


0439 


43525 


061272 


PSTR4 


LDA TEMP5 


LOAD START. OF. STRING 


0440 


43526 


125344 




JMP pstr#i 


CHARACTER ADDRESS 


0441 


43527 


002021 


PSTR5 


SSArRSS 


PHYSICAL STORAGE OVERFLOW? 


0442 


43530 


115123 




JSB RERRS+20, 


I YES 


0443 


43531 


035462 




ISZ PSl 


END. OF. STRING SPECIFIED? 


0444 


43532 


027540 




JMp PSTR7 


YES 


0445 


43533 


161260 


PSTR6 


LDA TEMP6,I 


NO, 


0446 


43534 


010316 




AND M256 


RESET 


0447 


43535 


031376 




IOR NQT 


LOGICAL LENGTH 


0448 


43536 


171260 




STA TEMp6,I 


qf string 


0449 


43537 


125344 




JMP PSTRfl 




0450 


43540 


161260 


PSTR7 


LDA TEMP6,I 


IS NEW 


0451 


43541 


010500 




AND B377 


DESTINATION 


0452 


43542 


003000 




CMA 


STRING 


0453 


43543 


04U76 




ADA NQT 


LONGER 


0454 


43544 


002021 




SSA,RSS 


THAN OLD? 


0455 


43545 


027533 




JMP PSTR6 


YES 


0456 


43546 


125344 




JMP PSTR,I 


NO 


0457** 






** 




0458*** STACK STRING CONSTANT *** 




0459** 






** 




0460* 












0461* 


SEE NOjE AT 


F0R13 1 


DF ROUTINE FOfi 


(MX 


0462* 












0463 


43547 


035332 


#STST 


ISZ OPDST 


STACK 


0464 


43550 


035332 




ISZ OPDST 


NEGATIVE 


0465 


43551 


061611 




LDA TEMPI 


OF 


0466 


43552 


003000 




CMA 


STRING 


0467 


43553 


171332 




STA OPDST, I 


ADDRESS 


0468 


43554 


161611 




LDA TEMPI, I? 


COMPUTE 
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0469 


43556 


010500 




AND B377 


STRING 


0470 


43556 


007400 




CCB 


LENGTH 


0471 


43557 


044000 




ADB 


• 1 


0472 


43560 


040362 




ADA # +3 


UPDATE 


0473 


43 5 6l 


001100 




ARS 


INTRA-STATEMENT 


0474 


43562 


041611 




ADA TEMPI 


POINTER 


0475 


43563 


071611 




STA TEMPI 


PAST STRING 


0476 


43564 


015400 




JSB RSCHK 


CREATE TEMPORARY 


0477 


43565 


002400 




CLA 


RECORD 


0478 


43566 
43567 


104400 
101330 




DST TMPSTrl 


<0#(B) ) 


0479 


43570 


125340 




JMP STSTR,I 




0480** 






** 




0481*** FETCH SOURCE CHARACTER *** 




0482** 






** 




0483* 






• 






0484* 


CHARACTER ADDRESS 


IN TEMP4, SOURCE CHARACTER COUNT 


4 85* 


IN TPRME (IN 


1»S COMPLEMENT), 


EXIT TO-.CPM) ON NO 


0486* 


"or* 


CHARACTERS (TPRME s •!) ELsE EXIT TO (p*2) NlTH 


0487* 


NEXT 


CHARACTER IN 


(A) f 




0488* 












0489 


43571 


061410 


*FSCH 


1 LDA TPRME 


MORE 


0490 


43572 


002007 




INA,SZA,RSS 


CHARACTERS? 


0491 


43573 


125364 




JMP FSCH, I 


NO 


0492 


43574 


071410 




STA TPRME 


YES, UPDATE CHARACTER COUNT 


0493 


43576 


061256 




LDA TEMP4 


LOAD CHARACTER 


0494 


43576 


000065 




CLE, ERA 


ADDRESS 


0495 


43577 


160000 




LDA 0,1 


EXTRACT 


04g6 


43600 


002041 




SEZ,RSS 


NEXT 


0497 


43601 


001727 




ALF, ALF 


CHARACTER 


0498 


43602 


010500 




AND B377 




0499 


43603 


035256 




IS2 TEMP4 


UPDATE CHARACTER ADDRESS 


0500 


43604 


035364 




ISZ FSCH 




0501 


43605 


125364 




JMp FSCH, I 




0502** 








** 


0503*** FETCH SOURCE CHARACTER (UPPER 


CASE) *+* 


0504** 








** 


0505* 












0506* 


same 


AS FSCH, 


r EXCEPT LOWER CASE 


CHARACTERS ARE CONVERTED TO 


0507* 


Upper case. 


USED 


BY CHAIn AnD 


ASSIGN STATEMENTS, 


0508* 












0509 


43606 


061410 


#FCUC 


LDA TPRME 


MORE 


0510 


43607 


002007 




INA,SZA,RSS 


CHARACTERS! 


0511 


43610 


125560 




JMP FCuC,I 


NO 


0512 


43611 


071410 




STA TPRME 


YES, UPDATE CHARACTER COUNT 


0513 


43612 


061256 




LDA TEMP4 


LOAD CHARACTER 


0514 


43613 


000065 




CLE, ERA 


ADDRESS 


0515 


436U 


160000 




LDA A, I 


EXTRACT 


0516 


43615 


002041 




SEZ,RSS 


NEXT 


0517 


4 3 6l6 


001727 




ALF, ALF 


CHARACTER 


0518 


43617 


010500 




AND B377 




0519 


43620 


040317 




ADA M96 




0520 


43621 


002021 




SSA,RSS 


LOwER CASE 


0521 


43622 


040450 




ADA M32 


NO 


0522 


43623 


040470 




ADA ,140 


YES 


0523 


43624 


035256 




ISZ TEMP4 


UPDATE CHARACTER ADDRESS 
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0524 

0525 

0526** 

0527** 

0528** 

0529* 

0530* 

0531* 

0532* 

0533* 

0534* 

0535 

0536 

0537 

053d 

0539 

0540 

0541 



43625 
43626 



035560 
125560 



* FETCH INPUT 



I3Z FCUC 
JMP FCUC, I 
#* 

CHARACTER *** 

** 



EXITS NORMALLY TO (P*2) WITH NEXT INPUT CHARACTER IN (A) 
IF THE CHARACTER IS A * OR THE INPUT RECORD IS EMPtY, 
EXIT TO TRSTR,I (THE ONLY CALLER WHO CAN ENCOUNTER THIS 
CONDITION), 

43627 035274 #FINC ISZ FINCH 

43630 015446 JSB GETCR FETCH NEXT CHARACTER 

43631 125350 JMp TR8TR,I NoNE IN BUFFER 
43$32 060001 IDA B AUOW LOWER CASE 

43633 050421 CPA t +42B « 7 

43634 125350 JMP TRSTR,I YES, TERMINAL EXIT 

43635 125274 JMP FINCH, I NO 
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0543* 

0544* 

0545* 

0546* 

0547* 

0548* 

0549 

0550 

0551 

0552 

0553 

0554* 

0555* 

0556* 

0557* 

0558* 

0559* 

0560* 

0561* 

0562 

0563 

0564 

0565 

0566* 

0567* 

0568* 

0569* 

0570* 

0571* 

0572* 
0573* 

0574* 

0575* 

0576* 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584* 

0585* 

0586* 

0587* 

0588* 

0589* 

0590* 

0591* 

0592* 

0593* 

0594 

0595 

0596 

0597 



*• 

* 



FETCH ENTER CHARACTER 



** 

*** 

** 



same as finch except it does not chech for a quote 



43636 
43637 
43640 
43641 
43642 



035522 
015446 
125350 
060001 
125522 



#FENC 



ISZ 
JSB 
JMP 
LOA 
JMP 



** FETCH 

* 



TOP OF STACK 



FENCH 
GEjCR 
TRSTR,I 
B 

FENCH,I 
** 
*** 
** 



FETCH NEXT CHARACTER 
NONE IN BUFFER 
ALLOW LOWER CASE 
CHARACTER FOUND 



Exit with top operand in (A) and cB) after unstacking 
it. create empty space on temporary stack for future 
Intermediate result. 



43643 015376 

43644 015400 

43645 104200 

43646 100001 

43647 125374 
* 

** execute a 

* 



#STTP JSB OPCHK 
JSB RSCHK 

OLD ill 

JMP STTOP,I 
BINARY OPERATOR 



UNSTACK OPERAND 

CREATE SPACE FOR TEMPORARY 

LOAD TOP OPERAND 



** 
**• 
** 



INE CALL FOR A BINARY 
ON THE STACK ARE 
NG •UNDEFINED, 1 THE 
WiTh ThE TOP ARGUMENT'S 
TOP ARGUMENTfS VALUE IN 
TH THE RESULT IN (A) 



ON ENTRY CP+i) CONTAINS A SUfiROUT 
OPERATION. THE TOP TW OPERA N D$ 
UNSTACKED AND VERIFIED AS NOT BEI 
APPROPRIATE SUBROUTINE iS CALLED 
ADDRESS IN 8INO2 AND THE NEXT-.TO- 
(A) And Cb). EXIT IS TO CP*2) WI 
AND (B), 

43650 161372 #BnOP 

43651 071640 

43652 035372 

43653 015376 

43654 075641 

43655 015374 

43656 025640 
* 

** VERIFY LEGITIMACY 



THE VALUE REFERENCED By THE TOP OF THE OPERAND STACK 
IS CHECKED, EXIT TO ERROR IF VALUE IS 'UNDEFINED,* 
ELSE REMOVE OPERAND ADDRESS FROM STACK AND REMOVE VALUE 
FROM TOP OF TEMPORARY stack* if it IS ThERE, EXIT 
WITH OPERAND ADDRESS IN (B), 



LOA 


BlNOP,I 


SAVg 


STa 


BINOI 


SUBROUTINE 


ISZ 


BINOP 


CALL 


JSB 


OPCHK 


SAVE ADDRESS OF 


STB 


BIN02 


TOP OPERAND 


JSB 


STTOP 


FETCH NExT OPERAND 


JMp 


BINOI 


EXECUTE SUBROUTINE 


OF 


OPERAND 


W w 
*** 
** 



43657 165332 

43660 006020 

43661 027704 

43662 16P001 



#OPCK LDB OPDST,! 
SSB 

JMP OP£h3«'1 
LDA 1,1 



STRING 

OPERAND? 
Y£S 
NO, HIGH PART OF 
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0598 


43663 


001222 


RAL, 


,RAL 


IS 


0599 


43664 


002004 


INA 




OPERAND 


0600 


43665 


001310 


RAR, 


,SLA 


NORMALIZED? 


0601 


43666 


027676 


JMP 


OPCH1 


YES 


0602 


43667 


051027 


CPA 


BIT15 


WAS FIRST WORD ZERO 


0603 


43670 


006005 


INB, 


,RSS 


YES 


0604 


43671 


115126 


JSB 


RERRS+23, 


,1 NO— »ERROR 


0605 


43672 


160001 


LDA 


1,1 


SECOND 


0606 


43673 


002002 


SZA 




WORD ZERO? 


0607 


43674 


115126 


JSB 


RERRS*23, 


,1 NO— ERROR 


0608 


43675 


044356 


ADB 


»*1 


YES^RESTORE OPERAND ADDRESS 


0609 


43676 


055330 


OPCH1 CPB 


TMPST 


TEMPORARY? 


0610 


43677 


027705 


JMP 


0PCH3 


YES 


0611 


43700 


061332 


0PCH2 LDA 


OPDST 


NO, 


0612 


43701 


040355 


ADA 


. *<c 


UNSTACK 


0613 


43702 


071332 


STA 


OPDST 


OPERAND 


0614 


43703 


125376 


JMP 


OPCHK,I 


ADDRESS 


0615 


43704 


007004 


CMB, 


,INB 


SET ADDRESS TRUE 


0616 


43705 


061330 


0PCH3 LDA 


TMPST 


UNSTACK 


0617 


43706 


040355 


ADA 


.-2 


TEMPORARY 


0618 


43707 


071330 


STA 


TMPST 


OPERAND 


0619 


43710 


027700 


JMP 


0PCH2 




0620** 








** 


0621*** ALLOCATE AN ENyRY ON 


THE TEMPORARY STACK *** 


0622** 








** 


0623* 












0624* 


(B) 1 


[S ^CHANGED [}FOU EXlTt ON 


stack overflow. 


0625* 


THE OPERATOR 


AND OPERAND STACKS 


ARE MOVED TO HIGHER 


0626* 


CORE 


TO MAKE 


ROOM FOR FIVE MORE 


TEMPORARY ENTRIES. 


0627* 












0628 


43711 


061330 


#RSCK LDA 


TMPST 


ADVANCE 


0629 


43712 


040361 


ADA 


.♦2 


POINTER TO 


0630 


43713 


071330 


STA 


TMPST 


next Entry 


0631 


43714 


002004 


INA 




STACK 


0632 


43715 


051464 


CPA 


OPTRQ 


overflow? 


0633 


43716 


002001 


RSS 




YES 


0634 


43717 


125400 


JMP 


RSCHK,I 


NO 


0635 


43720 


075436 


STB 


RT0 


SAVE (B) 


0636 


43721 


064056 


LDB 


P8PTR 


LOAD SOURCE ADDRESS 


0637 


43722 


060371 


LDA 


.♦10 


ALLOCATE SPACE FOR 


0638 


43723 


015326 


JSB 


CUSP 


FIVE MORE 


0639 


43724 


070056 


STA 


P8PTR 


TEMPORARIES 


0640 


43725 


071440 


STa 


RT1 


SAVE DESTINATION ADDRESS 


0641 


43 7 2 6 


160001 


RSCH1 LDA 


1,1 


TRANSFER 


0642 


43727 


171440 


STA 


RT1,I 


A WORD 


0643 


43730 


055330 


CPB 


TMPST 


DONE? 


0644 


43731 


027737 


JMP 


RSCH2 


YES 


0645 


43732 


003400 


CCA 




NO, DECREMENT 


0646 


43733 


041440 


ADA 


RT1 


DESTINATION 


0647 


43734 


071440 


STA 


RT1 


AND SOURCE 


0648 


43735 


044356 


ADB 


• ~t 


ADDRESSES 


0649 


43736 


027726 


JMP 


RSCH1 




0650 


43737 


061332 


RSCH2 LDA 


OPDST 


CORRECT 


0651 


43740 


040371 


ADA 


. + 10 




0652 


43741 


071332 


STA 


OPDST 


STACK 


0653 


43742 


061464 


LDA 


OPTRQ 
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0654 


43743 040371 


AQA ,+10 


POINTERS 


0655 


43744 071464 


STA OPTRO 




0656 


43745 065436 


LDB RT0 


RESTORE (B) 


0657 


43746 125400 


JMP RSCHKrI 




0658** 


** 




0659*** PUSH DOWN 


OPERATOR STACK *** 




0660** 


** 




0661* 








0662* 


ALLOCATE AN 


ENyRY ON THE OPERATOR STACK, (A) 


0663* 


NOT CHANGED. 






0664* 








0665 


43747 064056 


#PSHS LDB PBPTR 


ADVANCE 


0666 


43750 044361 


ADB ,*2 


STACK POINTER 


0667 


43751 007000 


CMB 


USER 


0668 


43752 044716 


ADB LWAUS 


SPACE 


0669 


43753 006020 


SSB 


OVERFLOW? 


0670 


43754 115UI 


JSB rErrs*10i 


,1 YES 


0671 


43755 034056 


ISZ PBPTR 


NO, ALLOCATE 


0672 


43756 034056 


I8Z PBPTR 


STORAGE 


0673 


43757 125366 


JMP PSHSTfl 
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0002 


44000 ORG 44000B 




0003 


44000 077600 SMSK OCT 77600 




0004 


44001 176745 SERRA ABS »SERRS 




0005 


44002 177734 RERRA ABS SERRS-RLRRS 


0006 


44003 177715 FERRA ABS RERRS*FERRS 


0007 


44004 177761 wERRA ABS FERRS-wERRS 


0008 


44005 072221 OSERR DEF DSERA 




0009** ** 




0010*** kouno number t° integer *** 




0011** ** 




0012* 






0013* 


enter with number in (A) and (B) 


. EXIT TO (P*2) IF 


0014* 


INTEGER FORM (ROUNDED AS NEEDED) 


IS POSITIVE AND NOT 


0015* 


LARGER than is bits, Else exit TO (P*S). ON EXJT TO 


0016* 


CP+2), (8) HOLDS THE INTEGER BIASED BY *1, 


0017* 






0018 


44006 015414 #SBFX JSB IFIX 


TRUNCATE NUMBER 


0019 


44007 125342 JMP SBFIX,I 


NUMBER TOO LARGE 


0020 


44010 002002 SZA 


INTEGER OVERFLOW? 


0021 


44011 125342 JMP SBFIX,I 


YES 


0022 


44012 002041 SEZtRSS 


NO# ROUNDING BIT? 


0023 


44013 044356 ADB ,-1 


NO, BIAS INTEGER BY •* 


0024 


44014 006021 SSB,RSS 


YE3# POSITIVE RESULT? 


0025 


44015 035342 IS2 SBFIX 


YES 


0026 


44016 125342 JMP SBFIX,! 


NO 
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0028** *+ 

0029*** INTEGERIZE A NUMBER *** 

0030** ** 

0031* 

0032* ENTER WITH A FLOATING POINT NUMBER IN (A) AND (B), 

0033* IF EXPONENT EXCEEDS 23, NUMBER HAS INTEGER SIGNIFICANCE) 

0034* ExlT TO (P*l), ALL OtHEr CAsEs EXIT TO (P*2) WITH 32-BlT 

0035* INTEGER RIGHT JUSTIFIED IN (A) AND <B). ON EXIT CO) * 

0036* IF NUMBER Is EXACTLY REprEsEnTA#LE AS A 16-BIT InTEGER, 

0037* IF EXPONENT IS NEGATIVE, TRUNCATE TO OR -I APPROPRIATELY 

0038* AND LET- (0) * l f OTHERWISE RIGHT JUSTIFY INTEGER AND EXIT 

0039* WITH LAST BIT LOST IN CE). 

0040* 

0041 44017 071260 #IFIX 

0042 44020 102101 

0043 44021 015412 

0044 44022 002020 

0045 44023 026046 

0046 44024 040337 

0047 44025 002020 

0048 44026 103101 

0049 44027 040347 

0050 44030 002021 

0051 44031 125414 

0052 44032 040347 

0053 44033 071322 

0054 44034 061260 

0055 44035 026042 

0056 44036 000071 IFlXi 

0057 44037 002200 

0058 44040 004^35 

0059 44041 102101 

0060 44042 035322 IFIX2 

0061 44043 026036 

0062 44044 035414 

0063 44045 125414 

0064 44046 061260 IFIX3 

0065 44047 002l2 

0066 44050 003401 

0067 44051 002401 

0068 44052 007401 

0069 44053 006400 

0070 44054 026044 



STA TEMP6 


SAVE (A) 


STO 


SET INOT ONE-WORD INTEGER* MODE 


JSB ,FLUN 


UNPACK (B) 


SSA 


NEGATIVE EXPONENT* 


JMP IFIX3 


YES 


ADA t *16 


NO, EXPONENET 


SSA 


«• 15? 


CLO 


YES 


ADA ,«8 


no, Exponent 


SSA,R3S 


«« 23? 


JMP IFIX,I 


NOf ALL SIGNIFICANCE IS INTEGER 


ADA f -8 


YES, MOVE BINARY POINT TO END OF 


STA ExP 


(B) AND SAVE SHIFT COUNT 


LDA TEMP6 


RETRIEVE (A) 


JMP IFIX2 




CLE,3LA,ARS 


SHIFT (A) RIGHT 


CME 


SHIFT 


SLBiERB 


CB) RIGHT 


STO 


LOST A 1 


isz exp 


a ll shifts done? 


JMP IFIX1 


NO 


ISZ IFIX 


YES 


JMp IFIX, I 




LDA TEMP6 


RETRIEVE (A) 


CLE#SSA 


TRUNCATE 


CCA,Rss 


TO 


CLA#RSS 


• 1 


CC8,RS8 


OR 


CLB 





JMP IFIX3*2 





PAGE 0158 #13 EXECUTION UTILITY ROUTINES 



0072** 




** 




0073*** REQUEST A RECORD *** 




0074** 




** 




0075* 










0076* 


UPON 


ENTRy (A) HOLDS A FILE NUMBER (POSITIVE EOR A READ 


m?7*> 


REQUEST, NEGATIVE 


for a write request) and cb> specifies 


0078* 


VALIDATION OF THE 


FILE'S EXISTENCE ( (B) « -2) OR THE FILE 


0079* 


RECORD TO BE PUT 


IN THE FILE BUFFER ( (B) « *1 REQUESTS 


0080* 


THE f 


RECORD WHICH 


FOLLOWS THE ONE 


CURRENTLY IN THE BUFFER, 


0081* 


(B) s 


>» REQUESTS 


RECORD (B)+l ) 


t EXIT TO ERROR IF THE 


0082* 


FILE 


DOES NOT EXIST OR A WRITE REQUEST IS GIVEN FOR A 


0083* 


READ" 


-ONLY FILE, 


EXIT TO THE END 


*OF«FILE CODE IF THE 


0084* 


REQUESTED RECORD 


DOES NOT EXIST. 


OTHtRWl* THE DIRTY 


0085* 


BIT ] 


[S EXAMINED TO DETERMINE iF 


the file buffer should 


0086* 


BE WRITTEN BACK TO DISC, 




0087* 


A READ REQUEST READS THE REQUESTED RECORD INTO THE BUFFER? 


0088* 


A WRITE REQUEST MERELY INITIALIZES THE BUFFER TO 'EMpTY', 


0089* 


THE FILE TABLE IS 


UPDATED TO REFLECT THE CHANGES, 


0090* 










0091 


44055 


075647 #rQsT STB rQ2 


SAVE rECOrD REFERENCE 


0092 


44056 


007400 


CCB 


GET i*S COMPLEMENT 


0093 


44057 


002020 


SSA 


OF FILE NUMBER AND 


0094 


44060 


006401 


CLB,RSS 


SET RQ1 « *1 FOR A 


0095 


44061 


003000 


CMA 


rEAD rEQuEst Or 


0096 


44062 


075644 


STB RQ1 


FOR A W RJTE REQUEST 


0097 


44063 


041500 


ADA FCNTR 


DOES REQUESTED 


0098 


44064 


003021 


CMA#SSA,RSS 


FILE EXIST? 


0099 


44065 


115142 


JSB RERRS+35, 


I NO 


0100 


44066 


041500 


ADA FCNTR 


YES 


0101 


44067 
44070 


100200 
000376 


MPY ,+FTEL 


SET POINTER 


0102 


44071 


041502 


ADA FILTB 


TO FILE TABLE 


0103 


44072 


071236 


STA FBASE 


ENTRY 


0104 


44073 


161236 


LDA FBASE, 1 


load number of records 


0105 


44074 


002003 


SZA,RSS 


DOES FILE EXIST? 


0106 


44075 


115142 


JSB RERRS+35, 


I 


0107 


44076 


065236 


LDB FBASE 




0108 


44077 


044363 


ADB t *4 




0109 


44100 


075236 


STB FBASE 




0110 


44101 


007500 


CCB # CLE 




0111 


44102 


002020 


SSA 


READ-ONLY FILE? 


0112 


44103 


055644 


CPB RQl 


YES, READ REQUEST? 


0113 


44104 


001675 


El*,ClE,SlA,ErA YES# ClEAr BIT 15 AnO Sk* 


0114 


44105 


115143 


JSB RERRS+36, 


I NO 


0115 


44106 


065647 


LDB RQ2 


FILE VALIDATION 


0116 


44107 


054355 


CPB ,-2 


ONLY? 


0117 


44110 


026320 


JMP RQST9 


YES 


0118 


44111 


035647 


ISZ RQ2 


NO, RECORD SPECIFIED? 


0119 


44112 


026137 


JMP RQST2 


YES 


0120 


44113 


165236 


L DB FBASE r I 


NO, GET HIGH OlD RECORD ADDRES 


0121 


44114 


055027 


CPB BIT15 


NULL RECORD? 


0122 


44115 


026136 


JMP RQST6 


YES 


0123 


44H6 


035236 


ISZ FBaSE 


NO, COMPUTE 


0124 


44117 


165236 


LDB FBASE, I 


RECORD'S 


0125 


44120 


035236 


ISz FBASE 


DISTANCE 


0126 


44121 


035236 


ISZ FBASE 


FROM 
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0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
1 <|5 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 

0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 

0172 
0173 
0174 
0175 
W176 
0177 
0178 
0179 
0180 
0181 
0182 



44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 



22 
23 
24 
25 
26 

27 

30 
31 
32 
33 
34 

35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 
77 



44200 
44201 
44202 
44203 
44204 
44205 
44206 
44207 

4421» 
44211 



007000 
145236 
007000 
060350 
041236 

16^000 
001665 
004010 
044000 
004065 
006004 
026142 
006400 
035236 
035236 
035236 
003004 
040001 
002020 
026151 
035236 
035236 
124656 
040001 
030360 
005000 

002020 
060001 

007400 
045236 
164001 
000040 
141236 
071647 
002040 
006004 
075646 
064351 
045236 
164001 
005423 
007004 
075650 
035236 
145236 
035236 
175236 
075645 
065236 
044353 
075236 
044356 
164001 
055027 

026214 
151236 



RQST2 



RQST7 



CMB 

AOB FBASE, I 

CMB 
LDA 

ADA 

LDA 

ELA, 

SLB 

ADB 

CLE, 

INB 

JMP RQST7 



FIRST 
RECORD 



.-7 

FBASE 
A, I 
CLE, ERA 

A 
ERB 



— a • n 



KUOIO LLD 



ISZ 

ISZ 

ISZ 

CMA, 

ADA 

SSA 

JMP 

ISZ 

ISZ 

JMP 

ADA 

IOR 

BLS 
SSA 

LDA 

CC8 

ADB 

LDB 

CLE 

ADA 

STA 

SEZ 

INB 

STB 

LDB 

ADB 

LDB 

BLR, 

CMB, 

STB 

ISZ 

ADB 

ISZ 

STB 

STB 

LDB 

ADB 

STB 

ADB 

LDB 

CPB 

JMP 

CPA 



FBASE 

FBASE 

FBASE 

INA 

1 

*+4 

FBASE 

FBASE 

FDT4A,i 

1 

• ♦1 



1 

FBASE 
B , I 

FBASE, I 
RQ2 



RQ4 
.-6 
FBASE 
B,I 

RBR 
INB 

RQ5 

FBASE 

FBASE, I 

FBASE 

FBASE, I 

RQ3 

FBASE 

.-4 
FBASE 

.-1 

B,I 

BIT15 

RQSj5 

FBASE,! 



GET RECORD 
COUNT BACK 
INTO A 
CLEAR BIT 15 



NUMBER 

NO RECORD IN CORE 
ADJUST POINTER 

TO LOW WORD 

OF BASE ADDRESS 
DOES 

RECORD 

YES 

NO, CORRECT FBASE 

FOR EOF EXIT CHECK 

COMPUTE RELATIVE 
DISC 

ADDRESS 

OF NEW RECORD 
GET HIGH 
DISC 

COMPUTE LOW DISC ADDRESS 
SAVE IT 
INCREMENT IF 
CARRY FROM 
LOW ADD 
GET 

NEGATIVE 
OF BUFFER 

SIZE 
SAVE IT 
SET POINTER 
TO BEGINNING 

OF RECORD BUFFER 
SAVE ADORESS OF BUFFER 
MOVE TO 
DISC 

ADDRESSES 
IS ANY 
RECORD 

IN CORE? 
NO, SKIP COMPARE AND WRITE 
OLD AND NEW RECORDS THE SAME? 
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0183 


44212 


026236 




JMP 


RQST3 


YES 


0184 


44213 


015514 




J SB 


WRBUF 


NO, WRITE OLD RECORD TO D 


0185 


44214 




RQS15 


EQu 


* 




0186 


44214 


035644 




ISZ 


RQl 


READ REQUEST? 


0187 


44215 


026241 




JMP 


RQST4 


NO 


0188 


44216 


065650 




LDB 


RQ5 


GET NEGATIVE BUFFER SIZE 


0189 


44217 


103100 




CLF 







0190 


44220 


060362 




LDA 


• ♦3 


GET ADDRESS 


0191 


44221 


040650 




ADA 


ERSCA 


OF DOUBLE WORD ADDRESS 


0192 


44222 


074204 




8TB 


MWORD 


STORE WORD COUNT 


0193 


44223 


065645 




LDB 


RQ3 


GET CorE ADDRESS 


0194 


44224 


045027 




ADB 


BIT15 


AND READ BIT 


0195 


44225 


114201 




JSB 


DISCA,I 


READ 


0196 


44226 


102030 




HLT 


DEATH+30B 


IN 


0197 


44227 


102031 




HLT, 


DEATH+31B 


REQUESTED 


0198 


44230 


060203 




LDA 


MBUSY 


RECORD 


0199 


44231 


002020 




SSA 






0200 


44232 


026230 




JMP 


*-2 




0201 


44233 


002003 




SZA, 


,RSS 


SKIP ON ERROR 


0202 


44234 


026244 




JMP 


RQST5 




0203 


44235 


115154 




JSB 


RERRS+45, 


I GO INDICATE ERROR 


0204 


44236 


035644 


RQST3 


ISZ 


RQl 


WRITE REQUEST? 


0205 


44237 


002001 




RSS 




YES 


0206 


44240 


026311 




JMP 


RQS14 


NO, GO FINISH UP 


0207 


44241 


064355 


RQST4 


LDB 


EOR 


SCRATCH RECORD 


0208 


44242 


175645 




STB 


RQ3, I 


WITH END*OF-RECQRD MARK 


0209 


44243 


026311 




JMP 


RQS14 


60 FINISH UP 


0210 


44244 


065236 


R«ST5 


LDB 


FBAsE 


GET 


0211 


44245 


044370 




ADB 


t+9 


PROTECT 


0212 


44246 


160001 




LDA 


B,I 


MASK 


0213 


44247 


002003 




SZA, 


rRSS 


IS IT ZERO? 


0214 


44250 


026311 




JMP 


RQS14 


YES, SKIP MASKING 


0215 


44251 


071767 




STA 


PMASK 


NO, SAVE MASK 


0216 


44252 


044351 




ADB 


t «6 


ADJUST FBASE TO 


0217 


44253 


075236 




STB 


FBASE 


BUFFER LIMIT POINTER 


0218 


44254 


065645 




LDB 


RQ3 




0219 


44255 


155236 


RQSH 


CPB 


FBASE, I 


DONE ? 


0220 


44256 


026306 




JMP 


RQS13 


YES 


0221 


44257 


160001 




LDA 


1,1 


NO 


0222 


44260 


050355 




CPA 


EOR 


EOR ? 


0223 


44261 


026306 




JMP 


RQS13 




0224 


44262 


050356 




CPA 


EOF 


EOF ? 


0225 


44263 


026306 




JMP 


RQS13 




0226 


44264 


010316 




AND 


M256 




0227 


44265 


050506 




CPA 


B1000 


STRING ? 


0228 


44266 


026271 




JMP 


* + 3 




0229 


44267 


044361 




ADB 


.+2 


SKIP TWO WORDS 


0230 


44270 


026255 




JMP 


RQS11 




0231 


44271 


160001 




LDA 


1,1 


YES 


0232 


44272 


010500 




AND 


B377 




0233 


44273 


040362 




ADA 


, + 3 




0234 


44274 


001100 




ARS 






0235 


44275 


040001 




ADA 


1 




0236 


44276 


071632 




STA 


ATMP 




0237 


44277 


006004 


RQS12 


INB 




MASK 


0238 


44300 


055632 




CPB 


AT MP 
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0239 


44301 


026255 




JMp 


RQSll 


STRING 


0240 


44302 


160001 




LOA 


hi 




0241 


44303 


021767 




XOR 


PMASK 




0242 


44304 


170001 




STA 


lil 




0243 


44305 


026277 




JMP 


RQS12 




0244 


44306 


061236 


RQS13 


IDA 


FBASE 


RESTORE 


0245 


44307 


040354 




ADA 


• -3 




0246 


44310 


071236 




STA 


FBASE 


FBASE 


0247 


44311 




R0S14 


EQU 


* 




0248 


44311 


061647 




LDA 


RQ2 




0249 


44312 


171236 




STA 


FBASE, I 


NEW RECORD INTO 


0250 


44313 


061646 




LDA 


RQ4 




0251 


44314 


007400 




CCB 






0252 


44315 


045236 




AOB 


FBASE 




0253 


44316 


075236 




STB 


FBASE 




0254 


44317 


170001 




STA 


6,1 




0255 


44320 


065236 


RQST9 


LOB 


FBASE 


MOVE POINTER 


0256 


44321 


044364 




ADB 


,♦5 


TO REFERENCE 


0257 


44322 


075236 




STB 


r B A **E 


RECORD POINTER 


0258 


44323 


125506 




JMP 


RQSTR,I 
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0260** 






** 




0261*** STORE ITEM 


IN FILE *** 




0262** 






** 




0263* 












0264* 


UPON 


ENTRY (B) INDICATES WHAT IS TO BE WRITTEN ON THE FILE! 


0265* 


(B) i 


t -1 WRITES AN 


END-OF-FILE 


MARK, (B) « -2 WRITES A TWO- 


0266* 


WOrD 


FLOATING POINT NUMBER, (B] 


1 « -3 WRITES A STRING, IF 


0267* 


THE f 


RECORD CANNOT 


ACCOMMODATE THE QUANTITY, A SERIAL WRITE 


0266* 


WILL 


PLACE IT IN THE FOLLOWING 


RECORD WHILE A RECORD WRITE 


0269* 


WILL 


EXIT TO 


THE ENO-OF-FILE CODE, 


0270* 












0271 


44324 


075653 


#FILS 


STB FILT 


SAVE REQUEST TYPE 


0272 


44325 


065236 




LDB FBASE 


GET 


0273 


44326 


044364 




ADB t +5 


PROTECT 


0274 


44327 


164001 




LOB 1,1 


MASK 


0275 


44330 


075767 




STB PMASK 




0276 


44331 


007400 




CCB 


LOAD 


0277 


44332 


045236 




ADB FBASE 


ACTIyE AND LIMIT 


0278 


44333 
44334 


104200 

100001 




DLD 1,1 


RECORD POINTERS 


0279 


44335 


050001 




CPA 1 


RECORD FULL? 


0280 


44336 


026430 




JMP FILS1 


YES 


0281 


44337 


075652 




STB DADRR 


NOi Save active pointer 


0282 


44340 


035653 




ISZ FILT 


EOF REQUEST? 


0283 


44341 


026352 




JMP FILS2 


NO 


0284 


44342 


003400 




CCA 


YES, OVERLAY PREVIOUS 


0285 


44343 


170001 




STA m 


EOR OR EOF WITH EOF MARK 


0286 


44344 


065236 


FILS7 


LDB FBASE 


MAKE POINTER TO SECOND WORD Of 


0287 


44345 


044347 




ADB ,-8 


FILE TABLE ENTRY, 


0288 


44346 


160001 




LDA B,I 


SET BUFFER 


0289 


44347 


03i027 




IOR BIT15 


DIRTY 


0290 


44350 


170001 




STA 1,1 


BIT, 


0291 


44351 


125510 




JMP FlLST,I 




0292 


44352 


035653 


FILS2 


ISZ FILT 


STRING? 


0293 


44353 


026413 




JMP FILS6 


YES 


0294 


44354 


044361 




ADB ,+2 


NO 


0295 


44355 


003004 


FILS3 


CMA,INA 


COMPARE PROSPECTIVE 


0296 


44356 


040001 




ADA 1 


ACTIVE POINTER WITH 


0297 


44357 


003004 




CMA,INA 


END-OF-RECORD POINTER 


0298 


44360 


002020 




SSA 


OVERFLOW? 


0299 


44361 


026423 




JMP FILS0 


YES 


0300 


44362 


175236 




STB FBASErl 


no, save new a c tive pointer 


0301 


44363 


002003 




SZA,RSS 


RECORD EXACTLY FULL? 


0302 


44364 


026367 




JMP PILS4 


YES 


0303 


44365 


060355 




LDA EOR 


NO, FOLLOW ENTRY SPACE 


0304 


44366 


170001 




STA 1,1 


WITH EOR MARK 


0305 


44367 


035653 


FILS4 


ISZ FILT 


STRING? 


0306 


44370 


026400 




JMP FILS5 


NO 


0307 


44371 


061406 




LDA TNULL 


YES 


0308 


44372 


003000 




CMA 


COMPUTE AND 


0309 


44373 


030506 




IOR B1000 


STORE STRING 


0310 


44374 


171652 




STA DADRR#I 


HEADER WORD 


0311 


44375 


060664 




LDA FSCHA 


TRANSFER 


0312 


44376 


015350 




JS8 TRSTR 


STRING 


0313 


44377 


026344 




JMP FILS7 




0314 


44400 


104200 


FILS5 


DLD S8PTR ? I 


TRANSFER 
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44401 


101572 








0315 


44402 


002003 




SZA,RSS 


ZEROS ARE 


0316 


44403 


026410 




JMP FIl5A 


NOT MASKED 


0317 


44404 


021767 




XOR PMASK 


MASK 


0318 


44405 


101100 




swp 




0319 


44406 


021767 




XOR PMASK 


DATA 


0320 


44407 


101100 




SWP 




0321 


44410 
44411 


104400 
101652 


FIL5A 


DST DADRR,I 


NUMBER 


0322 


44412 


026344 




JMP FILS7 




0323 


44413 


006004 


FILS6 


INB 


COMPUTE 


0324 


44414 


005000 




BLS 


DESTINATION 


0325 


44415 


075272 




STB TEMP5 


ADDRESS 


0326 


44416 


007004 




CMB,INB 


COMPUTE 


0327 


44417 


045406 




ADB TNULL 


RECORD 


0328 


44420 


007004 




CMB,INB 


SPACE 


0329 


44421 


005100 




BRS 


REQUIRED 


0330 


44422 


026355 




JMP FILS3 




0331 


44423 


060355 


FILS0 


LOA EOR 


INSyRE EOR MARK 


0332 


44424 


171652 




STA DADRR,I 


ENDS PRESENT RECORD 


0333 


44425 


060355 




LDA t -2 


RESTORE 


0334 


44426 


041653 




ADA FILT 


REQUEST 


0335 


44427 


071653 




STA FILT 


TYPE 


0336 


44430 


007400 


FILS1 


CCB 




0337 


44431 


055520 




CPB RCRD# 


SERIAL WRITE? 


0338 


44432 


002001 




RSS 


YES 


0339 


44433 


124656 




JMP FDT4A,I 


NO 


0340 


44434 


061234 




LDA FILE* 


REQUEST 


0341 


44435 


003000 




CMA 


RECORD 


0342 


44436 


015506 




JSB RQSTR 


TO WRITE 


0343 


44437 


026325 




JMP #FILS+1 




0344** 






** 




0345*** GET NEXT FILE ITEM TYPE *** 




0346** 






** 




0347* 












0348* 


THE * 


*ext He 


M IN THf- FILE* NUMBE 


R, STRING, END»OF-FILE# 


0349* 


E N D-( 


}F~rECoR 


0, IS 


IDENTIFIED AnD 


UPON EXIT (A) *1,2,3, 


0350* 


RESPECTIVELY 


9 EORFL ■ -1 WILL IGNORE END«OF. RECORD 1 3 AN 


0351* 


Return with 


THE FIRST OF THE OTheR ITeMS ENCOUNTERED 


0352* 












0353 


44440 


061234 


GTTY1 


LDA FILE* 


REQUEST 


0354 


44441 


015506 




JSB RQSTR 


NEXT RECORD 


0355 


44442 


007400 


#GTTY 


CCB 


LOAD ACTIVE 


0356 


44443 


045236 




ADB FBASE 


AND LIMIT 


03&7 


44444 
44445 


104200 

100001 




DLD 1#I 


RECORD POINTERS 


0358 


44446 


050001 




CPA 1 


PHYSICAL END OF RECORD? 


0359 


44447 


026463 




JMP GTTY3 


YES 


0360 


44450 


160001 




LDA 1,1 


NO, LOAD WORD 


0361 


44451 


006404 




CLB,INB 


OF RECORD 


0362 


44452 


050355 




CPA EOR 


END*QF*RECORD? 


0363 


44453 


026463 




JMP GTTY3 


YES 


0364 


'44454 


050356 




CPA EOF 


NO* EnD«OF«FilE? 


0365 


44455 


026501 




JMP GTTY4 


YES 


0366 


44456 


010316 




AND M256 


NO 


0367 


44457 


050506 




CPA B1000 


STRING? 



OR 
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0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 

Q ,345,3 
0384 
0385 
0386 
0387 
0388 
0389 

0390** 

0391** 

0392** 

0393* 

0394* 

0395* 

0396* 

0397* 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 



44460 
44461 
44462 
44463 
44464 
44465 
44466 
44467 
44470 
44471 
44472 
44473 
44474 
44475 
44475 
44476 
44477 
44500 
44501 
44502 
44503 
44504 



006004 
060001 
125512 
065236 
044352 
160001 
051027 
026475 
044356 

160001 
044361 
150001 
026603 

007400 
055651 
026440 
064361 
044361 
026461 
060362 
125512 



INB 
GTTY2 LDA 

JMP 
6TTY3 LOB 

ADB 

LDA 

CPA 
JMP 

ADB 
IDA 
ADB 
CPA 
JMP 

GTTY6 EQU 
CCB 
CPB 
JMP 
LDB 

STTY4 ADB 
JMP 

GTTY5 IDA 
JMP 



* WRITE BUFFER TO DISC 



1 

6TTYP,I 

FBASE 

• -8 

B,I 

BIT15 

6TTY6 

• -i 

B,I 

t+ 2 
B f X 
GTTY5 



EORFL 

6TTY1 

t *2 

,+2 

GTTY2 

,♦3 

GTTYP,! 

** 
*** 

** 



YES, (B> « 2 
SET (A) * (B) 

PHYSICAL 
NULL RECORD 

IN CORE? 
YES, SKIP COMPARE 
NO, PHYSICAL 
END 
OF 

FILE? 
YES 

NO 

EOR»S WANTED? 

NO 

YES f SET (B) i 4 

(B) « (B) 4 2 

(A) « 3 



THE BUFFER OF THAT FILE CURREN 
WRITTEN TO ITS PLaCE ON THE DI 
WRITTEN INTO jHt BuFFER, 



TLy REFERENCED By FBASE IS 
Sc# UNLESS NOTHING HaS BEEN 



44505 
44506 
44507 
44510 
44511 
44512 
44513 
44514 
44515 
44516 
44517 
44520 
44521 
44522 
44523 
44524 
44525 
44526 
44527 
44530 
44531 
44532 
44533 
44534 
44535 
44536 



065236 
044353 

160001 
001600 
002141 
125514 
001500 
170001 
044362 
16B001 
051027 
125514 
044371 
160001 
002003 
026566 
071767 
044351 
075236 
065645 
155236 
026562 
160001 
050355 
026562 
050356 



#WRgu ldb 

ADB 
LDA 
ELA 
SEZ 
JMP 
ERA 
STA 
ADB 
LDA 
CPA 
JMP 
ADB 
LDA 
SZA 
JMP 
STA 
ADB 
STB 
LDB 
WRBU4 CPB 
JMP 
LDA 
CPA 
JMP 
CPA 



FBA^E 
g »4 

B,I 

,CLE,RSS 
WRBUF, I 

8,1 
t *3 
B,I 
BIT15 
WRBUF, I 
, + 10 
B,I 
,RSS 
WRBU7 
PMASK 
t »6 
FBASE 
RQ3 

FBASE, I 
WRBU6 

1,1 
EOR 
WRBU6 
EOF 



LOaD second 

WORD FROM 
FILE TABLE 

ENTRy (RECORD LENGTH) 
HAS BI T 15 BEEN SEt? 
NO 

YES, CLEAR IT 
STORE IT BACK 
GET HIGH CURRENT 

RECORD ADDRESS 
NULL RECORD? 

YES, DON'T WRITE RECORD OUT 
GET 

PROTECT MASK 
IS IT ZERO? 

YES, SKIP STRING MASKING 
NO, SAVE MASK 
ADJUST FBASE TO 

BUFFER LIMIT POINTER 

DONE ? 

NO 
EOR ? 

EOF t 
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0424 

0425 
0426 

042/ 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
043/ 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 

0452 
0453 
0454 
0455 
0456 
0457 
0458 
04$9 
0460 
0461 
0462 

0463 

0464 

0465 

0466 

0467** 

0468** 

0469** 

0470* 

0471* 

0472* 

0473* 

0474* 

0475* 

0476 

0477 

0478 

0479 



44537 

44540 
44541 
44542 
44543 
44544 
44545 
44546 
44547 
44550 
44551 
44552 
44553 
44554 
44555 
44556 
44557 
44560 
44561 
44562 
44563 
44564 
44565 
44566 
44567 
44 5 ;0 
44571 
44572 
44573 
44574 
44575 
44576 
44577 
44^00 

44601 
44 6 02 
44603 
44604 
44605 
44606 
44607 
44610 
44611 



026562 
010316 
050506 
026545 
044361 
026531 
160001 
010500 
040362 
001100 
040001 
071632 
006004 
055632 
026531 
160001 
021767 
170001 
026553 
065236 
044354 
075236 
044370 
044342 
160001 
030215 
170001 
001423 
003004 
103100 
070204 
065645 
003400 
041236 
114201 
102030 

102031 
060203 
002020 
026604 
002003 
125514 
115155 



* TRANSFER 



JMP 
AND 
CPA 
JMP 
ADB 
JMP 
IDA 
AND 
ADA 
ARS 
ADA 
STA 
WRBU5 IN8 
CPB 
JMP 
IDA 

XOR 
STA 

JMP 
WRBU6 LDB 
ADB 
STB 
ADB 
WR0U7 ADB 
LDA 
IOR 
STA 
AlR, 
CMA, 
CLF 
STA 
LDB 
CCA 
ADA 
JSB 
HLT 
HLT 
LDA 
8SA 
JHP 
8ZA, 
JMP 
JSB 
* 
A STRING ** 
* 



WRBU6 
M256 
B1000 
**3 

.♦2 
WRBU4 

1,1 
B377 

1 

atmp 

ATMP 

WRBU4 

1,1 

pmask 
1,1 

WR6U5 
FBAsE 
»*3 
FBASE 

.♦* 
,•13 

BIT14 

B,I 

RAr 

INA 



MWORD 

RQ3 

FBASE 

DI8CA,I 

OEATH+30B 

DEATH+318 

HBUSY 

*-2 
RSS 

WRByF,I 
RERR8*46,I 

* 
* 
* 



STRING ? 

SKIP TWO WORDS 

YES 



»> PMASK WORD 

■> WORDS/RECORD WORD 

SET FILE 

DIRTY BIT 
CLEAR DIRTY BITS AND 

GET NEG, R£C. LENGTH 

WRITE 
RECORD 
TO 
DISC 



SKIP ON ERROR 
60 INDICATE ERROR 



THE NUMBER 
COMPLEMENT) 
A DESTINATI 
ADDRESSED B 

44612 071402 

44613 035406 

44614 002001 

44615 125350 



OF CHARACTERS SPECIFIED BY TNULL CIN l'S 

IS TRANSFERRED pRQM ThE SOURCE STRING TO 
ON STRING BEGINNING WITH THE CHARACTER 
Y TEMP5, 



#TRST STa TRFCH 

ISZ TNULL 
RSS 

JMP TRSTR,I 



SAVE SUBROUTINE CAtt 
MORE TRANSFER STRING* 
YES 
NO 
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0480 


44616 


115402 


JSB TKFCH,i 


FETCH A SOURCE CHARACTER 


0481 


44617 


060417 


tOA ,+408 


NONE LEFT, LOAD A BLANK 


0482 


44620 


071404 


STA TRS0 


SAVE IT 


0483 


44621 


065272 


LDB TEMP5 


LOAD 


0484 


44622 


004065 


CLE,ERB 


DESTINATION 


0485 


44623 


160001 


LDA 1,1 


WORD 


0486 


44624 


002041 


S£Z,RSS 


SAVE 


0487 


44625 


001727 


A L F,A L F 


OTHER 


0488 


44626 


010316 


AND M256 


CHARACTER 


0489 


44627 


031404 


IOR TRS0 


COMBINE WITH 


0490 


44630 


002041 


SEZ,RSS 


NEW CHARACTER 


0491 


44631 


001727 


ALF,ALF 


AND STORE 


0492 


44 6 32 


170001 


3 1 A 1# 1 


unnn 

nunu 


0493 


44633 


035272 


IS2 TEMP5 


increment destination ad 


0494 


4 4 63 4 


026613 


JMP #TRST+1 





PAGE 0167 #13 ARITHMETIC SUBROUTINES 



0496* 
0497* 

0498* 
0499 

0500 

0b01 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509* 

0510* 

0511* 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522* 

0523* 

0524* 

0525* 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540* 

0541* 

0542* 

0543* 

0544 

05«5 

0546 

0547 

0548 

0549 

0550 

0551 



** 

* 
44635 
44636 
44637 
44640 
44641 

44642 
44643 

44644 
44645 
44646 

** Sjj 

44647 
44650 
44651 
44652 
44653 
44654 
44655 
44656 
44657 
44660 

** Dt 
** ME 

4466 1 
44662 
44663 
44664 
44665 
44666 
44667 
44667 
44670 
44671 
44672 
44672 
44673 
44674 

** MuL 

44675 
44676 
44677 
44700 
44701 
44702 
44703 
44704 



ADD TWO FLOATING POINT NUMBERS 

071616 #FaD STa Al 
161402 LDA .FAD, I 

071617 STA A2 
061616 LDA Al 
105000 OCT 105000 
101617 DEF A2,I 
035402 ISZ .FAD 
102201 SOC 
015346 jSB OUCHk 
125402 JMP .PAD,! 



SET POINTER TO 2ND ARGUMENT. 

CALL HARDWARE ROUTINE, 

SET RETURN ADDRESS, 

OVERFLOW OR UNDERFLOW! 
RETURN. 



8TRACT TwO FLOATING POINT NgMBERS 

SET POINTER TO 2ND ARGUMENT, 



071616 
161404 
071617 
061616 

105020 
101617 
035404 
102201 
015346 
125404 

TERMINE 
SSAGE H 

071616 
075617 
002002 
026672 
015474 
115207 

061616 
065617 
125346 

015474 
115206 
026667 



#FSB STA Al 

L DA .fsb,i 

LDA Al 

OCT 105020 

DEF A2,I 

ISZ ,FSB 

SOC 

jSB OUCHk 

JMP ,FSB,I 



CALL HARDWARE ROUTINE, 
SET RETURN ADDRESS, 

OVERFLOW OR UNDERFLOW! 
RETURN, 



S IF OVERFLOW OR UNDERFLOW 
AS TO BE GIVEN. 



#OUCK STA Al 

STB A2 
SzA 

JMP OUCK2 

JSB CHOUF 

JSB WERRS+6,1 

OuCKl EQu * 

LDA Ai 

LDB A2 

JMP OUCHK, I 

0UCK2 EQu * 

jSB CHOUF 

JSB WERRS*5,I 

JMP OUCK1 



SAVE REGISTERS. 
OVER* OR UNDERFLOW? 
UNDERFLOW! CHECK STATUS, 

REINSTATE REGISTERS, 

RETURN. 

OVERFLOW! CHECK STATUS, 



tIPly two floating point numbers 



** 

*** 

•* 



71616 #FMP STA Al 
161406 LDA .FMP,I 

071617 S tA A2 
061616 IDA Al 
105040 OCT 105040 
101617 DEF A2,I 
035406 ISZ ,FMP 
102201 SOC 



SET POINTER TO 2ND ARGUMENT 

CALL HARDWARE ROUTINE, 
SET RETURN ADDRESS, 
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0552 

0553 

0554* 

0555* 

0556* 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567* 

0568* 

0569* 

0570* 

0571* 

0572* 
0573* 
0574 

0575 

0576 

0577 

0578 

0579 

0580* 

0581* 

0582* 

0583* 

0584* 

0585* 
0586* 
0587 

0588 
0589 
0590 
0591 
0592 
0593 



44705 
44706 

* 
** 



015346 
125406 



JSB 
JMP 



OUCHK 
,FMP,I 



OVERFLOW 
RETURN, 



OR UNDERFLQWl 



DIVIDE TWO FLOATING POINT NUMBERS 



44707 
44710 
44711 
44712 
44713 

44714 
44715 
44716 
44717 
44720 



071616 
161410 
071617 
061616 
105060 
101617 
035410 

102201 
015346 
125410 



#FDV 



STA 

LOA 
STA 

LOA 
OCT 
DEF 
ISZ 
SOC 
JSB 
JMP 



Al 

,FDV,I 

A2 

Al 

105060 

A2,I 
.FDV 



*• 



TAKE ARITHMETIC 



OUC+^K 
.FDV, I 
** 

INVERSE *** 
** 



SET POINTER TO 2ND ARGUMENT 

CALL HARDWARE ROUTINE, 

SET RETURN ADDRESS, 

OVERFLOW OR UNDERFLOW J 
RETURN, 



ENTER WITH A FLOATING POINT NyMBER IN (A) ABD (8), 
EXIT WITH ITS ARITHMETIC INVERSE IN (A) AND (B), 



44721 104400 

44722 001620 

44723 002400 

44724 006400 

44725 105020 

44726 001620 

44727 125370 
* 

** UNPACK LO| 



ENTER WITH LOW MQRD OF FLOATING POINT NUMBER IN (B), 

EXIT WITH EXPONENT IN (A) AND MANTISSA IN (B). 

44730 002400 #FLUN CLA EXTRACT 

44731 101050 LSR 8 EXPONENT 

44732 001727 ALF,ALF IN (A) AND 

44733 005727 BLF,BLF MANTISSA IN (B) 

44734 000033 SLA,RAR NEGATIVE EXPONENT? 

44735 032000 iOR SMSK YES, FiLL IN LEADING BiTS 

44736 125412 JMP .FLUN,I NO 



#ARIN DST Cl 


STORE NUMBER, 


CLA 


A«0, 


CLB 


B*0, 


OCT 105020 


CALL SUBTRACT HARDWARE ROUTINE 


DEF Cl 




JMP ARINV,I 




** 




WORD OF NyMBER *** 




** 
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0002* 
0003* 
0004* 
0005* 
0006* 

0007* 
0008* 

0009* 
0010* 

0011* 
0012* 

0013* 

0014* 

0015** 

0016** 

0017** 

0018* 

0019* 

0020* 

0021* 
0022* 

0023* 
0024* 

0025* 

0026* 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036* 

0037** 

0038* 

0039 

0040 
0041 

0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
00^0 
0051 
0052 
0053 
0054 
0055 
0056 
005/ 



ALL STATEMENTS 
INTO A SINGLE 
ARE NOT 



WHILE READING A PrOGrAM IN 'TAPE' MODE, ERRONEOUS STATEMENTS 
ARE REPLACED WITH ERROR PSUEDO-STaTEMENTS. THESE ARE THREE 

word 'statements' * the statement number, the length (always 

3), AND THE ErrOr NUMBER. SINCE BITS 15-9 ArE CLEAR IN WORD 
THREE, ERRORS HAVE A STATEMENT TYPE OF r ERRCT HOLDS A 

Count oe the embedded errors and the user's bit of terr is 

SET IF ANY EMBEDDED ERRORS EXIST. ADDITIONALLY, THE 'OUT.OF* 
STORAGE' Error SETS SYMT6 « 1 To ASSIST SYNTAX, 

with a sequence number of zero will be collapsed 
error and unoer/overPlows in numerical constants 
reported, 

** 
OUTPUT TAPE MODE ERRORS *** 

** 

UPON ENTRy ALL EMBEDDED ERRORS ARE STRIPPED FROM THE PROGRAM 
AND STORED BELOW IT AS TWO-WQRD QUANTITIES (THE LENGTH WORD 
IS DROPPED). FOLLOWING THIS THE ErrOrs ArE PrINTED ONE BY 
ONE WITH LINE NUMBERS. AfTeR PRINTING ALL ERRORS (OR, IF THE 
USER ABORTS THE ERROR PRINTING, AFTER THE USER TYPES THE NEXT 
LINE) EVERYTHING IS CLEANED UP AND A MESSAGE PRINTED TO SaY 
THE LAST RECEIVED INpUT HAS BEEN IGNORED, 



44737 002400 TAPER CLA 

44740 051574 CPA ErrCt 

44741 027054 JMP TAPE5 

44 7 42 07l5 7 3 STA SYMTB 

44743 060056 LDA PBPTR 

44744 071230 STA SPTR 

44745 064726 LOB PBUFF 

44746 075512 STB DEST 

44747 075510 STB SOURC 



STRIP OUT EMBEDDED ErrOrs 



* 
** 

* 



44750 006004 TApEl InB 

44751 060001 LDA 1 

44 7 52 144001 ADB 1,1 

44753 044356 ADB ,-i 

44754 002004 INA 

44755 160000 IDA 0,1 

44756 010570 AND OPMSK 

44757 002002 SzA 

44760 026750 JMP TAPEl 

44761 061510 LDA SOURc 

44762 075510 STB SOURC 

44763 044354 ADB ,-*3 

44764 050001 CPA 1 

44765 026771 JMP TAPE2 

44766 051512 cPA DEST 

44767 027065 JMP TAPE6 

44770 015476 J$B MOvER 

44771 064056 TAPE? LDB PbPTR 

44772 075475 STB TAP0 



FIRST 

ENTRY? 
NO 

YES, RESET 'OUT OF STORAGE 1 FLAG 
INITIALIZE 

PROGRAM 

POINTERS 



SET (B) 
TO FIRST WORD 
OF NEXT 

PROGRAM STATEMENT 
IS THE 

CURRENT STATEMENT 
OF TYPE 
1ERROR1 ? 
NO 

YES, LOAD SOURCE ADDRESS 
SET SOURCE TO NEW VALUE 
JUXTAPOSED 

ERRORS? 
YES, NO MOVE NEEDED 
NO, FIRST ERROR ENCOUNTERED? 
YES 

NO, DELETE PRIOR ERROR(s) 
ENOUGH, 
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0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 

mil 

0078 

0079 

0080 

0081 

0082* 

0083** 

0084* 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 
0097 
0098 
0099 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 



44773 
44774 
44775 
44776 
44777 

45000 
45001 
45002 
45003 
45004 
45005 
45006 
45007 
45010 
45011 
45012 
45013 
45014 
45015 
45016 
45017 
45020 
45021 
45022 



006004 
054716 
027070 
006004 
054716 

027070 
074056 
164000 
175476 
035476 
040361 
164000 
175476 
065510 
003400 
041574 
071574 
002002 
026750 
055230 
027023 
061510 

065230 
015476 



INB 
CPB 
JMP 
INB 
CPB 
JMP 
STB 
LDB 
STB 
ISZ 
ADA 
LOB 
STB 
LDB 
CCA 
ADA 
STA 

SZA 

JMP 

CPB 
JMP 
LDA 

ldb 

JSB 



OUTPUT ERROR MESSAGES 



45023 
45024 
45025 
45026 
45027 
45030 

45031 
45032 
45033 
45034 
45035 
45036 
45037 

45040 
45041 

45042 
45043 
45044 
45045 
45046 
45047 
45050 
45051 
45052 
45053 
45054 

45055 
45056 
45057 



063042 
071472 
062004 
042003 
003004 
071440 
007400 
075442 
165230 
075566 

035230 
161230 
071430 
006400 
027200 
045043 
062003 
003004 
041440 
071440 
035230 
P61230 
050056 
002001 
027031 
061512 
070056 
103100 
060360 



TAPE3 1 DA 
STA 
LDA 
ADA 
CMA, 

g jA 

TAPE4 CCB 
STB 
LDB 
STB 
ISZ 
LDA 
STA 

CLB 

Jmp 
retad def 

LDA 
CMA, 
ADA 
STA 
ISZ 
LDA 
CPA 
RSS 
JMP 
TAPES LDA 
STA 
CLP 
LDA 



LWAUS 
TAPE7 

LWAUS 

TAPE7 

PBPTR 

0,1 

TAP0,I 

TAP0 

• ♦2 
0,1 

TAP0,I 
SOURC 

ERRCT 
ERRCT 

TAPE1 

SPTR 

TAPE3 

SOURC 

SPTR 

MOVER 

* 
** 

• 
RETAD 
SErr 
WERRA 
FERRA 
INA 
LT5 

LT6 

SPTR, I 
t LNuM 

SPTR 

S?TR,I 

L.T3 

SERRl+3 

* + l 
FERRA 
INA 
LT5 
LT5 
SPTR 
SPTR 
PBPTR 

TAPE4 

DEST 

PBPTR 


TERR 



USER SPACE 

TO TRANSFER 

ERROR? 
NO 

YES, APPEND TWO WORDS 
TRANSFER 

LINE NUMBER 

TRANSFER 
ERROR 
NUMBER 
RETRIEVE POINTER TO STATEMENT 
DECREMENT 
ERROR 
COUNTER 
ALL ERRORS DELETED? 
NO 

YES, PROGRAM REMAINING? 
NO 

YES, SLIDE UP 
OVER LAST 
ERROR(S) 



SET 

RETURN ADDRESS 
FAKE 

(WARNING ONLY* 
ERROR MODE 
FORCE 

LINE NUMBER 
MAKE LINE NUMBER OF 

CURRENT ErrOr ACCESSIBLE 
LOAD 

ErrOr NUMBER 

EXIT TO 

ERROR PRINTER 

RESTORE 
f WARNING 

ONLY 1 
MODE 
MORE 

ERRORS? 
NO 
YES 
CORRECT POINTER TO 

LAST WORD *1 OF PROGRAM 

YJRN 
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0114 

0115 

0116 

0117 

0118 

0119* 

0120 

0121 

0122 

0123 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 

01 3 7 

0138 

0139 

0140 

0141** 

0142** 

0143** 

0144* 

0145* 

01 46* 

0147* 

0U8* 

0U9 

0150 

01S1 

0152 

0153 

0154 

0155 

0156 



45060 003000 

45061 110255 
45pi62 170255 

45063 102100 

45064 115140 



4506b 
45066 
45067 
45070 
45071 
45072 
45073 

45074 
45075 
4507ft 
45077 
45100 
45101 
45102 
45103 
45104 

45105 
45106 
45107 
45110 
45111 



075512 
060001 
026771 
071472 
003004 
041512 
071476 
041230 
071230 
065510 
045476 
075510 
061472 
064056 
015476 
065512 
074056 

061510 
040354 
071512 
026772 



CMA 
AND 
STA 
STF 
JS8 

TAPE6 STB 
LOA 

JMP 
TAre7 STA 

CMA, 

ADA 

STA 

ADA 

STA 

LDB 

ADB 

STB 

LOA 

LDB 

JSB 

L DB 

STB 

LOA 

ADA 

STA 

JMP 



* m ve block to Lower c 



MAIN, I 
MAIN, I 


RERRS+33,1 

DEST 
1 

TAPE2 
TApl 

INA 

DEST 

TAP0 

SPTR 

SPTR 

SOURC 

TAP0 

SOURC 

TAP! 

PBPTR 

MOVER 

DEST 

PBPTR 

SOURC 

»**3 

DEST 

TAP£2+1 
** 

ORt *** 
** 



ERROR 

flag 

OFF 
EMIT PARTING SHOT 

SET DESTINATION POINTER 

TO FIRST ERROR ENCOUNTERED 

SAVE SOURCE ADDRESS 
COMPUTE SIZE OF AREA 

TO BE RECLAIMED 
AND SAVE IT 
RESET POINTER TO 

LAST WORD +1 OF PROGRAM 
SET POINTER TO 

NEXT STATEMENT 
TO NEW VALUE 
RETRIEVE SOURCE ADDRESS 
RECLAIM 

SPACE 
SET NEW POINTER TO 

PROTECTED AREA 
COMPUTE POINTER TO 

CURRENT ERROR STATEMENT 
SET NE W DESTINATION POINTER 



UPON ENtRy 
(A) POINTS 

first word 



(B) POTN TS T jHE LA sT WORD +1 T° BE MOvED AND 
TO THE FIRST WORD TO BE MOVED, DEST POINTS TO 
OF THE DESTINATION SPACE, 



THE 



45112 075741 *MOVE STB ETEMP SAVE POINTER TO LAST WORD ♦ 

45iii 164000 LDB 0,1 TRANSFER 

45U4 175512 STB DEST, I WORD 

45115 035512 ISZ DEST BUMP 

45116 002004 INA POINTERS 

45117 051741 CPA ETEMP DONE? 
4512« 125476 J^P MOVER,I YES 
45121 027113 JMP #MOVE+i NO 
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0158** 

0159** 

0160** 

0161* 

0162* 

0163* 

0164* 

0165* 

0166* 

016;* 

0168* 
0169* 
0170* 
0171* 

0172* 

0173* 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 

0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
02^6 
0207 
0208 
0209 
0210 
0211 
0212 
0213 



** 



* OUTPUT AN ERROR MESSAGE *** 



THE ERROR 13 IDENTI 
JUMP TABLE. IF THE 
•TAPE' MODE, T H E F R 
STATEMENT FOR LATfR 
AS APPROPRIATE, OT 
MESSAGE IS READ INT 
MESSAGE IS PLACED I 
ERROR IS IDENTIFY 
REQUESTED, THE ERR 
THAN A SIMPLE CARRI 
MESSAGE IS POSITIVE 



** 

FIED VIA THE 

ERROR IS A S 
ROR Is EMBEDD 

PRINTOUT AND 
HERWISE, THE 
CORE (IF IT 
N A USER BUFF 

IN THE 'KEY' 
OR MESSAGE IS 
AGE RETURN. 

THE CURRENT 



45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 

^5 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 

45 
45 
45 
45 
45 
45 
45 
45 
45 



122 
123 
124 
125 
126 
127 
130 

131 
132 
133 
134 

135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
163 
164 
165 
166 
167 
170 
171 



003400 
041472 
160000 
042001 
010504 
071430 
042002 
071440 
042003 
042004 
002021 
027154 
060255 
002004 
050253 
002001 
027154 
063454 

071426 
006400 
075274 
074253 
060351 
015460 
060243 
114736 
061440 
002021 
027175 
060367 
110255 
002002 
027414 
006400 
075274 
063442 
071426 
060354 
015460 
060225 



#SERR CCA 
ADA 
LDA 
ADA 
AND 
STA 
ADA 
STA 
ADA 
ADA 
SSA, 
JMP 

LDA 

INA 

CPA 
RSS 
JMP 
LDA 
STA 
CLB 
STB 

STB 
LDA 
JSB 
LDA 
JSB 

SERR0 LDA 
SSA, 
JMP 
LDA 
AND 
S2A 
JMP 
CLB 
STB 
LDA 
STA 
LDA 
JSB 
LDA 



SERR 

0, 1 

SERRA 

B777 

LT3 

RERRA 

LT5 

FERRA 

WERRA 
RSS 
SERR0 
MAIN 

PRIST 

SERR0 
SLPMS 
LT1 

LT2 
PRIST 

• m ^ 
OUTST 
LPD 

S14SC,I 
LT5 
RSS 
SERR1 

TAPEF 
MAIN, I 

SERR6 

LT2 

ASCER 

LTl 

• "3 

outSt 

IWT 



RELATIVE JUMP THROUGH THE ERROR 
YNTAX TYPE AND THE USER IS IN 
ED IN T HE PROGRAM A$ A PsEuDO- 

THE ERROR FLAGS ARE ApJU8TED 
DISC BLOCK CONTAINING THE ERROR 

IS NOT ALREADY THERE) AND THE 
ER FOR PRINTOUT, IF A SyNTAx 

MODE* 'ERROR 1 IS PRINTED ANp INP 

PRINTED IF THE REPLY IS OTHER 
IF THE LENGTH WORD OF THE ERROR 
LINE NUMBER IS APPENDED, 

COMPUTE 
AND SAVE 

ERROR NUMBER 



WARNING 

ERROR? 
YES 

does this 
user have 
the lp? 

NO 
YES 

OUTPUT 
MESSAGE 
TO USER 

tell i/o processor 
to remove user 

SYNTAX 

error? 

NO 

YES 

TAPE 

MODE? 
YES 
NO 

OUTPUT 
•ERROR' 
AND 
WAIT 
FOR 
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0214 


45172 


114742 




JSB 


SCHiN,i 


INPUT, 


0215 


45173 


015446 




JSB 


GETCR 


CARRIAGE RETURN ONLY? 


0216 


45174 


027305 




JMP 


SERR4 


YES 


0217* 








* 






02i8#* print the message 


** 






0219* 








* 






0220 


45175 


061430 


SERR1 


LDA 


LT3 




0221 


45176 


006400 




CLB 




CLEAR ILINE 


0222 


45177 


075442 




STB 


LT6 


number* flag 


0223 


45200 


066005 




LDB 


DSERR 


CALCULATE 


0224 


45201 


040450 


SERA 


ADA 


M32 


ON NEXT BLOCK 


0225 


45202 


002020 




SSA 






0226 


45203 


027207 




JMP 


SERiA 




0227 


45204 


044361 




AOB 


.♦2 




0226 


45205 


071430 




STA 


LT3 


THE 


0229 


45206 


027201 




JMP 


SERA 


NOT FOUND YET 


0230 


45207 


054256 


SERlA 


CPB 


LIB 


IS MESSAGE IN CORE? 


0231 


45210 


027221 




JMP 


SERlB 


YES 


0232 


4521 1 


074256 




STB 


L Id 




0233 


45212 


060001 




LPA 


B 


Fix DISC ADDRESS POINTER 


0234 


45213 


064315 




LOB 


M512 


STORE NUMBER 


0235 


45214 


074204 




STB 


MWORD 


OF WORDS 


0236 


4521b 


064606 




LOB 


#LIB# 


fix core address pointer 


0237 


45216 


045027 




ADB 


MNEG 


AND »READ» INDICATOR 


0238 


45217 


114206 




JSB 


DISCZ, I 


READ ERROR MESSAGE INTO CORE 


0239 


45220 


114207 




JSB 


SICKP,I 


BAD LUCK 


0240 


45221 


061430 


SER1B 


LDA 


LT3 


LOAD 


0241 


45222 
45223 


100200 
000377 




MPy 


.♦16 




0242 


45224 


040606 




AOA 


#LIB# 


ERROR MESSAGE 


0243 


45225 


065512 




LDB 


DEsT 


3 ?% V *^ 


0244 


45226 


075742 




STB 


ETMP1 


DEST 


0245 


45227 


064650 




LDB 


ERSCA 




0246 


45230 


075512 




STB 


DEST 


INTO 


0247 


45231 


064000 




LDB 


A 




0248 


45232 


044377 




ADB 


. + 16 


OUTPUT 


0249 


45233 


015476 




JSB 


MqVEr 


buffer 


0250 


45234 


065742 




ldb 


ETMP1 


RESTORE 


0251 


45235 


075512 




STB 


DEST 


DEST 


0252 


45236 


061440 




LDA 


LT5 




0253 


45237 


002021 




SSA, 


,RSS 


execution error? 


0254 


45240 


027360 




JMP 


SERR5 


yes 


0255 


45241 


002400 




CLA 




NO, output 


0256 


45242 


015452 




JSB 


OUTCR 


A NULL* 


0257 


45243 


060350 




LDA 


.-7 




0258 


45244 


071426 




STA 


LT1 


OUTPUT 


0259 


45245 


060417 




LDA 


,+408 




0260 


45246 


015452 




JSB 


OUTCR 


7 


0261 


45247 


035426 




ISZ 


LT1 




0262 


45250 


027245 




JMP 


*<*3 


BLANKS, 


0263 


45251 


060650 


SERR2 


LDA 


ERSCA 


STORE MESSAGE 


0264 


45252 


071426 




STA 


LT1 


ADDRESS 


0265 


45253 


m?4m 




CCB 






0266 


45254 


160000 




LDA 


0,1 




0267 


45255 


002020 




SSA 




LINE NUMBER? 


0268 


45256 


027261 




JMP 


* + 3 


NO 
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0269 


45257 


075442 


STB 


LT6 


yes, set Flag 


0270 


45260 


003004 


CMA, 


,INA 




0271 


45261 


006400 


CLB 




OUTPUT 


0272 


45262 


075274 


STB 


LT2 


error 


0273 


45263 


015460 


J SB 


OUTST 


MESSAGE 


0274 


45264 


035442 


ISZ 


LT6 


LINE NUMBER FLAG SET? 


0275 


45265 


027275 


JMP 


SERR3 


NO 


0276 


45266 


063446 


LDA 


LXNEA 


YES 


0277 


45267 


071426 


STA 


LT1 


PRINT 


0278 


45270 


006400 


CLB 






0279 


45271 


060352 


IDA 


,*5 


« IN LINE « 


0280 


45272 


015460 


JSB 


OUTST 




0281 


45273 


065566 


LOB 


,LNUM 


OUTPUT 


0282 


45274 


015454 


JSB 


OUTIN 


LINE NUMBER 


0283 


45275 


061440 


sErr3 LDA 


LT5 


»BAD 


0284 


45276 


042003 


ADA 


FERRA 




0285 


45277 


071440 


STA 


LT5 




0286 


4g300 


042004 


ADA 


WERRA 


INPUT 1 


0287 


45301 


002003 


S£A ( 


,RSS 


ERROR 


0288 


45302 


027316 


JMP 


SERR8 


YES 


0289 


45303 


060374 


LDA 


.♦15B 


OUTPUT 


0290 


45304 


015452 


JSB 


OUTCR 


CARRIAGE RETURN 


0291 


45305 


060371 


SERR4 LDA 


.♦128 


OUTPUT 


0292 


453 6 


015452 


JSB 


OUTCR 


LINE FEED 


0293 


45307 


061440 


LDA 


LT5 


RUN 


0294 


45310 


002020 


SSA 




ERROR? 


0295 


45311 


027347 


JMP 


SER13 


YES 


0296 


45312 


042004 


ADA 


WERRA 


NO, WARNING 


0297 


45313 


002020 


SSA 




ONLY? 


0298 


45314 


027320 


JMP 


SERR9 


NO* FORMAT ERROR 


0299 


45315 


002400 


CLA 




YES 


0300 


45316 


071570 


SERRS STA 


CHrCT 




0301 


45317 


125472 


JMP 


SERRfX 




0302 


45320 


006400 


SERR9 CLB 






0303 


45321 


061757 


LDA 


IFSTR 


CONVERT 


0304 


45322 


101101 


RRR 


1 


CHARACTER 


03^5 


45323 


07 1426 


STA 


LT1 


SAVE POINTER 


0306 


45324 


061760 


LDA 


NCH 


SAVE 


0307 


45325 


003004 


CMA, 


rINA 


NUMBER OF 


0308 


45326 


071760 


STA 


NCH 


CHARACTERS 


0309 


45327 


006002 


SZB 




StARt WITH RIGHT BYT^? 


0310 


45330 


027340 


JMP 


SER11 


YES 


0311 


4 5 331 




SER10 EQU 


* 




0312 


45331 


161426 


LDA 


LTi,I 


FETCH 


0313 


45332 


001727 


ALF ( 


,ALF 


LEFT 


0314 


45333 


010500 


AND 


B377 


CHAR 


0315 


45334 


015452 


JSB 


OUTCR 


OUTPUT IT 


0316 


45335 


035760 


ISZ 


NCH 


FINISHED ALL CHArs? 


0317 


45336 


002001 


RSS 




NO 


0318 


45337 


027346 


JMP 


SER12 


YES 


0319 


45340 




SER11 EQU 


* 




0320 


45340 


161426 


LDA 


LT1,I 


FETCH RIGHT 


0321 


45341 


010500 


AND 


B377 


CHARACTER 


0322 


45342 


015452 


JSB 


OUTCR 


OUTPUT IT 


0323 


45343 


035426 


ISZ 


LT1 


BUMP POINTER 


0324 


45344 


035760 


ISZ 


NCH 


FINISHED ALL CHARS? 
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0325 


45345 


027331 


JMP 


SER10 


NO 


0326 


45346 




SER12 EQU 


* 




0327 


45346 


015534 


JSB 


OUTCL 


OUTPUT CR*LE 


032« 


45347 




SER13 EQU 


* 




0329 


45347 


103100 


CLF 







0330 


45350 


160255 


LOA 


MAIN, I 


DISALLOW 


0331 


45351 


030377 


IOR 


UNABT 




0332 


45352 


170255 


STA 


MAIN, I 


ABORTS 


0333 


45353 


102100 


STF 







0334 


45354 


061500 


IDA 


FCNTR 




0335 


45355 


071550 


STA 


FRMAT 




0336 


45356 


015556 


JSB 


LCDLP 


UPDATE LAST CHANGE DATE 


0337 


45357 


i2474w 


JMP 


3CHEN, I 




0338* 












0339 


45360 


060374 


SERR5 IDA 


, + 15B 


OUTPUT 


0340 


45361 


015452 


JSB 


OUTCR 


CARRIAGE RETURN 


0341 


45362 


060371 


LDA 


.♦12B 


AND 


0342 


45363 


015452 


JSB 


OUTCR 


LINE FEED 


0343 


45364 


002400 


CLA 




BLOCK 


0344 


45365 


170632 


STA 


DCLCl f I 


CLOCK 


0345 


45366 


114614 


JSb 


ABCK,i 


check for Aborts 


0346 


45367 


160634 


LDA 


DCLC2#I 


UNBLOCK 


0347 


45370 


170632 


STA 


DCLC1, I 


CLOCK 


0348 


45371 


061440 


LDA 


LT5 


WARNING 


0349 


45372 


042003 


AQA 


EERRA 




0350 


45373 


042004 


ADA 


WERRA 




0351 


45374 


002021 


SSA, 


»RSS 


ERROR? 


0352 


45375 


027251 


JMP 


SERR2 


YES 


0353 


45376 


060506 


I DA 


CHNEG 


NO 


0354 


45377 


003000 


CMA 






0355 


45400 


103100 


CLE 







0356 


45401 


110001 


AND 


1,1 


CLEAR 


0357 


454*32 


170001 


STA 


1,1 


CHAIN FLAG 


0358 


45403 


102100 


STE 







0359 


45404 


006004 


INB 






0360 


45405 


160001 


LDA 


1,1 


TELL 2114 


0361 


45406 


030224 


IOR 


UNR 


THAT USER IS 


0362 


45407 


114736 


JSB 


SULP,I 


NO LONGER RUNNING 


0363 


4541^ 


^60363 


LDA 


. + 4 


CLEAR PBFLG AND CBFLG 


0364 


45411 


044356 


adb 


.-?TNUM 




0365 


45412 


015562 


JSB 


EDABR 


BITS, 


0366 


45413 


027251 


JMP 


SERR2 




0367 


454*4 


064^56 


SERR6 LDB 


P8PTR 




0368 


45415 


044361 


ADB 


.+2 


STORE 


0369 


45416 


061430 


LDA 


LT3 


ERROR 


0370 


45417 


170001 


STA 


1,1 


NUMBER 


0371 


45420 


006004 


INB 




SEy POINjER jO 


0372 


45421 


075572 


STB 


SBpTR 


LAST WOrD *1 OF ErrOr 


0373 


45422 


002003 


SZA, 


-RSS 


'OUT OF STORAGE 1 ERROR? 


0374 


45423 


035573 


ISZ 


SYMTB 


YES 


0375 


45424 


103100 


CLF 





NO 


0376 


45425 


160255 


LDA 


MAIN, I 


FIRST 


0377 


45426 


030360 


IOR 


TERR 




0378 


45427 


150255 


CPA 


MAIN,! 


ERROR? 


0379 


45430 


027434 


JMP 


* + 4 


NO 


0380 


45431 


170255 


STA 


MAIN,1 


yES^SET FLAG 
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0381 


45432 


002400 




C L A 




CLEAR 


0382 


45433 


071574 




STA 


ERRCT 


ERROR COUNTER 


0383 


45434 


102100 




STF 







0384 


45435 


035574 




ISZ 


ERRCT 


COUNT ERROR 


0385 


45436 


015450 




JSB 


BCKSP 


SEEK 


0386 


45437 


015446 


SERR7 


JSB 


GETCR 


CARRIAGE RETURN 


0387 


45440 


124620 




JMP 


ACCSAfX 




0388 


45441 


027437 




JMP 


*-2 




0389* 














0390 


45442 


045442 


ASCER 


DEF 


ERR.l 




0391 


45443 


005105 


ERR 


OCT 


5105 




0392 


45444 
45445 


051122 
047522 




ASC 


?,RROR 




0393 


45446 


045446 


LINEA 


DEF 


* 




0394 


45447 


020111 




ASC 


4, IN LINE 




45450 


047040 












45451 


046111 












45452 


047105 










0395 


45453 


020000 




OCT 


20000 




0396 


01741 




ETEMp 


FQU 


ERSEC+62 




0397 


01742 




ETMP1 


EQU 


ERSfcC*63 




0398 


45454 


071231 


SLPMS 


DEF 


LPM-1 


»> LP FREE MESSAGI 
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0400 


46000 






ORG 


46000B 




0401 


46000 


040512 


ENDIN 


DEF 


EIN12 




0402 


46001 


040450 


MINP2 


DEF 


EINP0+3 




0403 


46002 


040375 


MINPl 


DEF 


EINPl 




0404 


46003 


177713 


D65 


OCT 


• 65 




0405* 














0406*** 








** 




0407* 


* EXECUTE <MAT STATEMENT ** 




0406*** 








** 




0409* 














0410 


46004 


046323 


MLP2A 


DEF 


ML0P2 




0411 


46005 


046325 


MLP3A 


DEF 


MLOP3 




0412 


46006 


047212 


MADDA 


DEF 


MADD 




0413 


46007 


047215 


MSUBA 


DEF 


MSUB 




0414 


46010 


047227 


SMULA 


DEF 


smult 




0415 


46011 


047220 


IDnA 


DEF 


IDN 




0416 


46012 


047232 


MCPYA 


DEF 


MCPY 




0417 


46013 
46014 


041433 
157733 


TOtC 


DEC 


+ 1E*6 




0416 


46015 


046016 


F0.0A 


DEF 


F0.0 




0419 


46016 
46017 


000000 

000000 


F0.0 


DEC 


0.0 




0420 


46020 


046021 


F1.0A 


DEF 


Fl,0 




0421 


46021 
46022 


040000 
000002 


Fl,0 


DEC 


1.0 




0422* 














0423 


46023 


161611 


EMaT 


LDA 


TEMPI, I 


FIRST 


0424 


46024 


010566 




AND 


OPDMK 


OPERAND 


0425 


46025 


002002 




SZA 




NULL? 


0426 


46026 


026206 




JMP 


EMATl 


NO 


0427* 










* 




0426** IDENTIFY MATRIX I/O ** 




0429* 










* 




0430 


46027 


035611 




ISZ 


TEMPI 




0431 


46030 


003400 




CCA 




CHECK 


0432 


46031 


071470 




SyA 


ELCN T 


FOR 


0433 


46032 


015552 




JSB 


EPRUS 


'mat print using 


0434 


46033 


161611 




LDA 


TEMPI, I 


COMPUTE AND SAVE 


0435 


46034 


101111 




RRR 


9 


I/O TYPE! 


0436 


46035 


010460 




AND 


B77 


INPUT » m2 


0437 


46036 


042003 




ADA 


065 


READ * -J 


0436 


46037 


071314 




sta 


MT1 


PRINT « 


0439 


46040 


002026 




SSA, 


,INA,SZA 


SAVE FLAG 


0440 


46041 


071312 




STA 


MT0 


IF tlNPUTi 


0441 


4604? 


015504 




JSB 


VLFIL 


PROCESS ANY 


0442 


46043 


000000 




NOP 




FILE REQUEST 


0443 


46044 


161611 


MIOl 


LDA 


TEMPI, I 


LOAD NEXT 


044 4 


46045 


010566 




AND 


OPDMK 


IDENTIFIER 


0445 


46046 


002003 




SZA, 


rRSS 


ZERO? 


0446 


46047 


124762 




JMP 


XEC1A,I 


YES 


0447* 










* 




0446** PREPARE A MATRIX 1 


-OR 1 


I/O ** 




0449* 










* 




0450 


46050 


001000 




ALS 




LOAD 


0451 


46051 


041573 




ADA 


SYMT& 


BASE ADDRESS 


0452 


46052 


040356 




ADA 


.-* 


OF ARRAY 
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0453 


46053 


164000 


LDB 0,1 




0454 


46054 


044355 


AD8 .-2 


SAVE POINTER TO 


0455 


46055 


075572 


STB SBPTR 


DYNAMIC DIMENSIONS 


0456 


46056 


061611 


LDA TEMPI 


LAST 


0457 


46057 


002004 


INA 


WORD OF 


0458 


46060 


051334 


CPA PRGCT 


STATEMENT? 


0459 


46061 


002400 


CLA 


YES 


0460 


46062 


160000 


LDA 0,1 


NO, LOAD CA) WITH 


0461 


46063 


010570 


AND OPMSK 


FOLLOWING OPERATOR 


0462 


46064 


065314 


LDB MT1 


MAT 


0463 


46065 


006003 


SzB f RSS 


PRINT? 


0464 


46066 


026121 


JMP MI02 


YES 


0465 


46067 


050554 


CPA LBOP 


NO, '" I*" NEXT OPERATOR? 


0466 


46070 


015466 


JSB REDIM 


YES, REDIMENSION ARRAY 


0467 


46071 


161572 


LDA SBPTR, I 


SET POINTER 


0468 


46072 


035572 


ISZ SBPTR 


TO FIRST ELEMENT 


046g 


46073 
46074 


100200 
101572 


MPY SBPTR, I 


OF ARRAY 


0470 


46075 


035572 


ISZ SBPTR 


WHILE COMPUTING 


0471 


46076 


003004 


CMA,INA 


NUMBER OF 


0472 


46077 


071476 


STA MCNT 


ELEMENTS 


0473 


46100 


003400 


CCA 


MAT 


0474 


46101 


051314 


CPA MT1 


READ? 


0475 


46102 


026H0 


JMP MI09 


YES 


0476* 






* 




0477** input values For 


MATRIX ** 




0478* 






* 




0479 


46103 


035312 


ISZ MT0 


FIRST MATRIX TO BE INPUT? 


0480 


46104 


002001 


RSS 


NO 


0481 


46105 


126002 


JMP M1NP1,I 


YES 


0482 


46106 


041312 


ADA MT0 


RETRIEVE 


0483 


46107 


126001 


JMP MINP2,I 


SAVED CHARACTER 


0484* 






* 




0485** READ VALUES FOr MATRIX ** 




0486* 






* 




0487 


46110 


006404 MI09 


CLB,INB 


FETCH 


0488 


46111 


015362 


JSB FOATA 


CONSTANT 


0489 


4611? 
46113 


104400 
101572 * 


DST SBPTR, I 


STORE 


0490 


46114 


035572 


ISZ SBPTR 




0491 


46115 


035572 


ISZ SBPTR 


IT 


0492 


46116 


035476 


ISZ MCNT 


DONE? 


0493 


46117 


026110 


JMp MI 9 


NO 


0494 


46120 


026174 


JMP MI07 


YES 


0495* 










0496 


46121 


050516 MI02 


CPA B3000 


i|i FOLLOWING ARRAY? 


0497 


46122 


007400 


CCB 


yes 


0498 


46123 


075476 


STB MCNT 


NO, TREAT AS COMMA 


0499 


46124 


065572 


LDB sBpTR 


VALIDATE 


0500 


46125 


015470 


JSB VcHK 


ARRAY ELEMENTS 


0501 


46126 


161572 


LDA SBPTR, I 


SAVE 


0502 


46127 


035572 


ISZ SBPTR 


COUNT 


0503 


46130 


003004 


CMA,INA 


OF 


0504 


46131 


071312 


STA MT0 


ROWS 


0505 


46132 


161572 


LDA SBPTR, I 




0506 


46133 


035572 


ISZ SBPTR 
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0507 

0508 

0509 

0510* 

0511** 

0512* 

0513 

0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 



46134 065234 

46135 006020 

46136 026151 

WRITE MATRIX ON P 



46137 
4614P 
46141 
46142 
46143 
46144 
46145 
46146 
46147 
46150 



100200 
001312 
071476 
064355 
015510 
035572 
035572 
035476 
026142 
026174 



MI04 



LOB 


FILE* 


WRITE ON 


SSB 




A FILE? 


JMP 


MI03 


NO 


HE 


** 




MPY 


* 
MT0 


SET 


STA 


MCNt 


ELEMENT COUNTER 


LDB 


.-2 


WRITE ELEMENT 


JSB 


FILST 


TO FILE 


ISZ 


SBpTR 


MOVE TO 


ISZ 


SBPTR 


NEXT ELEMENT 


ISZ 


MCNT 


MATRIX DONE? 


JMP 


MI04 


NO 


JMP 


MI07 


YES 
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0523* 










* 




0524** WRIU MATRIX ON TELETYPE ** 




0525* 










* 




0526 


46151 


003004 


M103 


CMA, 


,INA 


SAVE 


0527 


46152 


071623 




STA 


MT3 


COLUMN COUNT 


0526 


46153 


071622 


MI08 


STA 


MT2 


SET COLUMN COUNT 


0529 


46154 


026160 




J MP 


MI06 




0530 


46155 


002400 


MI05 


CLA 






0531 


46156 


051476 




CPA 


MCNT 




0532 


46157 


015426 




,JSB 


EDELM 




0533 


46160 
46161 


104200 
101572 


MI06 


DID 


S6PTR,I 


PRINT 


0534 


46162 


015416 




JSB 


ENQUT 


ELEMENT 


0535 


46163 


035572 




ISZ 


SBPTR 


MOVE ]0 


0536 


46164 


035572 




ISZ 


SBPTR 


next element 


0537 


4616S 


035622 




ISZ 


MT2 


row done? 


0538 


46166 


026155 




JMP 


MI05 


no 


0539 


46i67 


015424 




JSB 


OUTLN 


YES, DOUBLE 


0540 


46170 


015424 




JSB 


OUTLN 


SPACE 


0541 


46171 


061623 




IDA 


MT3 




0542 


46172 


035312 




ISZ 


MT0 


MATRIX DONE? 


0543 


46173 


026153 




JMP 


MI08 


No 


0544* 










* 




0545** CHECK FOp MORE MATRICES ** 




0546* 










* 




0547 


46174 


035611 


MI07 


ISZ 


TEMPI 




0548 


46175 


065611 




IDB 


TEMPI 


STATEMENT 


0549 


46176 


055334 




CPB 


PRGCT 


FINISHED? 


tf550 


46j77 


026202 




JMP 


♦♦3 


YES 


0551 


46200 


071312 




STA 


MT0 


NO, SAVE (A) 


0552 


46201 


026044 




JMP 


MIOl 




0553 


46?02 


064355 




LOB 


.-2 


MATRIX 


0554 


46203 


055314 




CPB 


MT1 


INPUT? 


0555 


46204 


126000 




JMP 


ENDIN, I 


YES 


0556 


46205 


124762 




JMP 


XEC1A,I 


NO 


0557* 










* 


j 


0558** PREPARE M ATRlX ASSIGNMENT ** 




w559* 










* 




0560 


46206 


064762 


FMATl 


IDB 


XEClA 


SET MAIN LOOP TO 


0561 


46207 


075364 




STB 


MEXIT 


STATEMENT EXIT MODE 


0562 


46210 


001000 




ALS 






0563 


46211 


041573 




ADA 


SYMTB 


COMPUTE 


0564 


46212 


040356 




ADA 


.-1 


POINTER 


0565 


46213 


164000 




IDB 


*,l 


TO 


0566 


46214 


044355 




ADB 


.-2 


DESTINATION 


0567 


46215 


075572 




STB 


BS1 


MATRIX 


tf568 


46216 


035611 




ISZ 


TEMPI 




0569 


46217 


1616H 




L.DA 


TEMPI, I 


MATRIX 


05/0 


46220 


002020 




SSA 




FUNCTION? 


0571 


46221 


026455 




JMp 


EMAT6 


YES 


0572 


46222 


066004 




LDB 


MLP2A 


NO, SET OPERATION 


0573 


46223 


075340 


EHAT2 


STB 


MOP 


JUMP TO 'REPLACE* MODE 


0574 


46224 


035611 




ISZ 


TEMPI 




0575 


46225 


010566 




AND 


OPDMK 


SCALAR 


0576 


46226 


002003 




SZA, 


,RSS 


MULTIPLICATION? 


0577 


46227 


026445 




JMP 


FMAT5 


YES 
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0578 46230 001000 ALS NO 

0579 46231 041573 ADA SYMTB COMPUTE 

0580 46232 040356 AOA ,-l POINTER 

0581 46233 164000 LOB , 1 TO FIRST 

0582 46234 04435b AOB ,~2 SOURCE 
0683 46235 075350 STB BS2 MATRIX 

0584 46236 015470 JSB VCHK VALIDATE ITS ELEMENTS 

0585 46237 061611 LDA TEMPI END OF 

0586 46240 (151334 CPA PrGCt STATEMENT? 

0587 46241 026277 JMP EMAT3 YES 

0588 46242 1 6 1 6 1 1 tJ>A TEMP1»I NO 
^589 46243 010566 AND OPDMK COMPUTE 

0590 46244 001000 ALS 

0591 46?45 c ^4l573 ADA SYMTB POINTER TO 

0592 46246 040356 ADA ,-i 

0593 46247 164000 L D8 0,1 SECOND 

0594 4625M 044355 ADB t -2 

0595 46251 075352 STB Bs3 SOURCE MATRIX 

0596 46252 015470 JSB VCHK VALIDATE ITS ELEMENTS 

0597 46253 161611 LDA TEMPI, 1 

0598 46254 010570 AND OPMSK MATRIX 

0599 46255 050560 CPA MULOP MULTIPLICATION? 

0600 46256 326334 JMP FMAT4 YES 

0601 4625/100106 RRL 6 NO 

0602* * 

0603** SET UP MATRIX ADD, SUBTRACT, OR REPLACE ** 
0604* * 

0605 46260 066006 LDB MADDA RECORD 

06^6 46261 002020 SSA 'MATRIX ADD' 

0607 46262 066007 I DB MSUaA OR "MATRIX SUBTRACT* 

0608 46263 075340 STB MQP OPERATION JUMP 

0609 46264 065572 LDB RSI 

0610 46265 160001 IDA 1,1 ROW 

0611 46266 151352 CPA BS3,I COMPATIBILITY? 

0612 46267 006005 INB,RSS YES 

0613 46270 115112 JSB RERRS*H r I NO 
^)6l4 46271 035352 ISz BS3 

0615 46272 164001 LDB 1,1 COLUMN 

0616 46273 155352 CPB BS3,I COMPATIBILITY? 

0617 46274 002001 RSS YES 
W618 46275 Il5n2 .JSB RLRRS + l 1 , I NO 

0619 46276 035352 ISZ BS3 

0620 46277 161350 EMAT3 LDA BS2,I RQw 

0621 46300 151572 CPA BSl,I COMPATIBILITY? 

0622 46301 002001 RSS YES 

0623 46302 115112 JSB RERRS+11,1 NO 

0624 46303 035350 ISZ BS2 

0625 46304 035572 ISz BSl COMPUTE NUMBER 

0626 46305 100200 MPY BS2,l OF MATRIX ELEMENTS 
46306 101350 

0627 46307 16535& LDB BS2,I COLUMN 

0628 46310 155572 CPB BS1VT COMPATIBILITY? 

0629 46311 ?0300b CMA,IhA,RSS YES 

0630 46312 115H2 JSB RfcRRS+11,1 NO 

0631 463U :'/1476 sTA MCNt sAVfc 2'S COMpLEMENT OF SIZE 

0632 46314 fl3535i>: IS7 B§2 
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#633 4631S P35572 



TSZ BS1 
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0001* 








* 




0002** ASSIGN MATRIX VALUE ** 




000J* 








* 




0004* 












0005* 


MOP HOLDS A 


POINTER TO CODE WHICH COMPUTES ONE ELEMENT OP THE 


0006* 


DESTINATION 


MATRIX 


AND RETURNS 


IT IN (A) AND (B). MEXIT 


0007* 


HOLDS THE EXIT ADORFSS SET BY THE CALLER, 


0008* 












0009 


46316 
46317 


104200 
101350 


MLOOP 


DLD BS2,I 


LOAD ELEMENT OF SOURCE MATRI 


0010 


46320 


125340 




JMP MOP, I 


JUMP TO OPERATION 


0011 


46321 


035352 


MLOP1 


ISZ BS3 


MOVE TO NEXT ELEMENT 


0012 


46322 


035352 




ISZ BS3 


OF SECOND SOURCE MATRIX 


0013 


46323 


035350 


MLQP2 


ISZ BS2 


MOVE TO NEXT ELEMENT 


0014 


46324 


035350 




ISZ 8S2 


QF FIRST SOURCE MATRIX 


0015 


46325 
46326 


104400 
101572 


ML0P3 


DST BSi,I 


RECORD ELEMENT 


0016 


46327 


035572 




TSZ BS1 


OF DESTINATION MATRIX 


0017 


46330 


035572 




ISZ 8S1 


AND MOVE TO NEXT ELEMENT 


0018 


46331 


035476 




ISZ MCNT 


DONE? 


0019 


46332 


026316 




JMP MLOOP 


NO 


0020 


46333 


125364 




.IMP MExIT r I 


YES 


0021* 








* 




0022** COMPUTE MATRIX PRODUCT ** 




0023* 








* 




0024 


46334 


1615 7 2 


EM A T4 


LDA BS1,I 


DESTINATION MATRIX 


0025 


46335 


151350 




CPA 882,1 


RO* COMPATIBILITY? 


0026 


46336 


003005 




CMA,INA,RSS 


YES 


0027 


46337 


115H2 




JSB RERRS+11 


,1 NO 


0028 


46340 


071632 




STA MMT0 


save R w counter 


0029 


46341 


035572 




ISZ BSl 




0030 


46342 


035350 




ISZ BS2 




0031 


46343 


161350 




LDA BS2,I 


INNER PRODUCT 


0032 


46344 


151352 




CPA BS3,I 


COMPATIBILITY? 


0033 


46345 


003005 




CMA,INA,RSS 


YES 


0034 


46346 


115112 




JSB RERRS+11 


,1 NO 


0035 


46347 


071633 




STA MMTl 


SAVE INNER PRODUCT 


0036 


46350 


071634 




STA MMT2 


COUNTERS 


0037 


46351 


001000 




ALS 


SAVE ROW 


0038 


46352 


C?7l630 




STA MMT6 


BACK UP AMOUNT 


0039 


46353 
46354 


100200 
101572 




MPY BSl, I 


SAVE COLUMN 


0040 


46355 


040361 




ADA ,+2 


BACK UP 


0041 


46356 


071631 




STA MMT7 


AMOUNT 


0042 


46357 


035352 




ISZ BS3 




0043 


4636m 


161572 




LDA BSl, I 


DESTINATION MATRIX 


0044 


46361 


151352 




CPA BS3,I 


COLUMN COMPATIBILITY? 


0045 


46362 


003005 




cma,ina,rss 


YES 


0046 


46363 


115U2 




JSB RERRS+11 


,1 NO 


0047 


46364 


071635 




STA MMT3 


SAVE COLUMN 


0048 


46365 


071636 




STA MMT4 


COUNTERS 


0049 


46366 


003004 




CMA,INA 


SAVE COLUMN 


0050 


46367 


001000 




ALS 


ADVANCE 


0051 


46370 


071637 




STA MMT5 


AMOUNT 


0052 


46371 


035572 




ISZ RSI 


MOVE TO 


0053 


46372 


035350 




ISZ BS2 


First element 
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0054 


46373 


035352 




ISZ 


BS3 


OF MATRICES 


0055 


46374 


065352 




LDB 


BS3 


SAVE FIRST. ELEMENT ADDRESS 


0056 


46375 


075376 




STB 


MMTB 


OF SECOND SOURCE MATRIX 


0057 


46376 
46377 


104200 
046016 


MPR1 


DLD 


F0 # 


INITIALIZE DESTINATION 


0058 


46400 
46401 


104400 
101572 




D8T 


SSI, I 


ELEMENT TO ZERO 


0059 


46402 
46403 


104200 
101350 


MPR2 


DLD 


BS2,I 


COMPyTE 


0060 


46404 


035350 




ISZ 


BS2 


TERM 


0061 


46405 


035350 




ISZ 


BS2 


OF 


0062 


46406 


015406 




JSB 


,FMP 


INNER 


0063 


46407 


101352 




DEF 


B33,I 


PRODUCT 


0064 


46410 


015402 




JSB 


.FAD 


ADD IN PREVIOUS 


0065 


46411 


101572 




DEF 


BSl,I 


RUNNING SUM 


0066 


464*2 
46413 


104400 
101572 




DST 


RSI, I 


SAVE RUNNING SUM 


0067 


46414 


065352 




I D8 


RS3 


ADVANCE TO 


0068 


46415 


045637 




AD8 


MM jb 


NEXT R^W OF 


0069 


46416 


075352 




STB 


BS3 


SECOND SOURCE MATRIX 


0070 


46417 


035634 




ISZ 


MMT2 


INNER PRODUCT COMPLETE? 


0071 


46420 


026402 




JMp 


HpR2 


NO 


0072 


4 6421 


035572 




isz 


Bsl 


YE S , MOVE TO NEXT 


0073 


46422 


035572 




isz 


BS1 


DESTINATION ELEMENT 


0074 


46423 


065633 




LDB 


MMTi 


RESET INNER PRODUCT 


0075 


46424 


075634 




STB 


MMT2 


TERM COUNTER 


0076 


46425 


035636 




ISZ 


MMT4 


ROW COMPLETE? 


mi? 


46426 


026434 




JMp 


MPR3 


NO 


0078 


46427 


065635 




LDB 


MM73 


YES, RESEt 


0079 


46430 


075636 




STB 


MMT4 


COLUMN COUNTER 


0080 


46431 


035632 




ISz 


MMT0 


DONE? 


0081 


4643? 


026442 




JMP 


MPR4 


NO 


0082 


46433 


124 76 2 




JMP 


XEC1A,I 


YES 


0083 


46434 


065350 


MPR3 


LDB 


BS2 


BACK UP 


0084 


46435 


045630 




AD6 


MMT6 


TO BEGINNING OF ROW OF 


0085 


46436 


075350 




STB 


BS2 


FIRST SOURCE MATRIX 


0086 


46437 


065352 




IDS 


BS3 


BACK UP TO BEGINNING 


0087 


46440 


045631 




ADB 


MMT7 


OF NEXT COLUMN 


0088 


46441 


002001 




RSS 




OF SECOND SOURCE MATRIX 


0089 


46442 


065376 


MPR4 


LDB 


MMT8 


BACK UP TO FIRST ELEMENT 


0090 


46443 


075352 




STB 


8S3 




0091 


46444 


026376 




JMP 


MPR1 




0092* 












* 


0093** Shy 


up scalar multiplication 


** 


0094* 












* 


0095 


4644b 


015356 


EMAT5 


JSB 


FETCH 


COMPUTE AND 


0096 


46446 
46447 


104400 
001622 




DST 


SCALR 


SAVE SCALAR 


0097 


46450 


035611 




ISZ 


TEMPI 


LOAD OPERATION JUMP 


0098 


46451 


035611 




ISZ 


TEMPI 


PROCESS 


0099 


46452 


161611 




LDA 


TEMPI, I 


FOLLOWING 


0100 


46453 


066010 




LDB 


SMULA 


MATRIX 


0101 


46454 


026223 




JMp 


EMAT2 




0102* 














0103 


46455 


101104 


EMAT6 


RRR 


4 


COMPUTE 


0104 


46456 


010416 




AND 


• +37B 


MATRIX 
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0105 


46457 


040330 


ADA 


,-27B 


FUNCTION 


0106 


46460 


071514 


STA 


ID0 


TYPE 


0107 


46461 


002021 


SSA« 


-RSS 


MATRIX INITIALIZATION? 


0108 


46462 


026521 


JMP 


EMAT8 


NO 


0109* 










* 


0110** SET 


UP MATRIX INITIALIZATION 


** 


0111* 










* 


0112 


46463 


065611 


LDB 


TEMPI 




0113 


46464 


006004 


INB 






0114 


46465 


055334 


CpB 


PRGCT 


REDIMENSIONING? 


0115 


46466 


002001 


RSS 




NO 


0116 


46467 


015466 


JSB 


REDlM 


YES 


0117 


46470 


161572 


T . ■ i .. . t\« 


D31 1 X 


COMPUTE 


0118 


46471 


071362 


STA 


ID1 


NUMBER 


0119 


46472 


035572 


ISZ 


BS1 


OF ELEMENTS 


0120 


46473 
46474 


100200 
101572 


MPY 


BSi,I 


IN 2»S 


0121 


46475 


003004 


CMA, 


rINA 


COMPLEMENT 


0122 


46476 


071476 


STA 


MCNT 


SA " t 1 * 


0123 


46477 


035514 


ISZ 


ID0 


«IDN« ? 


0124 


465^0 


026512 


JMP 


EMAT7 


NO 


0125 


46501 


161572 


LDA 


BS1,I 


YES 


0126 


465^2 


051362 


CPA 


ID1 


SQUARE MATRIX? 


0127 


46503 


003001 


CMA, 


,RSS 


YES 


0128 


46504 


115127 


JSB 


RERRS+24 


.1 NO 


0129 


46505 


071514 


STA 


lD0 


SET 


0130 


46506 


003400 


CCA 




DIAGONAL 


0131 


46507 


071362 


STA 


IDl 


COyNTER 


0132 


46510 


062011 


LD A 


idna 


LOA D OPERATION JUMP 


0133 


46511 


026515 


JMP 


* + 4 




0134 


46512 


062005 


E HAT7 i qA 


MLr *J W 


p^ IT %& \j ^\ 15 


0135 


46513 


066020 


LDB 


F1.0A 


CORRECT CONSTANT! 


0136 


46514 


035514 


ISZ 


ID0 


0,0 FOR 'ZER* 


0137 


46515 


066015 


LDB 


F0.0A 


1,0 FOR «CON» 


0138 


46516 


075350 


STB 


BS2 


0,0 FOR *IDN» 


0139 


46517 


071340 


STA 


MOP 


RECORD OPERATION JUMP 


0140 


46520 


026315 


JMP 


MLOOP»l 




0141* 












0142 


46521 


035611 


EMATg ISZ 


TEMPI 


COMPUTE 


0143 


46522 


161611 


LDA 


TEMPI, 1 




0144 


46523 


010566 


AND 


OPDMK 


POINTER 


0145 


46524 


001000 


ALS 






0146 


46525 


041573 


ADA 


SYMTB 


TO 


0147 


46526 


040356 


ADA 


• •1 




0148 


46527 


164000 


LDB 


0,1 


SOURCE 


0149 


46530 


044355 


ADB 


• *2 




0150 


46531 


075350 


STB 


BS2 


MATRIX 


0151 


46532 


015470 


JSB 


VCHK 


VALIDATE IT 


0152 


46533 


165572 


LDB 


BSl,I 


LOAD DESTINATION ROW DIMENSION 


0153 


46534 


005000 


BLS 




SAVE COLUMN 


0154 


46535 


075635 


STB 


MMT3 


ADVANCE AMOUNT 


0155 


46536 


005100 


BRS 






0156 


46537 


035572 


ISZ 


BSl 




0157 


46540 


161572 


LDA 


as i,i 


ARE COLUMNS OF DESTINATION 


0158 


46541 


151350 


CPA 


BS2,I 


AND ROWS OF SOURCE EQUAL? 


0159 


4654? 


003005 


CMA, 


-INA,RSS 


YES 
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0160 


46543 


115112 


JSB RERRS*11 ( 


-I NO 


0161 


46544 


071633 


STA MMT1 


SAVE DESTINATION MATRIX 


0162 


46545 


071634 


STA MMT2 


COLUMN COUNTERS 


0163 


46546 


035350 


ISZ 832 


ARE ROWS OF DESTINATION AND 


0164 


46547 


155350 


CPB BS2,I 


COLUMNS OF SOURCE EQUAL? 


0165 


46550 


007005 


CMB,INB#RS3 


YES 


0166 


46551 


115112 


JSB RERRS+11, 


,1 NO 


0167 


46552 


075632 


STB MMT0 


SAVE ROW COUNTER 


016a 


46553 
46554 


100200 
001635 


MPY MMT3 


SAVE COLUMN BACK UP 


0169 


46555 


035350 


ISZ BS2 




0170 


46556 


065514 


LOB ID0 




0171 


46557 


006003 


SZBrRSS 


«TRN* ? 


0172 


46560 


026610 


JMP INV 


NO 


0173 


46561 


040361 


ADA »+2 


yes, save column 


0174 


46562 


071636 


STA MMT4 


BACK UP AMOUNT 


0175 


46563 


035572 


ISZ BS1 


FOR SOURCE MATRIX 


0176 


46564 


026572 


JMP TRN 




0177 


46565 


065633 TRN1 


LDB MMTl 


RESET 


0178 


46566 


075634 


STB MMT2 


COUNTER 


0179 


46567 


065350 


LDB BS2 


BACK UP TO 


0180 


46570 


045636 


ADB MMT4 


FIRST ELEMENT 


0181 


46571 


075350 


STB BS2 


OF NExT COLUMN 


0182* 






* 




0183** TRANSPOSE A MATRIX ** 




0184* 






* 




0185 


46572 
46573 


104200 TRN 
101350 


OLD BS2,I 


TRANSFER 


0186 


46574 
46575 


104400 
101572 


DST B$i,I 


ELEMENT 


0187 


46576 


035572 


ISZ Bsl 




0188 


46577 


035572 


ISZ BS1 




0189 


46600 


065350 


LDB BS2 


ADVANCE TO 


0190 


46601 


045635 


ADB MMT3 


NEXT ELEMENT 


0191 


46602 


075350 


STB BS2 


OF COLUMN 


0192 


46603 


035634 


ISZ MMT2 


COLUMN TRANSFERRED? 


0193 


46604 


026572 


JMP TRN 


NO 


0194 


46605 


035632 


ISZ MMT0 


YES, DONE? 


0195 


46606 


026565 


JMP TRNl 


NO 


0196 


46607 


124762 


JMp XEC1A,I 


YES 


0197* 






* 




0198** INVERT A MATRIX 


** 




0199* 






• 




0200 


46610 


064000 INV 


UDB 


save 219 complement 


0201 


46611 


001100 


ARS 


OF NUMBER OF 


0202 


46612 


071476 


STA MCNT 


ELEMENTS IN MATRIX 


0203 


46613 


061572 


LDA BSl 


SAVE ADDRESS OF 


0204 


46614 


071352 


STA BS3 


DESTINATION MATRIX 


0205 


46615 


061330 


LDA TMPST 


SET ADDRESS 


0206 


46616 


040361 


ADA .42 


OF FREE CORE 


0207 


46617 


071572 


STA BSl 


AS BASE ADDRESS 


0208 


46620 


003004 


CMA f INA 


SUFFICIENT 


0209 


46621 


040716 


ADA LWAUS 


FREE CORE 


0210 


46622 


040001 


ADA 1 


TO COPY 


0211 


46623 


003021 


CMA,SSA,RSS 


SOURCE MATRIX? 


0212 


46624 


115111 


JSB RERRS+10, 


.1 NO 
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0213 


46625 


040716 


ADA 


LWAUS 


YES, INCLUDE IT 


0214 


46626 


070056 


STA 


PBPTR 


IN SWAP AREA 


0215 


46627 


006400 


CLB 




SET 'MAXIMUM ELEMENT* 


0216 


46630 


075624 


STB 


MAXE 


VALUE TO 


0217 


46631 


075625 


STB 


MAXE+1 


ZERO 


0218 


46632 


062012 


LDA 


MCPYA 


SET UP TO 


0219 


46633 


071340 


STA 


MOP 


COPY MATRIX, 


0220 


46634 


062637 


LDA 


INVl 


FIND MAXIMUM (ABSOLUTE 


0221 


46635 


071364 


STA 


MEXIT 


VALUE) ELEMENT, 


0222 


46636 


026316 


JMP 


MLOOP 


AND RETURN 


0223 


46637 


046640 INV1 DEF 


* + l 




0224 


46640 
46641 


104200 
001624 


DLD 


MAXE 


COMPUTE 


0225 


46642 


015406 


JSB 


„FMP 


RELATIVE 


0226 


46643 


046013 


DEF 


TOLC 


TOLERANCE 


0227 


46644 
46645 


104400 
001626 


DST 


TOL 




0228 


46646 


003400 


CCA 






0229 


46647 


071514 


STA 


jD0 


RE.5 T URfc 


0230 


46650 


041352 


ADA 


BS3 


DESTINATION 


0231 


46651 


071572 


STA 


BS1 


BASE ADDRESS 


0232 


4665? 


003004 


CMA, 


,INA 


COMPUTE DIFFERENCE 


0233 


46653 


041330 


ADA 


TMPST 


BETWEEN BASE ADDRESSES 


0234 


46654 


003004 


CMA< 


>INA 


OF SOURCE (COPIID) 


0235 


46655 


071352 


STA 


BS3 


AND DESTINATION 


0236 


46656 


062661 


LDA 


INV2 


MATRICES 


0237 


46657 


071364 


STA 


MEXIT 


SET DESTINATION MATRIX 


0238 


46660 


026470 


Jmp 


INVL 


TO IDENTITY AnD RETURN 


0239 


46661 


046662 INV2 DEF 


* + l 




0240 


46662 


065330 


LDB 


TMPST 


SAVE 


0241 


46663 


044361 


ADB 


,+2 


BASE ADDRESS 


0242 


46664 


060001 


LDA 


1 


OF SOuRCE 


0243 


46665 


075350 


STB 


BS2 


MATRIX 


0244 


46666 


045352 


ADB 


BS3 


SAyE BASE ADDRESS OF 


0245 


46667 


075572 


STB 


BSi 


DESTINATION MATRIX 


02 4 6 


46670 


006400 


CLB 




SET PIVOT ELEMENT 


0247 


46671 


075514 


STB 


ID0 


BIAS TO ZERO 


0248 


46672 


026703 


JMP 


INV4 




0249 


46673 


061514 INV3 LOA 


ID0 


SET BIAS 


0250 


46674 


040355 


ADA 


• *2 


FOR NEXT 


0251 


46675 


071514 


STA 


ID0 


PIVOT ELEMENT 


0252 


46676 


061632 


LDA 


MMT0 


INITIALIZE COUNTER TO 


0253 


46677 


071634 


STA 


MMT2 


2«S COMPLEMENT OF CQLUMN8 


0254 


46700 


061344 


LDA 


PIVEL 


UPDATE PIVOT 


0255 


46701 


041635 


ADA 


MMT3 


ADDRESS 


0256 


46702 


040361 


ADA 


.+2 


TO NEXT 


0257 


46703 


071344 INV4 STA 


PIVEL 


DIAGONAL ELEMENT 


0258 


46704 


071636 


STA 


MMT4 


INITIALIZE 


0259 


46705 


006400 


CLB 




PIVOT ELEMENT 


0260 


46706 


075624 


STB 


MAXE 


AS MAXIMUM 


0261 


46707 


075625 


STB 


MAXE+1 


IN COLUMN 


0262 


46710 


065633 


LDB 


MMTl 


SET COUNTER TO SEARCH 


0263 


46711 


075637 


STB 


MMT5 


REMAINDER OF COLUMN 


0264 


46712 


071630 INV5 STA 


MMT6 


LOAD 


0265 


46713 
46714 


104200 
101630 


DLD 


MMT6,I 


ELEMENT 
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0266 


46715 


002020 


0267 


46716 


015370 


0268 


46717 


104400 




46720 


001622 


0269 


46721 


015404 


0270 


46722 


001624 


0271 


46723 


002002 


0272 


46724 


002020 


0273 


46725 


026734 


0274 


46726 


104200 




46727 


001622 


0275 


46730 


104400 






001624 


0276 


46732 


061630 


0277 


46733 


071636 


0278 


46734 


061630 


0279 


46735 


041635 


0280 


46736 


035637 


0281 


46737 


026712 


0282 


46740 


065344 


0283 


46741 


045514 


0284 


46742 


075631 


0285 


46743 


045352 


0286 


46744 


075637 


0287 


46745 


075362 


0288 


46746 


061636 


0289 


46747 


051344 


0290 


46750 


027017 


0291 


46751 


041514 


0292 


46752 


071376 


0293 


46753 


041352 


0294 


46754 


071630 


0295 


46755 


104200 




46756 


101637 


0296 


46757 


104400 




46760 


001622 


0297 


46761 


104200 




46762 


101630 


0298 


46763 


104400 




46764 


101637 


0299 


46765 


104200 




46766 


001622 


0300 


46767 


104400 




46770 


101630 


0301 


46771 


104200 




46772 


101631 


0302 


46773 


104400 




46774 


001622 


0303 


46775 


104200 




46776 


101376 


0304 


46777 


104400 




47000 


101631 


0305 


47001 


104200 




47002 


001622 


0306 


47003 


104400 




47004 


101376 



INV6 



INV7 



SSA 


GET 


JSB ARlNV 


ABSOLUTE 


DST SCALR 


VALUE 


JSB ,PSB 


SUBTRACT 


DEF MAXE 


PREVIOUS MAXIMUM 


S2A 


RESULT 


SSA 


POSITIVE? 


JMP INV6 


NO 


DID SCALR 


YES, RECORD 


DST MAXE 


NEW MAXIMUM 


IDA MMT6 


AND ITS 


STA MMT4 


LOCATION 


LDA MMT6 


MOVE TO NEXT 


ADA MMT3 


Element of column 


ISZ MMT5 


COLUMN DONE? 


JMP INV5 


NO 


LDB PIVEL 


YES 


ADB ID0 


SET POINTERS 


STB MMT7 


TO OLD 


ADB BS3 


PIVOT ROWS OF 


STB MMT5 


BOTH MATRICES 


STB IDl 




LDA MMT4 


NEED TO 


CPA PIvEL 


SWAP ROWS? 


JMP INV8 


NO 


ADA ID0 


YES, SET POINTERS 


STA MMT8 


TO NEW 


f^ fcr W^ Ij «jl %£ 


PIVOT ROWS OF 


STA MMT6 


BOTH MATRICES 


DID MMT5,1 


SWAP 


DST SCALR 




DUD MMT6,I 


ROW 


DST MMT5,I 




DLD SCALR 


ELEMENT 


DST MMj6,I 




DLD MMT7,I 


OF 


DST SCALR 




DLD MMT8,I 


EACH 


DST MMT7,I 




DLD SCALR 


MATRIX 


DST MMT8,i 
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0307 


47005 


035637 


ISZ 


MMT5 


BUMP 


0308 


47006 


035637 


132 


MMT5 




0309 


47007 


035630 


132 


MMT6 


ALL 


0310 


47010 


035630 


isz 


MMT6 




0311 


47011 


035631 


ISZ 


MMT7 


FOUR 


0312 


47012 


035631 


isz 


MMT7 




0313 


47013 


035376 


132 


MMT8 


POINTERS 


0314 


47014 


035376 


ISZ 


MMT8 




0315 


47015 


035634 


ISZ 


MMT2 


ROW SWAPPED? 


0316 


47016 


026755 


JMp 


INV7 


NO 


0317 


47017 

47020 


104200 
001624 


INV8 OLD 


MAXE 


YES 


0318 


47021 


015404 


JSB 


,FSB 


PIVOT ELEMENT 


0319 


47022 


001626 


DEF 


TOL 


SMALLER THAN 


0320 


47023 


002020 


SSA 




TOLERANCE? 


0321 


47024 


115131 


JSB 


RERRS+26, 


I YES 


0322 


47025 
47026 


104200 
046021 


DLD 


Fl,0 


NO 


0323 


47027 


015410 


JSB 


§ FDV 


COMPUTE 


0324 


47030 


101344 


DEF 


PIVEL,I 


INVERSE OF 


0325 


47031 
47032 


104400 
001624 


DST 


MAXE 


PIVOT ELEMENT 


0326 


47033 


061633 


LDA 


MMT1 


LAST 


0327 


47034 


002007 


INA, 


,SzA,RSS 


PIVOT? 


0328 


47035 


027053 


JMP 


INV10 


YES 


0329 


47036 


071637 


STA 


MMJ5 


no # prepare 


0330 


47037 


061344 


LDA 


PIVEL 


TO SCALE 


0331 


47040 


071630 


STA 


MMT6 


PIVOT ROW 


0332 


47041 


035630 


INV9 ISZ 


MMT6 


MOVE TO NEXT 


0333 


47042 


035630 


IS2 


MMT6 


ELEMENT OF ROW 


0334 


47043 
47044 


104200 
101630 


DLD 


MMT6,I 


MULTIPLY 


0335 


47045 


015406 


JSB 


,FMP 


BY l/PIVOT 


0336 


47046 


001624 


DEF 


MAXE 


AND STORE 


0337 


47047 
47050 


104400 
101630 


Dst 


MMj6,I 


NEW VALUE 


0338 


47051 


035637 


ISZ 


MMT5 


ROW DONE? 


0339 


47052 


027041 


JMP 


INV9 


NO 


0340 


47053 


061362 


INV10 LDA 


ID1 


Y ES 


0341 


47054 


071630 


STA 


MMT6 




0342 


47055 


061632 


LDA 


MMT0 


SET 


0343 


47056 


071634 


STA 


MMT2 




0344 


47057 


071637 


STA 


MMT5 


COUNTERS 


03 4 5 


4706^ 
47061 


104200 
101630 


INV11 DLD 


MMT6*I 


SCALE ELEMENTS OF 


0346 


47062 


002003 


SZA, 


,RSS 




0347 


47063 


027070 


JMP 


INV12 


PIVOT ROW 


0348 


47064 


015406 


JSB 


f FMP 




0349 


47065 


001624 


DEF 


MAXE 


OF DESTINATION 


0350 


47066 
47067 


104400 
101630 


DST 


MMT6,I 




0351 


47070 


035630 


TNV12 ISZ 


MMT6 


MATRIX 


0352 


47071 


035630 


ISZ 


MMT6 




0353 


47072 


035637 


ISZ 


MMT5 


ROW DONE? 


0354 


47073 


027060 


JMP 


INVH 


NO 


0355 


47074 


065572 


LDB 


BSl 


YES, SET POINTER TO 
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0356 


47075 


075400 


STB 


VT0 


DESTINATION ARRAY 


0357 


47076 


061350 


IDA 


BS2 


SET POINTER 


0358 


47077 


003004 


CMA, 


,INA 


TO PIVOT COLUMN 


0359 


47100 


041514 


ADA 


ID0 


IN FIRST ROW 


0360 


47101 


003004 


CMA, 


,INA 


OF SOURCE 


0361 


47102 


071376 


INV13 STA 


MMT8 


MATRIX 


0362 


47103 


051344 


CPA 


PIVEL 


PIVOT ROW? 


0363 


47104 


027206 


JMP 


INV19 


YES 


0364 


47105 


071631 


STA 


MMT7 


NO 


0365 


47106 
47107 


104200 
101631 


OLD 


MMT7»I 


LOAD MULTIPLIER FOR PIVOT ROW 


0366 


47H0 


002003 


SZA, 


,RSS 


ZERO? 


0367 


47111 


027206 


JHP 


TMV19 


YES 


0368 


47112 
47H3 


104400 
001622 


DST 


SCALR 


NO, SAVE MULTIPLIER 


0369 


47114 


061633 


LDA 


MMT1 


LAST 


0370 


47115 


002007 


INA, 


,SZA,RSS 


ROW? 


0371 


47116 


027144 


JMP 


INV15 


YES 


0372 


47117 


071637 


STA 


MMT5 


NO, SET POINTER TO 


0373 


47120 


061344 


LDA 


PIVEL 


PIVOT ELEMENT IN 


0374 


47121 


071630 


STA 


MMT6 


SOURCE MATRIX 


0375 


47122 


035630 


INV14 ISZ 


MMT6 


MOVE 


0376 


47123 


035630 


ISZ 


MMT6 


TO 


0377 


47124 


035631 


ISZ 


MMT7 


NEXT 


0378 


47125 


035631 


ISZ 


MMT7 


COLUMN 


0379 


47126 
47127 


104200 
001622 


OLD 


SCALR 


COMPUTE 


0380 


47130 


015406 


JSB 


,FMP 




0381 


47131 


101630 


DEF 


MMT6,I 




0382 


47132 
47133 


104400 
001624 


DST 


MAXE 


TRANSFORMED 


0383 


47134 
47135 


104200 
101631 


DUD 


MMT7,I 




0384 


47136 


015404 


JSB 


t FSB 




0385 


47137 


001624 


DEF 


MAXE 


ELEMENT 


0386 


47140 
47141 


104400 
101631 


DST 


MMT7#I 




0387 


47142 


035637 


ISZ 


MMT5 


ROW DONE? 


0388 


47143 


027122 


JMP 


INV14 


NO 


0389 


47144 


061362 


INV15 LDA 


IDl 


YES, SET POINTER TO PIVOT 


0390 


47U5 


071630 


STA 


MMT6 


ROW OF DESTINATION MATRIX 


03gl 


47146 


061632 


LDA 


MMT0 


SET 


0392 


47147 


071636 


STA 


MMT4 


COUNTER 


0393 


47150 
47151 


104200 
101630 


INV16 OLD 


MMT6,I 


COMPUTE 


0394 


47152 


002003 


SZA, 


RSS 




0395 


47153 


027166 


JMp 


INV17 




0396 


47154 


015406 


JSB 


,FMP 




0397 


47155 


001622 


DEF 


SCA^R 


TRANSFORMED 


0398 


47156 
47157 


104400 
001624 


DST 


MAXE 




0399 


47160 
47161 


104200 
101400 


DLD 


VT0,I 




0400 


47162 


015404 


JSB 


.FSB 




0401 


47163 


001624 


DEF 


MAXE 


ELEMENT 


0402 


47164 


104400 


DST 


VT0,I 
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0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 

0412 

0413 

0414 

0415 

0416 

0417 

0416 

0419 

0420 

0421 

0422 

0423* 

0424* 

0425* 

0426 

0427 

0428 

0429* 

0430 

0431 

0432 

0433* 
0434 

0435 
0436 
0437 
0438 

0439 

0440*. 

0441 

0442 

0443 

0444* 
0445 
0446 
0447 

0446 
0449 
0450 
0451 

0452 
0453 

0454 



47165 101400 

47166 035400 INV17 IS2 VT0 

47167 035400 ISZ VT0 

47170 035630 ISZ MMT6 

47171 035630 ISZ MMT6 

47172 035636 ISZ MMT4 

47173 027150 J MP INV16 

47174 061376 INV1B LOA MMT8 

47175 041635 ADA MMT3 

47176 035634 ISZ MMT2 

47177 027102 JMP INV13 

47200 035633 ISZ MMTl 

47201 026673 JMp InV3 

47202 061330 LOA TMPST 

47203 040406 ADA .*23 

47204 070056 STA P8PTR 

47205 124762 JMP X£CtA,I 

47206 061400 INV19 LD A VT0 

47207 041635 ADA MMT3 

47210 071400 STA VT0 

47211 027174 JMP INV18 

* 

* code to compute an element ** 



47212 015402 MADD 

47213 101352 

47214 026321 



47215 015404 

47216 101352 

47217 026321 



47220 
47221 
47222 
47223 
47224 
47225 
47226 



035362 
026325 
061514 
071362 
104200 
046021 
026325 



MSUB 



IDN 



JSB ,FAD 
DEF BS3,I 
JMP MLOP1 

JSB FSB 
DEF 8S3,I 
JMP MLOPl 



ISZ 
JMP 
LDA 
STA 
OLD 



ID1 

ML0P3 

ID0 

IDl 

F1.0 



47227 015406 

47230 001622 

47231 026323 



JMP ML0P3 

SMULT JSB ,FMP 

DEF SCALR 

JMP ML0P2 



47232 
47233 
47234 
47235 
47236 
47237 
47240 
47241 

47242 
47243 
47244 
47245 



002020 
015370 
104400 
001622 
015404 
001624 
002002 
002020 
027247 
104200 
001622 
104400 



MCpY 



SSA 

JSB ARINV 

DST SCALR 

JSB ,FSB 

DEF MAXE 

SZA 

SSA 

JMP MCPYl 

OLD SCALR 

DST MAXE 



MOVE 

TO 
NEXT 
COLUMN 
ROW DONE? 
NO 
YES, MOVE TO NEXT 

ROW IN SOURCE MATRIX 
ALL ROWS TRANSFORMED! 
NO 

YES, MATRIX INVERTED? 
NO 
YES 
RELEASE EXTRA 

CORE 

advance to 
next row of 

DESTINATION 
MATRIX 



ADD 

SOURCE 

elements 
subtract 

SOURCE 
ELEMENTS 

DIAGONAL ELEMENT? 

NO 

YEs, REsEt 

DIAGONAL COUNTER 
LOAD 

MULTIPLY 

SOURCE ELEMENT 
BY SCALAR 

GET 

ABSOLUTE 
VALUE 

SUBTRACT 
PREVIOUS 
MAXIMUM 
POSITIVE RESULT? 
NO 
YES, RECORD 

NEW MAXIMUM 
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47246 


001624 








04b5 


47247 
47250 


104200 
101350 


MCPY1 


OLD BS2,I 


RELOAD VALUE 


0456 


47251 


126004 




JMP MLP2A r I 




0457** 






** 




0458*** check validity of matrix *** 




0459** 






** 




0460* 












0461* 


ENTER WITH (B) POINTING TO THE j 


DYNAMIC ARRAY DIMENSIONS, 


0462* 


COMPUTE THE 


NUMBER 


OF ELEMENTS , 


AND CHECK EACH ONE, EXIT 


0463* 


To Error if 


ANY ELEMENT HAS VALUE »UNOEFINED« t 


0464* 












0465 


47252 


160001 


#VCHK 


LDA lrl 


LOAD ROW DIMENSION 


0466 


47253 


006004 




IN6 




0467 


47254 


075400 




STB VT0 




0468 


47255 
47256 


100200 
101400 




MPY VT0,I 


MULTIPLY BY 


0469 


47257 


065400 




LDB VT0 


COLUMN DIMENSION 


0470 


47260 


003000 




CMA 


SAVE JiS COMPLEMENT 


0471 


47261 


071400 




STA VT0 


OF MATRIX SI 2 E 


0472 


47262 


035400 


VCHKl 


ISZ VT0 


DONE? 


0473 


47263 


006005 




INB,R3S 


NO, MOVE TO NExT ELEMENT 


0474 


47264 


125470 




JMp VCHK,I 


YES 


0475 


47265 


160001 




LDA |,I 




0476 


47266 


001222 




RALfRAL 


IS 


0477 


47267 


002004 




INA 


OPERAND 


0478 


47270 


001310 




RAR,SLA 


NORMALIZED? 


0479 


47271 


027301 




JMP VCHK2 


YES 


0480 


47272 


051027 




CpA BIT15 


M AYBE f WAS FIRST WORD ZERO? 


0481 


47273 


006005 




INB RSS 


YES 


0482 


47274 


115126 




J8B RERRS+23 


,1 NO.^ERROR 


0483 


47275 


160001 




LDA 1,1 


SECOND 


0484 


47276 


002002 




SZA 


WORD ZERO? 


0485 


47277 


115126 




jSB RERRS+23 


, I NO»*ERROR 


0486 


47300 


027262 




JMP VCHKl 




0487 


47301 


006004 


VCHK2 


INB 




0488 


47302 


027262 




JMP VCHKl 
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0490** 

0491** 

0492** 

0493* 

0494* 

0495* 

0496* 

0497* 

0498* 

0499* 

0500* 

0501* 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0620 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 

0530 
0531 
0532 
0533 
0534 
0535 



** 
REDIMENSION A MATRIX *** 

** 

UPON ENTRy (TEMPl)*l POINTS TO THE REDIMENSION SUBSCRIPT IN 
THE PROGRAM AND SBPTR POINTS TO THE CURRENT DYNAMIC DIMENSIONS 



OF j h E ARRAY, 
AnD RECORDED, 

physical array 
word following 
exit to error. 



the subscript bounds are evaluated, royhded, 
if the number of elements is within the 
allowance, exit with tempi pointing to the 

THE SUBSCRIPT AND SfiPTR aS UPON ENTRY, ELSE 



47303 
47304 
47305 
47306 
47307 
47310 
47311 
47312 
47313 
47314 
47315 
47316 
47317 
47320 
47321 
47322 
47323 
47324 
47325 
47326 
47327 
47330 
47331 
47332 
47333 
47334 

47335 
47336 
47337 
47340 
4734I 
47342 
47343 
47344 
47345 
47346 



035611 
015356 
015342 
115120 
006004 
175572 
075470 
035572 
165611 
006003 

027321 
015356 
015342 
115120 
006004 
175572 
061470 
100200 
101572 
006003 
003025 
115130 
071470 
066572 
044354 
160001 
006004 
075572 
100200 
101572 
035572 
041470 
002020 
115130 
035611 
125466 



#RDIM ISZ TEMPI COMPUTE NEW 

JSB FETCH ROW DIMENSION 

JSB SBFIx 15 BIT IN T EGER > 0? 

JSB RERRS*17,I NO 

INB YES, SAVE 

STB SBPTR, I TRUE y*LUE 

STB RD0 IN ARRAy 

ISZ SBpTR ENTRY 

ldb tempi, i explicit new 

szb,rss column dimension? 

jmp rdim1 no 

jsb fetch yes, 

jsb sbfix compute 

jsb rerrs+17,1 it 

rdimi inb save true value 

stb sbpt*,i in array entry 

lda rd0 compute 

mpy sbptr, i number of 

szb,rss elements 
cma,ssa,ina,rss specified 

jSB RERRS*25,i TOO MANY 
STA RD0 

RESET 

ARRAY POINTER 

ANO COMPUTE 
NUMBER OF 
ELEMENTS 
AVAILABLE 



LDB SBPTR 

ADB ,»3 

LDA 1,1 

INB 

STB SBPTR 

MPY SBPTR,! 



ISZ SBPTR FOR ARRAY 

ADA RD0 SUFFICIENT 

SSA PHYSICAL SPACE? 

JSB RERRS+25,1 NO 

ISZ TEMPI YES 

JMP REDIM,I 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0018* 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029* 

0030 

0031 

0032* 

0033* 

0034* 

0035* 

0036* 

0037* 

0038* 

0039* 

0040* 

0041* 

00 4 2 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 



50000 

50000 174000 

50001 052470 

50002 001614 

50003 000112 

50004 000113 

50005 177670 

50006 177666 

50007 176030 

** PRINT A NU 



ORG 50000B 

HMASK OCT 174000 

LCALL DEF LIS10-1 

NMBFA DEF NUMBF 

.74 DEC 74 

,75 DEC 75 

MM72 DEC -72 

MM74 DEC «74 

H1000 DEC »1000 

** 

mber *** 
** 



ENTER WITH A FLOATING POINT NyMBER IN (A) AND (B) f PRINT THE 
NUMBER AND APPEND BLANKS TO REACH THE PRINT POSITION 8PECIHED 
BY -EOPF ON RETURN FROM NUMOT* 

50010 002300 #ENOT CCE 

50011 015420 

50012 026015 

50013 060417 

50014 015452 

50015 065456 

50016 045570 

50017 006002 

50020 026013 

50021 125416 



CCE 


ENABLE SIGN 


JSB NUMOT 


OUTPUT NUMBER 


JMP **3 




LDA f +40B 


OUTPUT 


■JSB OUTCR 


A B L ANK 


LDB EopF 


field 


adb chrct 




SZB 


FULL? 


JMP *-5 


NO 


JMP ENOUT,I 


YES 



50022 114631 

50023 116373 

50024 102756 

50025 002050 



MINFX DEC »0 t 099999959 
MAXFX DEC „999999 # 5 



** OUTPUT 

* 



A NUMBER 



** 

*** 

** 



1 



enter with a floating point nymber in (a) and (b) and (e) i 
if a sign is wanted. determine the form of the number and 
set eopf accordingly, non.integers are rounded after conversion 
to decimal. trailing zeros are suppressed on numbers without 
Exponen ts (and on numbers with exponents if called from »lIst'). 



50026 0716U #NMOT STA NUMBF 

50027 002041 SEZ,RSS 

50030 026042 JMP NUMOl 

50031 002021 SSA,RSS 

50032 026037 JMP *+5 

50033 015370 JSB ARINV 

50034 071614 STA NUMBF 

50035 060434 LDA ,+558 

50036 002001 RSS 

50037 060417 LDA ,*40B 

50040 071266 STA SIGN 

50041 061614 LDA NUMBF 

50042 075615 NUMOl STB NUMBF+1 

50043 015414 JSB IFIX 



SAVE HIGH MANTISSA 

SIGN? 

NO 

YES, NEGATIVE NUMBER? 

NO 

YES, NEGATE NUMBER 
SAVE HIGH MANTISSA 
LOAD '-• 

LOAD •♦• 

SAVE SIGN 

RETRIEVE HIGH MANTISSA 

SAVE LOw MANTISSA 

Integer? 
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0056 


50044 


026070 


JMP NUM02 


NO 


0057 


50045 


102201 


SOC 


YES, 16«BIT INTEGER? 


0058 


50046 


026070 


JMP NUM02 


NO 


0059* 






* 




0060** OUTPUT AN INTEGER 


** 




0061* 






* 




0062 


50047 


075614 


STB NUMBF 


SAVE INTEGER 


0063 


50050 


046007 


AD6 H1000 




0064 


50051 


060365 


LDA f +6 




0065 


50052 


006021 


SSB,RSS 


3 DIGIT INTEGER? 


0066 


50053 


040362 


ADA f +3 


NO 


0067 


50054 


041570 


ADA CHRCT 


COMPUTE END-OF.FIELD 


0068 


50055 


003004 


CMA,INA 


SAVE 


0069 


50056 


071456 


STA EOPF 


IT 


0070 


50057 


042003 


ADA ,74 


ENOUGH 


0071 


50060 


002020 


SSA 


ROOM? 


0072 


50061 


015424 


JSB OUTIN 


NO 


0073 


50062 


061266 


LDA SIGN 


YES 


0074 


50063 


002002 


SZA 


SIGN? 


0075 


50064 


015452 


JSB OUTCR 


YES, OUTPUT IT 


0076 


50065 


065614 


LDB NUMBF 


NO 


m77 


50066 


015454 


JS8 OUTIN 


OUTPUT THE INTEGER 


0078 


50067 


125420 


JMP NUMOT,I 




0079* 








* 


0080** OuTPuT A FLOATING 


point number 


** 


0081* 








* 


0082 


50070 


060355 NUM02 


IDA t ~2 


SET »FIXEDt 


0083 


50071 


071336 


STA FFLAG 


FLAG FALSE 


0084 


50072 
50073 


104200 
001614 


DLD NUMBF 


LOAD NUMBER 


0085 


50074 


015402 


JSB t FAD 


IS NUMBER 


0086 


50075 


050024 


DEF maxfx 


LESS THAN 


0087 


50076 


002021 


SSA,RSS 


999999,5 ? 


0088 


50077 


026106 


JMP NUM03 


NO 


0069 


50100 
50101 


104200 
001614 


DLD NUMBF 


YES, IS 


0090 


50102 


015402 


JSB ,FAD 


NUMBER 


0091 


50103 


050022 


DEF MINFX 


LESS THAN 


0092 


50104 


002021 


SSA,RSS 


0,09999995 ? 


0093 


50105 


035336 


ISZ FF L AG 


NO, SET 'FIxEDi F L AG TRUE 


0094 


50106 
50107 


104200 NUMO3 
001614 


DLD NUMBF 


LOAD NUMBER 


0095 


50U0 


071316 


STA MANT1 


UNPACK 


0096 


50111 


015412 


JSB # FLUN 




0097 


50112 


075320 


S|B MANf2 


number 


0098 


50113 


071322 


STA EXP 




0099 


50114 


002400 


CLA 


INITIALIZE 


0100 


50115 


071324 


STA EXPON 


DECIMAL EXPONENT 


0101 


50116 


051322 


CPA EXP 


zero Exponent? 


0102 


50117 


026141 


JMP NUM05 


YES 


0103 


50120 


015300 NUMO0 


J3B M8Y10 


NO 


0104 


50121 


061322 


LDA EXP 


MULTIPLY 


0105 


50122 


003026 


CMA,SSA, INAf 


SZA NUMBER BY 10 


0106 


50123 


026126 


JMP *+3 


UNTIL IT IS 


0107 


50124 


035324 


ISZ EXPON 


GREATER 


0108 


50125 


026120 


JMP NUMO0 


THAN 1 



PACE 


0196 * 
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0109 


50126 


015302 




JSB 


DBY10 


DIVIDE By 10 


0110 


50127 


061324 




LDA 


EXPON 




0111 


50130 


065322 


NUM04 


LOB 


EXP 


DIVIDE 


0112 


50131 


007004 




CMB, 


,INB 


NUMBER 


0113 


50132 


006021 




SSB, 


.RSS 


BY 10 


0114 


50133 


026141 




JMP 


NUM05 


UNTIL 


0115 


50134 


071324 




STA 


EXPON 


IT IS 


0116 


50135 


015302 




JSB 


DBY10 


LESS 


0117 


50136 


003400 




CCA 




THAN 


0118 


50137 


041324 




ADA 


EXPON 


1 


0119 


50140 


026130 




JMP 


NUM04 




0120 


50141 


003000 




CMA 




set Exponent 


0121 


50142 


071324 




SjA 


EXPON 


to tRU e value*i 


0122 


50143 


064351 




LOB 


t «»6 


set digit 


0123 


50144 


075356 




STB 


DIGCT 


COUNTER 


0124 


50145 


066002 




LDB 


NMBFA 


SET BUFFER 


0125 


50146 


075362 




STB 


NMPTR 


POINTER 


0126* 










- * 




0127** CONVERT MANTISSA 


TO ASCII ** 




0126* 










* 




0129 


50147 


015422 


NUM06 


JSB 


GLTDG 


STORE A 


0130 


50150 


040437 




ADA 


t *60B 


DECIMAL 


0131 


50151 


171362 




STA 


NMPTR, I 


DIGIT 


0132 


50152 


035362 




IS2 


NMPTR 




0133 


50153 


035356 




isz 


DIGCT 


SIXTH DIGIT? 


0134 


50154 


026147 




JMP 


NUMQ6 


NO 


0135 


50155 


015422 




JSB 


GETDG 


YES, 


0136 


50156 


040352 




ADA 


t <*5 


NEXT DIGIT 


0137 


50157 


002020 




SSA 




** 5 ? 


0136 


50160 


026201 




JMP 


NUMQ9+1 


NO 


0139* 










* 




0140** ROuND ASCII 


MANTISSA 


** 




0141* 










* 




0142 


50161 


065362 




LDB 


NMPTR 




0143 


50162 


044356 


NUK07 


ADB 


.-1 


LOAD LAST 


0144 


50163 


160001 




LDA 


1,1 


DIGIT 


0U5 


50164 


002004 




INA 




INCREMENT IT 


0146 


50165 


050452 




CPA 


,58 


WAS IT A 9? 


0147 


50166 


002001 




RSS 




YES 


0148 


50167 


026200 




JMP 


NUM09 


NO 


0149 


50170 


056002 




CPB 


NMBFA 


LEADING DIGIT? 


0150 


50171 


026175 




JMP 


NUMQ8 


YES 


0151 


50172 


060437 




LDA 


.+60B 


NO, OVERLAY 


0152 


50173 


170001 




STA 


1,1 


A 


0153 


50174 


026162 




JMP 


NUMQ7 




0154 


50175 


03g324 


NUM08 


ISZ 


EXPON 


BUMP DECIMAL 


0155 


50176 


000000 




NOP 




EXPONENT AND 


0156 


50177 


060440 




LDA 


.+61B 


OVERLAY A 1 


0157 


50200 


170001 


NUM09 


STA 


1,1 




0158 


50201 


061324 




LDA 


EXPON 


IS NUMBER 


0159 


50202 


002021 




SSA, 


rRSS 


LESS THAN 1 ? 


0160 


50203 


026221 




JMP 


NMOll 


NO 


0161 


50204 


071360 




STA 


NMTMP 


YES 


0162 


50205 


060437 




LDA 


t + 60B 




0163 


50206 


065362 




LDB 


NMPTR 




0164 


50207 


035360 


NMO10 


ISZ 


NMTMP 


COUNT ZEROS 
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0165 
0166 

0167 

0168 
0169 
0170 
0171 

0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 

01 8 7 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201* 

0202** 

0203* 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220* 



50210 
50211 
50212 
50213 
50214 

50215 
50216 

50217 
50220 
50221 
50222 
5022^ 
50224 
50225 
50226 
50227 
50230 
50231 
50232 
50233 
50234 
50235 
50236 
50237 
50240 
50241 
50242 
50243 
50244 
50245 
50246 
50247 
50250 
50251 
50252 
50253 



000000 
044356 

150001 
026207 

061360 
002020 
026221 
003400 
071336 
064373 
035336 



362 
045570 
007004 
075456 
046004 
006020 
015424 
061266 
002002 
015452 
064350 
075356 
065362 
003400 
051336 
026247 
061324 
003000 
071360 
026261 
071360 
062001 
051420 
026261 
026303 



NOP 
ADB 

CPA 
JMP 
IDA 
SSA 
JMP 
CCA 
STA 
NMQ11 LDB 

ISZ 

ADB 

ADB 

CMB, 

STB 

ADB 

SSB 

JSB 

LDA 
SZA 
JSB 

LDB 
STB 
LDB 
CCA 
CPA 
JMP 
LDA 
CMA 
STA 

JMP 
STA 

LDA 
CPA 
JMP 
JMP 



DELETE TRAILING ZEROS 



50254 

50255 
50256 
50257 
50260 
50261 
50262 
50263 
50264 
50265 
50266 
50267 
50270 
50271 
50272 
50273 



061356 
002004 
051360 
026265 
071356 
044356 
160001 

050437 
026254 
003400 
051336 
026303 
061324 

002021 
026303 
071360 



NM012 



NM016 



• «1 

1,1 

NMO10 

NMTMP 

NMOll 

FFLAG 

.♦12 
FFLAG 

s*3 

CHRCT 

INB 

EOPF 

.75 

OUTLN 
SIGN 

OUTCR 

DIGCT 
NMPTR 

fflag 

* + 5 
EXPON 

NMTMP 
NM016 
NMTMP 
LCALL 
NUMOT 
NM016 
NM014 
* 
** 



LDA 

INA 

CPA 

JMP 

STA 

ADB 

LDA 

CPA 

JMP 

CCA 

CPA 

JMP 

LDA 

SSA, 

JMP 

STA 



PLUS 1 
LAST 

DIGIT 0? 
YES 
NO, ALL SIGNIFICANCE 

IN SIX DIGITS* 
NO 
YES, SET 

»FIXED' FLAG TRUE 
COMPUTE 

FIELD 
WIDTH 
SAVE 

END-OF.FIELO 
MARKER 
ENOUGH 

ROOM? 
NO 
YES 
SIGN? 

YES, OUTPUT IT 
SET OUTPUT 

DIGIT COUNTER 

FIXED 

Format? 

NO 

yes, set 
indicator to 
decimal point 

set Indicator for decimal point 

CALLED 

FROM 'LIST' ? 
YES 

NO 



DIGCT 


AT RIGHT OF 




DECIMAL 


NMTMP 


POINT? 


**6 


NO 


DIGCT 


YES, DELETE ZERO 


• •1 


LAST 


1,1 


DIGIT 


,+60B 


0? 


NM012 


YES 




NO, FIXED 


FFLAG 


FORMAT? 


NM014 


NO 


EXPON 


YES, LEADI N G 


RSS 


DECIMAL POINT? 


NM014 


NO 


NMTMP 


YES, SET LEADING ZEROS COUNTER 
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0221** 

0222* 

0223 

0224 

0225 

0226 

0227 

0226 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0236 

0239 

0240 

0241 

0242 

0243 

0244* 

0245** 

0246* 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0256 

0259 

0260 

02 6 1 

0262 

0263 

0264 

0265 

0266** 

0267** 

0266** 

0269* 

0270* 

0271* 

0272* 

0273 

0274 

0275 



OUTPUT MANTISSA 



50274 
50275 
50276 
50277 
50300 
50301 
50302 
50303 
50304 

tr ri «* /*■ c 

50306 
50307 
50310 
50311 
5&312 

50313 
50314 
50315 
50316 
50317 
50320 



060435 
002001 
060437 
015452 
035360 
026276 
035356 
066002 
075362 
026312 
035360 

026312 
060435 
026314 
161362 
035362 
015452 
035356 
026306 

035336 
125420 



** 
* 

IDA 
RSS 
NM013 IDA 
JSB 
ISZ 
JMP 

ISZ 

NM014 LDB 

STB 

JMP 

N*0l5 I3Z 
JMP 
LDA 
JMP 
LDA 
ISZ 
JSB 
ISZ 
JMP 
ISZ 
JMP 



,*56B 

,+60B 
OUTCR 
NMTMP 
NM013 

DIGCT 
NMBpA 

NMPTR 

** 5 

NMTMp 

* + 3 

,*56B 

*+3 

NMPTRrI 

NMPTR 

OUTCR 

DIGCT 

NM015 

FFLAG 

NUMOTf I 



OUTPUT THE EXPONENT 



* 
** 



50321 
50322 
50323 
50324 
50325 
50326 
50327 
50330 
50331 
50332 
50333 
50334 
50335 
50336 
50337 
50340 

50341 
50342 
50343 
50344 



060464 
015452 
060434 
065324 
006020 
007005 
060432 
075324 
015452 
061324 
006400 
100400 
000371 
040437 
044437 
075324 

015452 
061324 

015452 
125420 



LDA 
JSB 
LDA 
LDB 
SSB 
CMB 
LDA 
STB 
JSB 
LDA 
CUB 
DIV 



* 
E 

OUTCR 

♦ 55B 

EXPON 

,INB,RSS 
,453B 
EXPON 
OUTCR 
EXPON 

• + 1<3 



ADA ,+60B 
ADB f *60B 
STB EXPON 
JSB OUTCR 
LDA EXPON 

JSB OUTCR 
JMP NUMOT#I 
** 



* GET DIGIT TO OUTPUT *** 



COMPUTE NEXT 
SUBTRACT IT 

50345 015300 

50346 065322 

50347 007004 



** 

DECIMAL DIGIT AND 
OUT OF THE NUMBER, 

#GTDG JSB MBY10 
LDB EXP 
CMB,INB 



OUTPUT A 

DECIMAL POINT 
OUTPUT 

A ZERO 
MORE LEADING ZEROS? 
YES 

NO, COuNT DECIMAL PQINj 
SET 

DIGIT POINTER 

DECIMAL PQlNT N EXT? 

NO 

YES, LOAD IT 

LOAD NEXT 

DIGIT 
OUTPUT CHARACTER 

more digits? 

YES 

NO* EXPONENT? 
NO 



OUTPUT AN »E' 
OUTPUT 

AN 

Exponent 
sign 

COMPUTE 

EXPONENT'S 

10'S DIGIT 
OUTPUT IT 
OUTPUT 

l»S DIGIT 



RETURN WITH IT IN (A), 



MULTIPLY BY 10 
GET EXPONENT IN (B) 
AS NEGATIVE 
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0276 


50350 


012000 


AND HMASK 


RETAIN HIGH 5 BITS 


0277 


50351 


001200 


RAL 


NORMALIZE TO BIT 18 


0278 


50352 


006024 


SSBflNB 


ROTATE INTEGER 


0279 


50353 


026351 


JMP *„2 


INTO (A) 


0280 


50354 


010500 


AND B377 


EXTRACT 


0281 


50355 


071402 


STA FD0 


DIGIT 


0282 


50356 


065322 


LDB EXP 


ROTATE 


0283 


50357 


007004 


CMB,INB 




0284 


50360 


001300 


RAR 


BACK 


0285 


50361 


006024 


S8B,INB 




0286 


50362 


026360 


JMP #-2 




0287 


50363 


021316 


XOR MANT1 


REMOVE 


0288 


50364 


065320 


LDB MANT2 


DIGIT 


0289 


50365 


015304 


JSB NORML 


NORMALIZE REMAINDER 


0290 


50366 


061402 


LDA FD0 


LOAD (A) WITH DIGIT 


0291 


50367 


125422 


JMP getdg,i 
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0293** 
0294** 

0295** 

0296* 

0297* 

0298* 

0299* 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 
0309 
0310 
0311 

0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 

0321** 

0322** 

0323** 

0324* 

0325* 

0326* 

0327* 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 



** 



* OUTPUT AN INTEGER *** 



** 



ENTER WITH A POSITIVE INTEGER IN CB). 
LEADING ZEROS, 



OUTPUT IT WITHOUT 



50370 
50371 
50372 
50373 
50374 
50375 
50376 
50377 
50400 
50401 
50402 
50403 
50404 
50405 
50406 
50407 
50410 
50411 
50412 
50413 
50414 
50415 



060353 
071374 
061015 
071444 
002400 
071452 
101040 
100400 
101444 

075450 
051452 
026406 
040437 
015452 
065450 
035444 
035374 
026376 
060001 
040437 
015452 
125454 



* SPACE FOR 



#OTIN LDA # ~4 

StA OGCNt 

LO* LOVSR 

STA OT1 

CLA 

STA oUTCR 

0UTI1 LSR 16 

DIv OTl,I 

STB 0T3 

CPA OUTCR 

JMP 0UTI2 

ADA ,+60B 

JSB OUTCR 

0UTI2 LDB 0T3 

ISZ T 1 

ISZ OGCNT 

JMP OUTli 

LDA 1 

ADA .+60B 

JSB OUTCR 

JMP OUTlNf 
#* 

a Comma *** 
** 



set digit 
counter 
set divisor 

ADDRESS 
SUPPRESS 

ZEROS 
DIVIDE INTEGER BY 

CURRENT DIVISOR' 

SAVE THE REMAINDER 

LEADING ZERO? 

YE$ 

NO# TURN OFF ZERO SUPPRESS 

OUTPUT DIGIT 

RETRIEVE REMAINDER 

SET FOR NEXT OlylSOR 

ALL DlylaORs UsEDT 

NO 

YES 

OUTPUT 

LAST DIGIT 



MOyE T° THE NEXT FI Et-& OF 15 ON T HE PRINT LINE OR T& THf 

NEXT LINE IF THE CURRENT ONE IS EXHAUSTED. 

504*6 065570 #EDLM LDB CHRCT LOAD CURRENT CHARACT|R COUNT 

50417 006003 SZB,RSS ZERO? 

50420 125426 JMP EDELM, I yEs, At START OF ZONE 

50421 044340 ADB ,-15 NO, SUBTRACT ZONE WIDTH 

50422 006021 SSB,RSS NON*NEGATIV£ RESULT? 

50423 026417 JMP #EDLM+i YES 

50424 075470 sTB EOL NO, SAVE COUNT 

50425 060417 LDA ,+40B OUTPUT 

50426 015452 JSB OUTCR A BLANK 

50427 035470 ISZ EOL ZONg FULL? 

50430 026425 JMP *~3 NO 

50431 065570 lDB CHrCT YES, 

50432 046006 aDB MM74 PAST THE 

50433 006021 S3B,RSS END OF LINE? 

50434 015424 J$B OUTLN YES 

50435 125426 JMP EDELM, I NO 
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0345* 

0346* 

0347* 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0357 

0358* 

0359* 

0360* 

0361* 

0362* 

0363* 

0364* 

0365* 

0366* 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 
03 77 

0378 

0379 

0380 

0381 

0382* 

0383* 

0384* 

0385* 

0386* 

0387* 
0388 

0389 
0390 
03gl 
0392 
0393 



** OUTPUT AN 

50436 
50437 
50440 
50441 
50442 
50443 
50444 
50445 



065456 
045570 
075456 
060402 
015452 
060374 
015452 
060371 



'«*«*' 



50447 



015452 
125424 



* 
#* 

* 



OUTPUT A C 



** 

END-OFFLINE ft** 

ft* 

#0TLN LOB EOPP 

ADB CHRCT 

STB EOPF 

LOA ,+23B 

JSB OUTCR 

IDA ,*15B 
JSB OUTCR 
LDA ,4128 
JSB OUTCR 
JMP OUTtN, 

** 
HArACtEr *** 

*ft 



RESET 

END«OF«FIELD 
MARKER 
OUTPUT 

AN X.OFF 

OUTPUT A 

CARRIAGE RETURN 
AND A 

LINE FEED 



OUTPUT THE CHARACTER IN (A). NONPRINTING CHARACTERS DO NOT 
COUNT AGAINST THE 72 CHARACTERS PER LINE, A CARRIAGE RETURN 
PCONtrOL Of IN A STRING Or AN END-OF*LIN£ f FQr EXAMPLE) 
RESETS THE PRINT POSITION TO 0, 



S0450 
50451 
50452 
50453 
50454 
50455 
50456 
50456 
50457 
50460 
50461 
50462 
50463 
50464 

50465 
* 
ft* 



071310 
050474 
026456 
010470 
002002 
035570 

006400 
061310 
050374 
075570 
064272 
044341 
114724 
125452 



#OTCR STA 
CPA 
JMP 
AND 
SZA 
ISZ 

OTCRA EQU 
CLB 
t DA 
CPA 
STB 
LDB 
ADB 

JSB 

JMP 



BACKSPACE IN BUFFER 



BACKSPACE IN BuFFEr 



50466 
50467 
50470 
50471 
50472 
50473 



060255 
002004 
160000 
030245 
114736 
125450 



#BKSP 



LDA 
INA 
LDA 
IOR 
JSB 
JMP 



OCTMP 
B177 

OTCRA 
,140 

CHRCT 



OCTMP 
.♦15B 
CHRCT 
MLINK*1 
,*?LINK 
OUTCH# I 
OUTCR, I 
** 

• * 



MAIN 

0,1 
BKS 

S14LP,I 
BCKSP,I 



SAVE CHARACTER 
CHECK FOR 

RUBOUT 
NONPRINTING 

CHARACTER? 
NO, COUNT IT 



RETRIEVE CHARACTER 

CARRIAGE RETURN? 

YES, ZERO CHARACTER COUNT 



TELL 2114 

TO BACKSPACE 
IN BUFFER 
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0395** 

0396** 

0397** 

0398* 

0399* 

0400* 

0401* 

0402 

0403 

0404 

0405 

0405 

0407 

0406 

0409 

0410 

0411 
0412 
0413 
0414 

04l5 
0416 
0417 
0418 
0419 

0420 
0421 
0422 
0423 
0424 



* FETCH NEXT BUFFER CHARACTER 



** 
*** 

** 



THE 
EXIT 
IF IB 
50474 
50475 
50476 
50477 
50500 
50501 
50502 
50503 
50504 

50505 
50506 
50507 
50510 

505 11 
50512 
50513 
50514 
50515 
50516 
50517 
50520 
50521 
50522 



NEXT CHARACTER 

IS TO (P>2) W 

LANKi « 40 OCT 



FROM THE INPUT BUFFER IS FETCHED, NORMAL 
ITH THE CHARACTER IN (A). BLANKS ARE SKIPPED 
At, A 'CARRIAGE RETURN» EXITS TO (R+l) 



060215 #GTCR LDA GTC 

064255 LDB MAIN 

006004 INB 

130001 IOR lrl 

006400 CL8 

174632 STB DCLClrl 

114736 JSB Sl4SC,I 

102311 SFS CH2 

026503 JMP *„1 

102511 LIA CH2 

164634 LDB DCLC2,I 

174632 STB qCLC1,I 

051571 CPA BLANK 

026474 JMP #GTCR 

050374 CPA ,*15B 

125446 JmP GETCR,I 

064000 LDB 

040317 ADA M96 

002021 SSA,RSS 

040450 ADA M32 

040470 ADA ,140 

035446 ISZ GETCR 

125446 JMP GETCR, I 



LOAD OPCODE 

FOR GET CHARACTER 
«> TTY U 

TTY IN BITS 12*8 
BLOCK 

CLOCK 
CALL 2114 DRIVER 

WAIT FOR 

RESPONSE 
LOAO CHARACTER 
UNBLOCK 

CLOCK 
BLANK? 

YES»*IGNORE IT 
NO, CARRIAGE RETURN? 
YES 
COPY CHAR TO B 

LOWER CASE 

MAKE INTO UPPER CASE 

NO**EXIT 
TO (P+2) 
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0426* 


* 




* 






0427** EXECUTE TAB(X) * 






0426* 


• 




* 






0429 


50523 


015440 


ETAB 


JSB ,IENT 


INTE6ERIZE ARGUMENT 


0430 


50524 


060273 




IDA INF 


ARC > 32767 


0431 


50525 


006400 




CLB 


SET FLAG TO 


0432 


50526 


075470 




STB EGL 


'TAB OCCURRED' 


0433 


50527 


065754 




LOB FFLG 


GET FORMAT FLAG 


0434 


50530 


006002 




SZB 


IN FORMATTER ? 


0435 


50531 


026536 




JMP ETAB2 


YES 


0436 


50532 


066005 




LDB MM72 




0437 


50533 


ZAA%\bZ 




ADS A 




0436 


50534 


006021 




SSB,RSS 




0439 


50535 


026550 




JMP ETAB4-1 


YES, GO TO NEXT LINE 


0440 


50536 


003004 


ETAB2 


CMA,INA 


NO 


0441 


50537 


041570 




ADA CHRCT 


any blanks 


0442 


50540 


002021 




SSA, RSS 


REQUIRED? 


0443 


50541 


026551 




JMP ETAB4 


NO 


0444 


50542 


071434 




STA LBTMP 


Y ES 


0445 


50543 


060417 


ETAB1 


LDA ,4.408 


OUTPUT 


0446 


50544 


015452 




JSB OUTCR 


A BLANK 


0447 


50545 


035434 




I3Z LBTMP 


DONE? 


0446 


50546 


026543 




JMP ETAB1 


NO 


0449 


50547 


002001 




RSS 


YES 


0450 


50550 


015424 




JSB OUTLN 




04 S 1 


50551 


061027 


ETAB4 


LDA BIT15 


SO OPCHK DOESN'T BAR 


0452 


50552 


124662 




JMP FRET,1 




0453* 






* 






0454** EXECUTE SPA(X) * 






0455 


50553 


015440 


E» 2j ■? W 


JSB *IENj 


INTEGErIZE ARGUMENT 


04 56 


50554 


060273 




LDA INF 


ARG > 32767 


0457 


50555 


006400 




CLB 


set Function flag 


0458 


50556 


075470 




STB EOL 


to executed 


0459 


50557 


002003 




SZA,RSS 


IS IT zero 1 


0460 


50560 


026606 




JMP E3PA4 


YES 


0461 


50561 


002020 




SSA 


NO, NEGATIVE? 


0462 


50562 


026606 




JMP ESPA4 


YES 


0463 


50563 


003004 




CMAtlNA 


NO 


0464 


50564 


071774 




STA REPCT 


OUTPUT 


0465 


50565 


065754 




LDB FFLG 




0466 


50566 


006002 




SZB 




0467 


50567 


026576 




JMP ESPAl 


NO 


0468 


50570 


040466 




ADA t 72 




0469 


50571 


065570 




LDB CHRCT 


SPACING PAST 


0470 


50572 


007004 




CMB,INB 


END OF LINE ? 


0471 


50573 


040001 




ADA 1 




0472 


50574 


002020 




SSA 




0473 


50575 


026605 




JMP E3PA4-1 




0474 


50576 


061571 


ESPAl 


LDA BLANK 




0475 


50577 


015452 




JSB OUTCR 




0476 


50600 


035774 




ISZ REPCT 




M77 


50601 


026576 




JMP ESPAl 




0478 


50602 


003400 




CCA 


RESET 


0479 


50603 


071774 




STA rEPCT 


REPCT 


0480 


50604 


002001 




RSS 




0481 


50605 


015424 




JSB OUTLN 
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0482 


50606 


061027 


ESPA4 


IDA BIT15 


SO OPCHK DOESN»T BARF 


0483 


50607 


124662 




JMP FREj, I 




0484* 






* 






0485* 






* 






0486** EXECUTE LIN(X) * 






0487* 






* 






0488 


50610 


015440 


ELIN 


JSB .IENT 


INTEGERIZE ARGUMENT 


0489 


50611 


060502 




IDA B400 




0490 


50612 


006400 




CLB 


SET FUNCTION FLAG 


0491 


50613 


075470 




STB EOL 


to Executed 


04 9 2 


50614 


002021 




SSA,RSS 


NO, NEGATIVE ? 


0493 


50615 


026632 




jMp ELINi 


NO 


0494 


50616 


040502 




ADA B400 




0495 


50617 


002020 




SSA 




0496 


50620 


002400 




CLA 




0497 


50621 


040316 




ADA M256 




0498 


50622 


071774 




STA REPCT 




0499 


50623 


060371 




IDA ,+12B 




0500 


50624 


015452 




JSB OUTCR 


REPCT LINEFEEDS 


0501 


50625 


035774 




ISZ REPCT 




0502 


50626 


026623 




JMP *-3 




0503 


50627 


003400 




CCA 




0504 


50630 


071774 




STA REPCT 


REINITIALIZE REPCT 


0505 


50631 


026656 




JMP ELIN2 


YES 


0506 


50632 


040316 


EUNi 


ADA M256 




0507 


50633 


002021 




SSA,RSS 


ARGUMENT > 2 56 ? 


0508 


50634 


002400 




CLA 




0509 


50635 


040502 




ADA 8400 




0510 


50636 


002002 




SZA 




0511 


50637 


026647 




JMP ELIN3 




0512 


50640 


060374 




LDA .+15B 




0513 


50641 


015452 




JSB OUTCR 




0514 


50642 


002400 




CLA 




0515 


50643 


015452 




JSB OUTCR 




0516 


50644 


002400 




CLA 




0517 


50645 


071570 




STA CHRCT 




0518 


50646 


026656 




JMP ELIN2 


YES 


0519 


50647 


003004 


ELIN3 


CMA,INA 




0520 


50650 


071774 




STA REPCT 


OUTPUT 


0521 


50651 


015534 




JSB OUTCL 


CR«4.F»S 


0522 


50652 


035774 




ISZ REPCT 




0523 


50653 


026651 




JMP *-2 




0524 


50654 


003400 




CCA 


RESET 


0525 


50655 


071774 




STA REPCT 


REPCT 


0526 


50656 


061027 


ELIN2 


LDA BIT15 


SO OPCHK DOESN'T BARf 


0527 


50657 


124662 




JMP FRET, I 
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0002* 


* 




* 








0003** COMPUTE ABSCX) * 








0004* 


* 




* 








0005 


50660 


002020 


EABS 


SSA 




ARGUMENT NEGATIVE? 


0006 


50661 


015370 




J36 


ARlNV 


YES, NEGATE IT 


0007 


50662 


124662 




JMP 


FRET, I 


NO 


0006* 


* 




* 








0009** COMPUTE INt(X) * 








0010* 














0011* 


ENTER WITH NUMBER 


IN ( A ) AND (B) 


• EXIT WITH FLOATING 


0012* 


point form of EnTIEr In ca) and 


(B) t 


0013* 














0014 


50663 


075434 


EINT 


STB 


LBTMP 


SAVE (B) 


0015 


50664 


015414 




JSB 


IFIX 


TAKE ENTXER 


0016 


50665 


026674 




JMP 


EINTl 


ALL SIGNIFICANCE IN MANTISSA 


0017 


50666 


075434 




STB 


LBTMP 


SAVE (B) 


0018 


50667 


064416 




L DB 


,+31 


CORRECT FOR 


0019 


50670 


075322 




STB 


EXP 


binary point bjas 


0020 


50671 


065434 




lob 


lbtmp 


RETRIEVE CB) 


0021 


50672 


015306 




JS8 


.PACK 


NORMALIZE AND PACK 


0022 


50673 


124662 




JMP 


FRET, I 




0023 


50674 


061260 


EINT1 


IDA 


TEMP6 


RETRIEVE 


0024 


50675 


065434 




LDB 


L8TMP 


NUMBER 


0025 


50676 


124662 




JMP 


FRET, I 




0026* 


* 




* 








0027** EXECUTE TIM(X) 


* 






0028* 


* 




* 








0029 


50677 


015414 


ETIM 


JSB 


IFIX 


INTEGERIZE ARGUMENT 


0030 


50700 


115152 




JSB 


rERRS*43, 


I ILLEGAL ARGUMENT 


0031 


50701 


002002 




SZA 






0032 


50702 


115152 




JSB 


RERRS+43, 


I ILLEGAL ARGUMENT 


0033 


50703 


060001 




tOA 


1 


IS ARGUMENT 


0034 


50704 


010362 




AND 


• ♦3 


<*3 AND 


0035 


50705 


050001 




CPA 


1 


*«0 7 


0036 


50706 


002001 




RSS 




YES 


0037 


50707 


115152 




JSB 


RERRS+43, 


I NQ.*XLLE6AL ARGUMENT 


0038 


50710 


042736 




ADA 


dtmtb 


BRANCH TO 


0039 


50711 


124000 




JMP 


0*1 


APPROPRIATE ROUTINE 


0040 


50712 


060172 


ETIM0 


LDA 


DATlW+1 


# OF 100 Ms 


0041 


50713 


040526 




ADA 


D36K 


UNITS 


0042 


50714 


006400 




CLB 




CONvIRT 


0043 


50715 
50716 


100400 
000510 




DIV 


D600 


TO MINUTES 


0044 


50717 


026734 




JMP 


ETIM3+1 




0045 


50720 


060171 


ETIM1 


LDA 


DATIM 


HOURS OF YEAR 


0046 


50721 


006400 




CLB 




CONVERT 


0047 


50722 
50723 


100400 




DIv 


.♦24 


TO DAYS 


0046 


50724 


060001 




LDA 


1 


REMAINDER IS HQuR OF DAY 


0049 


50725 


026734 




JMP 


ETIM3+1 




0050 


50726 


060171 


ETIM2 


LDA 


DATIM 


HOURS OF YEAR 


0051 


50727 


006400 




CLB 




CONVERT 


0052 


50730 
50731 


100400 
000407 




DIV 


,♦24 


TO DAYS 


0053 


50732 


002001 




RSS 






0054 


50733 


060170 


ETIM3 


LDA 


YEAR 


GET YEAR 
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0055 


50734 


105120 




OCT 105120 


CONVERT TO FLOATING POINT 


0056 


50735 


124662 




JMP FRET, I 


EXIT WITH RESULT IN (A) AND (B) 


005; 


50736 


150737 


DTMTB 


OEF *+l,I 




0058 


513737 


050712 




DEF ETIM0 




0059 


50740 


050720 




OEF ETIMt 




0060 


50741 


050726 




OEF ETIM2 




0061 


50742 


050733 




DEF ETIM3 




0062* 


* 




* 






0063** COMPUTE RND(X) * 






0064* 


• 




* 






0065* 












0066* 


THE RANDOM Nn 


MBER F 


UNCTION COMPu 


TES A RANDOM NuMBER FROM THE 


0067* 


FORMULAS: 








0068* 












0069* 


XI 


[N)*A*x( 


N»l)+C(MOD 2t30) 


(A»8tii,C*2t30*U/2*t/3QRO2m 


0070* 


RND «X/2t30 mIn 


(l«2t-23) 




0071* 












0072 


50743 




ERND 


EQu * 




0073 


50743 


002021 




SSArRSS 


POSITIVE ARGUMENT? 


0074 


50744 


026 7 51 




JMP ERND1 


YES f USE PREVIOUS VALUE 


0075 


50745 


005265 




R8L,CLE,ERB 


NO, MAKE A 


0076 


50746 


001600 




ELA 




0077 


50747 


071564 




STA RNDX! 


A NEW SEED 


0078 


50750 


075565 




STB RNDX2 




0079 


50751 




ERND1 


EQU * 




0080 


50751 


061564 




LDA RNDXt 


COMPUTE FIRST 


0081 


50752 
50753 


100200 
051013 




MPy RNDA2 


CROSS PRODUCT, 


0082 


5^754 


07*564 




STA RNDX1 


SAVE (ONLY NEED LOW ORDER PART? 


0083 


50755 


061565 




IDA RNDX2 


COMPUTE 2ND 


0084 


50756 
50757 


100200 
051012 




MPY RNDAt 


CROSS PRODUCT. 


0085 


50760 


041564 




ADA RNDXl 


ADD IN FIRST, 


0086 


50761 


043014 




ADA RNDC1 


ADD IN HIGH PART OF C. 


0087 


50762 


071564 




STA RNDXj 


SAVE TOTAL. (THIS IS HIGH PART). 


0088 


50763 


002500 




CIA, CLE 


SET ExP»0. 


0089 


50764 


071322 




STA EXP 




0090 


50765 


061565 




LDA RNDX2 


COMPUTE LOW ORDER PRODUCT. 


0091 


50766 
50767 


100200 
051013 




MPy RNDA2 




0092 


50770 


043015 




ADA RNDC2 


ADD IN LOW PART OF C. 


0093 


50771 


002040 




SEZ 


ADD ANY CARRY INTO 


00g4 


50772 


006004 




INB 


B. 


0095 


50773 


001265 




RAL,CLE,ERA 


E*AC15),A(15)4.0. 


0096 


50774 


071565 




STA RN DX2 


SAVE LoW QRDEr RfsUlTt 


0097 


50775 


005600 




ELB 


SHIFT HIGH ORDER PART % AOD IN 


0098 


50776 


045564 




ADB RNDXl 


PREVIOUS TOTAL, 


0099 


50777 


005665 




ELBrCLErERB 


CLEAR BIT 15 AND STORE. 


0100 


51000 


075564 




STB RNDXl 




0101 


51001 


001200 




RAL 


SHIFT A ADJACENT TO B. 


0102 


51002 


101100 




SWP 


EXCHANGE REGISTERS AND 


0103 


51003 


015306 




JSB t PACK 


PACK, 


0104 


51004 


054361 




CPB ,.*2 


TEST FOR RESULT*1.0 


0105 


51005 


002001 




RSS 




0106 


51006 


124662 




JMP FRET, I 


EXIT IF NOT, 


0107 


51007 


060273 




LDA INF 


SET RESULT TO i-«2t*23 
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0108 

0109 

0110* 

0111* 

0112 

0113 

0114 

0115 

0116* 

0117** 

0116* 

0119* 

0120* 

0121* 

0122* 

0123* 

0124 

0125 

0126 

0127 

0126 

0129 

0130 

0131 

0132 

0133* 

0134** 

0135* 

0136* 

0137* 

01 3 8* 

0139* 

0140* 

0141* 
0142* 

0143* 

0144* 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 



51010 
51011 



064316 
124662 



LDB 
JMP 



M256 
FRET , I 



51012 002722 RNDAl 

51013 007335 RNDA2 

51014 016441 RNOC1 

51015 007701 RN0C2 
* * 

COMPUTE SGNCX) * 



DEC 1490 
OEC 3805 
OCT 16441 
OCT 7701 



A DIv 2tl5 
A MOD 2tl5 
C OIV 2tl5 
C MOO 2T15 



ENTER WITH ARGUMENT IN (A) AND CB) t IF 
NEGATIVE RETURN -1.0, iF ZERO RETURN 0, 
RETURN 1,0 , 



ARGUMENT IS 
IF POSITIVE 



51016 
51017 
51020 
51021 
51022 
51023 
51024 
51025 
51026 
* 

COMPUTE 



006400 
002003 
124662 
002021 
064361 
061027 
006002 
001300 
124662 



ESGN 



ClB 

SZA,RSS 
JMP FRET, I 
SSAfRSS 
LDB ,+2 
LDA FLGBT 

SZB 
RAR 

JMP FRET, I 



ClEAR LOW PART OF NUMBER 

ZERO? 

YES, RETURN 

POSITIVE? 

YE8, LOAD EXPONENT FOR *1 

NO, LOAD HIGH PART OF «1 

WAS ARGUMENT POSITIVE? 

YES, SET RESULT TO *1 

NO 



TYP(X) * 



L iPON ENTRy (A) AND (B) HOLD A FILE NyMBER IN FLOATING POINT 
FORM, FILE REFERS TO THE <DATA STaTEM£NT>S, IF THE FILE 

Number 13 negative return 1,0, 2,0, 3.0, Or 4,0 if the next 
item in THE File is a number, STRING, EmD»QF»FxlE, or End* 
of^record respectively, if the file number is positive return 
with the value corresponding to the first item found of one 

OF THE FIRST THrEE TYpES, 



51027 
51030 
51031 
51032 
51033 
51034 
51035 
S>1036 
51037 
51040 
51041 
51042 
51043 

51044 
51045 
51046 
51047 
51050 
51051 



075434 
065234 
075643 
002003 
027063 

m7Am 
002020 

006400 
075651 
065434 

002020 
015370 
015342 
115142 
075234 
061234 
064355 
015506 
015512 



ETYP STB 
LDB 
STB 
SZA, 

JMP 

CCB 
SSA 

CLB 
STB 
LDB 
SSA 
JSB 

JSB 
JSB 
STB 
LDA 
LDB 
JSB 
JSB 



LBTMP 

FILE* 

PlNTG 

RSS 

ETYP3 



EORFL 
LBTMp 

ARlNV 

SBFIX 

RERRS+35, 

FILE* 

FILE* 

,*2 

RQSTR 

GTTYP 



SAVE (B) 
SAVE VALUE 
OF FIl!* 
•DATA' FILE? 
YES 

no, ignore 
end«of«records 
unless argument 
is negative 
retrieve (b) 
take absolute value 

of argument 
15.bit integer? 

I NO 
YES 
VALIDATE 

FILE 
GET TYPE 
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0164 


51052 


065643 


ETYPl 


LDB PINTG 


RESTORE 


0165 


51053 


075234 




STB FILE* 


FILE* 


0166 


5105* 


105120 




OCT 105120 


RETURN TYPE IN 


0167 


51055 


124662 




JMP FRET, I 


FLOATING POINT FORM 


0168 


51056 


060362 


ETYP2 


LDA ,*3 




0169 


51057 


065244 




LDB NXTDT 


OUT-OF-DATA 


0170 


51060 


055573 




CPB 3YMTB 


CONDITION? 


0171 


51061 


027052 




JMP ETYP1 


YESi (A) ■ 3 


0172 


51062 


015360 




JSB setqp 


NO# SEEK NEXT <DATA STATEMENT* 


0173 


51063 


003400 


ETYP3 


CCA 


MORE DATA IN 


0174 


51064 


051262 




CPA DCCNT 


CURRENT STATEMENT? 


0175 


51065 


027056 




JMP ETvP2 


NO 


0176 


51066 


165244 




LDB NxTDT,I 


yES, LOAD TyPE WORD 


0177 


51067 


002404 




ClA,InA 


SET NUMBER 


0178 


51070 


006021 




S38,RSS 


NUMBER? 


0179 


51071 


060361 




LDA „+2 


NO, SET FOR STRING 


0180 


51072 


027052 




JMP ETYPl 
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0182* 

0183* 

0184* 

0185 

0186 

0187 

0188 
0189 
0190 

0191 

0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 

0201 

0202 

0203 

0204 
0205 
0206 
0207 
0208 
0209 
0210 

0211 
0212 

0213 
0214 
0215 
0216 
0217 
0218 



** 

51 
51 
51 
51 
51 
51 
51 
51 

K 1 
v» * 

51 
51 
51 
51 
51 
51 
51 
51 

51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 

5l 
51 

51 
51 
51 
51 
51 
51 
51 
51 
51 



COMPUTE CHEBYSHEV(X) 



073 

074 

075 

076 

2^77 

00 

01 

02 

04 
05 
06 
07 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
4! 
42 
43 
44 
45 



015406 
051366 
104400 
001630 
165436 
075376 
104200 
100001 
104400 
001636 
002400 
071634 
071635 
035376 
035376 
161376 
002003 
027136 
104200 
001634 
104400 
001632 
104200 
001636 
104400 
001634 
015406 
001630 
015404 
001632 
015402 
101376 

104400 
001636 
027H0 
104200 
001636 
015404 
001632 
015406 
001031 
035436 
125436 



#CHEB JSB 
DEF 
DST 

LOB 
STB 
OLD 



** 

#** 
** 
f FMP 
K2 
X2TMP 

# CHEB,I 

CTMP 

lrl 



OST OtMP 



CLA 

STA 

STA 

CHEB1 ISZ 

ISZ 
LOA 
SZA, 
J HP 
DLD 

DST 
OLD 



DSj 

JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
DST 

JMP 
CHEB2 DLD 

JSB 
DEF 
JSB 
DEF 
ISZ 
JMP 



BTMP 

BTMP+i 

CTMP 

CTMP 

CTMP, I 

RSS 

CHEB2 
BTMp 

AtMP 

dtmp 

BjMP 

„FMP 

X2TMP 

.FSB 

ATMP 

f FAD 

CTMP, I 

DTMP 

CHEBl 
DTMp 

f FSB 

ATMP 
,FMP 
HALF 

• cheb 

,CHEB,I 



X2TMP » X*2 

POINTER TO COEFFICIENT TABLE 

DTMP 9 COEFF(N) 

B * 
N « N»l 

C(N) i 0? 
YES 

NO 

A « B 
B » 



D « C0EFFCN>«A*B*X2 



ANS *■ (D*A)/2 



0221** 

0222*** 

0223** 

0224* 

0225* 

0226* 

0227* 

0228* 



LIBRARY ENTIER 



** 

*** 
** 



ENjEr WITH NuMBEr IN (A) AND (B) # 
THEN EXIT TO (P*l), ELSE EXIT TO 
ENTlER OF ThE argument IN (A3„ 



IF EXPONENT > 
CP+2) WITH THE 



14 
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0229 51146 071434 #IENT STA LBTMP 

0230 5U47 060001 LD* 1 

0231 51150 010500 AND B377 

0232 51151 000033 8LA,RAR 

0233 51152 027156 JMP IENTl 

0234 51153 040340 ADA .-15 

0235 51154 002021 SSA,RSS 

0236 51155 125440 JMP «IENT,I 

0237 51156 035440 IENT1 I8Z ,IENT 

0238 51157 061434 LDA LBTMP 

0239 51160 015414 jSB IFIX 

0240 5116! 000000 NOP 

0241 51162 060001 LDA 1 

0242 51163 125440 JMP t IENT,I 



SAVE (A) 
EXTRACT 

EXPONENT 
NEGATIVE? 
YES 
NO, LESS THAN 

OR EQUAL TO 14? 
NO 
YES 

RESTORE (A) 
TAKE ENTIER 

LOAD INTEGER 

Into (A) 



0244** 

0245** 

0246** 

0247* 

0248* 

0249* 

0250* 

0251* 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266* 

0267** 

0268* 

0269 

0270 

0271* 

0272** 

0273* 

0274 

0275 

0276 

0277 
0278 
0279 
0280 
0281 
0262 



* MULTIPLY BY A PQWER q¥ 2 



** 

*** 

** 



ENTER WITH NUMBER IN (A) AND (B 
BY THE VALUE POINTED TO BY (P+l 
NO CHECK ON EXPONENT UNDERFLOW 

51164 002003 #PWR2 SzA,RSS 

51165 027200 JMP PwR2A 

51166 071630 STA X2TMP 

51167 015412 JSB .F^UN 

51170 075631 STB X2TMP+1 

51171 165442 LDB ,PWR2,I 

51172 140001 ADA 1,1 

51173 001200 RAL 

51174 010500 AND B377 

51175 070001 STA 1 

51176 045631 ADB X2TMP+1 

51177 061630 LDA X2TMP 

51200 035442 PWR2A I8Z ,PWR2 

51201 125442 JMP ,PWR2,I 



) t AUGMENT EXPONENT 

) and exit to (p*2), 
or overflow, 

argument zero? 

YESf RETURN 

no, saye high part of mantissa 
unpack low part of number 
save low mantissa 
compute new 

Exponent 
position 

and mask it 
compute new low 

part of number 
retrieve high mantissa 



COMPUTE COS(X) i 
* * 

51202 015402 ECOS 

51203 051470 



COMPUTE 
* 

51204 
51205 
51206 
51207 
51210 
51211 
51212 
51213 
51214 
51215 



015406 
051254 
104400 
001622 
015402 
051364 
015442 
000355 
015440 
115136 



SIN(X) 

* 
ESIN 



JSB FAD 
DEF PIBY2 



JSB .FMP 
DEF TOPI 
DST XTEMP 



COMPUTE 

8IN(x+PI/2) 



X * 2*X/PI 



JSB .FAD 

DEF Kl 

JSB t PWR2 

DEF ,-2 

JSB t IENT 

JSB RERRS*31,I EXPONENT EXCEEDS 14 
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0283 


51216 


105120 




OCT 


105120 




0284 


51217 


015406 




J$B 


t FMP 




0285 


51220 


051256 




DEF 


MM4 




0286 


51221 


015402 




JSB 


,FAD 




0287 


51222 


001622 




OEF 


XTEMP 




0288 


51223 
51224 


104400 
001622 




DST 


XTEMp 


X * X»4*ENTlER(.CX*U/4) 


0289 


51225 


015404 




JSB 


t FSB 




0290 


51226 


091364 




DEF 


Kl 




0291 


51227 


002020 




SSA 




X<1? 


0292 


51230 


027237 




J MP 


ESINl 


YES 


0293 


51231 
51232 


104200 
051366 




DLO 


K2 


NO 


0294 


51233 


015404 




JSB 


.FSB 




0295 


51234 


001622 




OEF 


XTEMP 




0296 


51235 
51236 


104400 
001622 




DST 


XTEMP 


X c 2<*X 


0297 


51237 
51240 


104200 
001622 


EsINl 


DUD 


XTEMP 




0298 


51241 


015406 




JSB 


,FMP 




0299 


51242 


001622 




DEF 


XTEMP 




0300 


51243 


015442 




JSB 


.PWR2 




0301 


51244 


000360 




DEF 


.♦1 




0302 


51245 


015404 




JSB 


.FSB 




0303 


51246 


051364 




DEF 


Kl 




0304 


51247 


015436 




JSB 


,CHEB 




0305 


51250 


051260 




DEF 


C0EF2 




0306 


51251 


015406 




JSB 


f FMP 




0307 


51252 


001622 




DEF 


XTEMP 




0308 


51253 


124662 




JMp 


FRET,1 


ANs * x*CMEBY(2*Xt2 *l) 


0309* 














0310 


51254 


050574 


TOPI 


DEC 


,636619772 2/PI 




51255 


141000 










0311 


51256 
51257 


100000 
000004 


MM4 


DEC 


.4, 




0312 


51260 
51261 


047605 
072733 


C0EF2 


DEC 


1,18496E^| 


5 


0313 


51262 


134143 




DEC 


„l t 365875E.4 




51263 


104751 










0314 


51264 
51265 


045261 
157365 




DEC 


9.H8016E, 


.3 


0315 


51266 


133371 




DEC 


*, 2852615692 




51267 


014777 










0316 


51270 


050656 




DEC 


2,5525579248 




51271 


107004 










0317 


51272 


000000 




OCy 







0318* 


* 




* 








0319** COMPUTE TAN 


(X) * 








0320* 


* 




* 








0321 


51273 


015406 


ETAN 


JSB 


,FMP 




0322 


51274 


051362 




DEF 


FOPI 


4/PI 


0323 


51275 
51276 


104400 
001622 




DST 


XTEMP 




0324 


51277 


015402 




JSB 


.FAD 




0325 


51300 


051364 




DEF 


Kl 




0326 


51301 


015442 




JSB 


.PWR2 
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0327 


51302 


000355 




DEF 


t*2 




0328 


51303 


015440 




JS8 


t IENT 




0329 


51304 


115136 




JSB 


RERRS+31, 


I 


0330 


51305 


105120 




OCT 


105120 




0331 


51306 


015370 




JSB 


ARINV 




0332 


51307 


015442 




.J38 


,PWR2 




0333 


51310 


000361 




DEF 


.♦2 




0334 


51311 


015402 




J86 


.FAD 




0335 


51312 


001622 




DEF 


XTEMP 




0336 


51313 
51314 


104400 
001622 




OST 


XTEMP 


X m X»4*£ 




ktKR 


015404 




JSB 






0338 


51316 


051364 




DEF 


Ki 




0339 


51317 


071434 




STA 


LBTMp 




0340 


51320 


002020 




SSA 




X<1? 


0341 


51321 


027354 




JMP 


ETAN2 


YES 


0342 


51322 
51323 


104200 
051366 




DUD 


K2 


NO 


0343 


51324 


015404 




JSB 


f FSB 




0344 


51325 


001622 




DEF 


XTEmP 




0345 


51326 
51327 


104400 
001624 


ETAN1 


DST 


YTEMP 


Y « 2*X 


0346 


51330 


015406 




JSB 


,FMP 




0347 


JWwl 


001624 




DEF 


YTEMP 




0348 


51332 


015406 




JSB 


.FMP 




0349 


51333 


051366 




DEF 


K2 




0350 


51334 


015404 




JSB 


,FSB 




0351 


51335 


051364 




DEF 


Kl 




0352 


51336 


015436 




JSB 


.CHEB 




0353 


51337 


051370 




DEF 


COEF0 




0354 


51340 


015406 




JSB 


,FMP 




0355 


51341 


001624 




DEF 


YTEMP 




0356 


51342 
51343 


104400 
001624 




DST 


YTEMP 


Y ■ Y*CHE 


0357 


51344 


061434 




LOA 


LBTMP 




0358 


51345 


002020 




SSA 




X<1? 


0359 


51346 


027357 




JMP 


ETAN3 


YES 


0360 


51347 
51350 


104200 
051364 




DLD 


Kl 


NO 


0361 


51351 


015410 




JS8 


# FDV 




0362 


51352 


001624 




DEF 


YTEMP 




0363 


51353 


124662 




JMP 


FRET, I 


ANS 9 1/Y 


0364 


51354 
51355 


104200 
001622 


ETAN2 


DLD 


xtemp 




0365 


51356 


027326 




JMP 


ETAN1 


Y « X 


0366 


51357 
51360 


104200 
001624 


ETAN3 


DUD 


YTEMP 




0367 


51361 


124662 




JMP 


FRET, I 


ANS P Y 


0368* 














0369 


51362 


050574 


FOPI 


DEC 


1.273239545 




51363 


141002 










0370 


51364 
51365 


040000 
000002 


Kl 


DEC 


1. 




0371 


51366 
51367 


040000 
000004 


K2 


DEC 


?. 




0372 


51370 


076061 


COEF0 


DEC 


l t 4458E-,8 





X-4*£NTIER((X+l)/4) 



i) 
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51371 


075315 








0373 


51372 
51373 


066034 
176725 


DEC 


2.013766E' 


•7 


0374 


51374 
51375 


057035 

030335 


DEC 


2.804816E- 


-6 


0375 


51376 
51377 


050755 
114745 


DEC 


3.906637E. 


-5 


0376 


51400 


043523 


DEC 


5.44l7038E w 4 




51401 


052355 








0377 


51402 


076112 


DEC 


7,586101578E.3 




51403 


065763 








0378 




066520 


DEC 


.10675392857 




51405 


163773 








0379 


51406 


070512 


DEC 


1.7701474227 




51407 


014002 








0380 


51410 


000000 


OCT 







0381* 


* 


* 








0382** COMPUTE ATN(X) * 








0383* 


• 


* 






* 


0384 


51411 
51412 


104400 EATN 
001622 


DST 


XTEMP 




0385 


51413 


060001 


LDA 


1 




0386 


5I4I4 


010500 


AND 


B377 




0387 


51415 


071434 


STA 


LBTMP 




0388 


51416 


002002 


SZA 






0389 


51417 


000010 


SLA 




ABS(X) > 1? 


0390 


51420 


027455 


JMP 


EATN2 


NO 


0391 


51421 
51422 


104200 
051364 


OLD 


Kl 


YES 


0392 


51423 


015410 


JSB 


,FDV 




0393 


51424 


001622 


DEF 


XTEMp 


U * 1/X 


0394 


51425 
51426 


104400 EATN1 
001626 


D8T 


UTEMP 




0395 


51427 


015406 


JSB 


f FMP 




0396 


51430 


001626 


DEF 


UTEMP 




0397 


51431 


015406 


JSB 


.FMP 




0398 


51432 


051366 


DEF 


K2 




0399 


51433 


015404 


JSB 


t F3B 




0400 


51434 


051364 


DEF 


Kl 




0401 


51435 


015436 


JSB 


t CHEB 




0402 


51436 


051474 


DEF 


COEF1 




0403 


51437 


015406 


JSB 


.FMP 




0404 


51440 


001626 


DEF 


UTEMP 




0405 


51441 
51442 


104400 
001624 


DST 


YTEMP 


Y * U*CHEBY 


0406 


51443 


061434 


LDA 


LBTMP 




0407 


51444 


002002 


SZA 






0406 


51445 


000010 


SLA 




ABS(X) > 1? 


0409 


51446 


027460 


JMp 


EATN3 


NO 


0410 


51447 


061622 


LOA 


XTEMP 


YES 


0411 


51450 


002020 


SSA 




X<0? 


0412 


51451 


027463 


JMP 


EATN4 


YES 


0413 


51452 
51453 


104200 
051470 


DLD 


PIBY2 


NO 


0414 


51454 


027465 


JMP 


EATN4+2 




0415 


51455 


104200 EATN2 


DLD 


XTEMP 
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51456 


001622 










0416 


51457 


027425 




JMP EATN1 


U « 


X 


0417 


51460 
51461 


104200 
001624 


EATN3 


DLD YTEMP 






0418 


51462 


124662 




JMP FRET, I 


AN8 


• Y 


0419 


51463 
51464 


104200 
051472 


EATN4 


DID MP2 






0420 


51465 


015404 




JSB t F8B 






0421 


51466 


001624 




DEF YTEMP 






0422 


5U67 


124662 




JMP FRET, I 


ANS 


« -PI/2-Y 


0423* 














0424 


51470 


062207 


PIBY2 


DEC 1 ,5707963268 


PI/2 




51471 


166402 










0425 


51472 


115570 


MP2 


DEC m \ ,5707963268 


•PI/2 




51473 


011402 










0426 


51474 
51475 


106671 
102315 


COEFi 


DEC -l«33034E« 


**8 




0427 


51476 
51477 


056335 
156323 




DEC 8,64888Ewl 


B 




0428 


51500 


131601 




DEC *.56,99i86Ew8 






51501 


137731 










042 9 


51502 
51503 


040033 
035737 




DEC 3„821037e< 


-6 




0430 


51504 


111013 




DEC «2«62l5l96E«5 






51505 


123343 










0431 


51506 


060542 




DEC 1,8574297E„4 






51507 


000351 










0432 


5l5l» 


122573 




DEC Mt38n95004E« 


•3 




51511 


062757 










0433 


51512 


055471 




DEC t 01U3584206 






51513 


107365 










0434 


51514 


111620 




DEC .,1058929245 






51515 


147373 










0435 


51516 
51517 


070320 
155002 




DEC l,762747i; 


74 




0436 


51520 


000000 




OCy 






0437* 


* 




* 








0438** COMpuTE EXpCX) * 








0439* 


* 




* 








0440 


51521 


015432 


EE X P 


J8B ,Exp 






0441 


51522 


124662 




JMP FRET, I 






0442 


51523 


015406 


#EXP 


JSB ,FMP 






0443 


51524 


051643 




DEF L2E 






0444 


51525 
51526 


104400 
001622 




DST XTEMP 


X 9 


ARG*L0G2( 


0445 


51527 


015440 




JSB ,IENT 






0446 


51530 


027622 




JMp § EXP2 






0447 


51531 


071434 




STA LBTMP 






0448 


5l5<32 


105120 




OCT 105120 






0449 


51533 
51534 


104400 
001624 




DST YTEMP 


Y ■ 


EN T IE R CX) 


0450 


51535 


061434 




LDA LBTMP 






0451 


51536 


043631 




ADA M124 






0452 


51537 


002021 




SSA>,RSS 


X >i 


» 124? 


0453 


51540 


027622 




JMP ,EXP2 


YES 




0454 


51541 


043632 




ADA ,244 


NO 
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0455 
0456 
0457 

0456 
0459 
0460 

0461 
0462 
0463 

0464 
0465 
0466 

0467 

0468 
0469 
0470 

0471 

0472 
0473 
0474 

0475 
0476 
0477 
0478 
0479 
0480 

0481 

0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0496 
0499 
0500 
0501* 



51542 
51543 
51544 
51545 
51546 
51547 
51550 
51551 
51552 
51553 
51554 
51555 
51556 
51557 
51560 
51561 
51562 
51563 
51564 
51565 
51566 
51567 
51570 
51571 
51572 
51573 
51574 

51575 
51576 
51577 
51600 
51601 
51602 
51603 
51604 
51605 
51606 
51607 
51610 
51611 
51612 
51613 
51614 
51615 
51616 

51617 
51620 
51621 
51622 
51623 
51624 
51626 
51626 
51627 
51630 



002020 
027617 
104200 
001622 
015404 
001624 
104400 
001622 
015406 
001622 
104400 
001626 
015402 
051633 
104400 
001624 
104200 
051635 
015410 
001624 
104400 
001624 
104200 
051637 
015406 
001626 
015402 

051641 
015404 
001622 
015404 
001624 
104400 
001624 
104200 
001622 
015410 
001624 
015402 
001031 
035434 
000000 
015442 
001434 
125432 
002400 
006400 
125432 
061434 
002020 
027617 
115205 
060273 
064355 
125432 



SSA 

JMp ,EXP1 

OLD XTEMP 

JSB ,FSB 

DEF YTEhP 

08T XTEMP 

JSB t FMP 

DEF XTEMP 

DST UTEMP 

JSB ,FAD 

DEF AAAA 

OST YTEHP 

DLD BBBB 

JSB t FOV 

DEF YTEMp 

DST YTEMP 

DLD CCCC 

JSB f FMP 

DEF UTEMP 

JSB t FAD 

DEF DDDD 

JSB ,FSB 

DEF XTEMP 

JSB ,FSB 

DEF YTEMP 

DST YTEMP 

DLD XT tMP 

JSB ,FDV 

DEF YTEMp 

JSB .FAD 

DEF HALF 

isz LBtMP 

NOP 

JSB PWR2 

DEF LBTMP 

JMP ,EXP,I 

,EXP1 CLA 
CLB 

JMP # EXP,I 

.EXP2 LDA LBTMP 
SSA 

JMP ,EXPi 

JSB WERRS+4,1 

LDA INF 

LDB t *2 

JMp ,EXP,I 



X < 
YES 

NO 



120? 



X * X-ENTIER(X) 



U » Xt2 



Y s Xt2+AAAA 



Y * BBBB/Y 



Y 9 •X+DDDD+CCCC*Xt2»Y 



ANS * f0 i 5*X/Y)*2tENTXER(ARG*LE) 



ANS 9 

LARGE ARGUMENT 

NEGATIVE? 

YES 

NO 

ANS * POSITIVE INFINITY 
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0502 


51631 177604 


M124 


DEC -124 


0503 


51632 000364 


.244 


DEC 244 


0504 


51633 053552 

51634 160416 


AAAA 


DEC 87t4174g7202 


0505 


51635 046477 

51636 016424 


BBBB 


DEC 617,9722695 


0506 


51637 043372 
51640 070371 


cccc 


DEC ,03465735903 


0507 


51641 047643 

51642 001410 


DDOD 


DEC 9,9545957821 


0508 


51643 056125 

51644 017002 


L2E 


DEC 1,4426950409 
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0002* 

0003*< 

0004* 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 
0013 
0019 

0020 

0021 
0022 
0023 
0024 
0025 

0026 
0027 
0028 
0029 
0030 

0031 

0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 

0043 

0044 

0045 

0046 

0047 

0046 

0049* 

0050 



COMPUTE LOG(X) * 
* * 

51645 015434 EL06 

51646 124662 

51647 002003 #10G 

51650 027724 

51651 00202® 

51652 115132 

51653 071622 

51654 015412 

51655 075623 

51656 105120 

51657 104400 

51660 001624 

51661 104200 

51662 001622 

51663 015402 

51664 051731 
5^665 104400 

51666 001626 

51667 104200 

51670 001622 

51671 015404 

51672 051731 

51673 015410 

51674 001626 

5*675 104400 

51676 001626 

51677 015406 

51700 001626 

51701 015404 

51702 051741 

51703 104400 

51704 001622 

51705 104200 

51706 051737 

51707 015410 

51710 001622 

51711 015402 

51712 051735 

51713 015406 

51714 001626 

51715 015404 

51716 001031 

51717 015402 

51720 001624 

51721 015406 

51722 051733 

51723 125434 

51724 115202 # LOGl 

51725 061027 

51726 067730 

51727 125434 



J$B t LOG 
JMP FRET, I 

SZA,RSS NON.ZERO ARGUMENT? 
JMP .LOG1 NO 

SSA YES, POSITIVE ARGUMENT? 

JSB RERRS+27,1 NO 
STA XTEMP YES, 
JSB ,FLUN SAVE MANTISSA 
STB XTEMP+i AND FLOATED 

EXPONENT 

SEPARATELY 



OCT 105120 
DST YTEMp 



OLD XTEMP 

JSB t FAD 
DEF R22 
DST UTEMP 

DLD XTEMP 

JSB # FSB 
DEF R22 
JSB .FDV 
DEF UTEMP 
DST UTEMP 

JSB .FMP 
DEF UTEMP 
JSB t FSB 
DEF CCC 
DST XTEMR 

DLD MB 



JSB 
DEF 
JSB 
DEF 

JSB 
DEF 
JSB 

DEF 
JSB 
DEF 
JSB 
DEF 
JMP 
JSB 

lda 
ldb 

JMP 



U 9 X+SQRC0.5) 



U » (X«SQR(0.$))/U 



.FDV 

XTEMP 

.FAD 

AAA 

.FMP 

UTEMP 

.FSB 

HALF 

.FAD 

YTEmP 

,FMP 

LE 2 

.LOG, I 

WERRS + 1,I 

MNEg 
B776 
•LOG, I 



ANS * L0G(2)* 

CMANTISSA*0.54.U*(AAA + MB/X)) 

ANS * NEGATIVE INFINITY 



51730 000776 B776 OCT 776 
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0051 



0052 



0053 

0054 



0055 



51731 055202 


R22 


DEC 


.707106781 


SQR<0,5) 


51732 075000 










51733 054271 


LE2 


DEC 


,6931471806 


LOG BASE E C2) 


51734 006000 










51735 051260 


AAA 


DEC 


1,2920070987 




51736 037402 










51737 125606 


MB 


DEC 


•2,6398577035 




51740 044404 










51741 065010 


CCC 


DEC 


1,6567626301 




51742 063002 
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0057* 

0058* 

0059* 

0060* 

0061* 

0062* 

0063* 

0064* 

0065* 

0066* 

0067* 

0066* 

0069* 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

^77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086* 

0087* 



ENTER WITHI 

(A)«l IF PBFLG HAS tO BE SEx, 

<A)«2 IF PBFLG HAS TO BE CLEARED, 

(A)«4 IF PBFLG AND CBFLG HAVE TO BE CLEARED, 

(B)« POINTER TO 7FLAG 

EXIT WITH ORIGINAL CONTENTS IN B t 



51743 
51743 
51744 
51745 
51746 
51747 
51750 

5*751 
51752 
51753 
51754 
51755 
51756 
51756 
51757 
51760 



103100 
002011 
027751 
060600 
130001 
027756 
001310 
060600 
060524 
003000 

110001 

170001 
102100 
125562 



#EDAB EQu 
CLF 
SLA, 
JMP 
LDA 
IOR 
JMP 
RAR, 
LDA 
LDA 
CMA 
AND 

#EDB! EQU 
STA 
STF 
JMp 





RSS 

*+4 

PBFLG 

B,I 

*EDB1 

SLA 

PBFLG 

B30M 

B,I 
B,I 



EDABR,I 



BIT#0 SET? 
YES, SET PBFLG, 



NO, BIT#1 SET? 

YES, CLEAR PBFLG, 

NO, CLEAR PBFLG AND CBFLG, 



STORE ?fUg w O rD BACKt 
EXIT. 
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0090 


52000 






ORG 


52000B 




0091 


52000 


063146 


TENTH 


OCT 


63146 




0092 


52001 


000063 


B63 


OCT 


63 




0093 


52002 


000120 


B120 


OCT 


120 


»P« 


0094 


52003 


177716 


D62 


OCT 


•62 




0095 


52004 


\777Q7 


M71B 


OCT 


-71 




0096 


52005 


000776 


B6776 


OCT 


776 




0097 


52006 


000106 


F 


OCT 


106 




0096 


52007 


000116 


N 


OCT 


116 




0099* 


* 




* 








0100** COMPUTE SQR(X) * 








fll 011 a 


Wk 




* 








0102 


52010 


002003 


ESQR 


SZA, 


,RSS 


X" 0? 


0103 


52011 


124662 




JMP 


FRET, I 


YES, AN8 * 


0104 


52012 


002020 




SSA 




NO, X < 0? 


0105 


52013 


115133 




JSB 


RERRS+28, 


I YES 


0106 


52014 


071622 




STA 


XTEMP 


NO 


0107 


52015 


015412 




JSB 


t FLUN 




010$ 


52016 


000031 




SLA, 


rARS 


EXPONENT ODD? 


0109 


52017 


026055 




JMP 


ESQR2 


YES 


0110 


52020 


040356 




ADA 


.-1 


NO 


0111 


52021 


071434 




STA 


LBTMP 


ExPONENT/2 »1 


0112 


52022 


075623 




STB 


XTEMP*! 


MANTISSA SAVED 


0113 


52023 


061622 




LOA 


XTEMP 




0114 


52024 


015406 




JSB 


# FMP 




0115 


52025 


052070 




DEF 


SA2 




0116 


52026 


015402 




JSB 


.FAD 




0117 


52027 


052074 




DEF 


SB2 


Y » SB2+$A2*X 


0118 


52030 
52031 


104400 
001624 


ESQR1 


DST 


YTEMP 




0119 


52032 
52033 


104200 
001622 




DLD 


XTEMP 




0120 


52034 


015410 




JSB 


.FDV 




0121 


52035 


001624 




DEF 


YTEMp 




0122 


52036 


015402 




JSB 


• FAD 




0123 


52037 


001624 




DEF 


YTEMP 




0124 


52040 


015442 




JSB 


f PWR2 




0125 


52041 


000356 




DEF 


• -1 




0126 


52042 
52043 


104400 
001624 




DST 


YTEMP 


Y » (Y+X/Y)/2 


0127 


52044 
52045 


104200 
001622 




DLD 


XTEMP 




0128 


52046 


015410 




JSB 


,FDV 




0129 


52047 


001624 




DEF 


YTEMp 




0130 


52050 


015402 




JSB 


• FAD 




0131 


52051 


001624 




DEF 


YTEMP 




0132 


52052 


015442 




JSB 


t PWR2 




0133 


52053 


001434 




DEF 


LBTMP 




0134 


52054 


124662 




JMP 


FRET, I 


ANS * (P*F/P)*2tESQ0 


0135 


52055 


071434 


ESQR2 


STA 


LBTMP 


EXPONENT/2 


0136 


52056 


044500 




ADB 


B377 




0137 


52057 


075623 




STB 


XTEMp+1 


MAnTISSA/2 SAVED 


0138 


52060 


061622 




LDA 


XTEMP 




0139 


52061 


015406 




JSB 


,FMP 




0140 


52062 


052066 




DEF 


SAl 




0141 


52063 


015402 




JSB 


.FAD 
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0142 
0143 
0144* 
0145 

0146 

0147 

0148 

0149* 

0150* 

0151* 

0152* 

0153* 

0154* 

0155* 
0156* 

0157* 

0158* 

0159* 

0160* 

16 1* 

0162* 

0163* 

0164* 

0165* 

0166* 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 
0176 
0177 

0178* 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 



52064 052072 

52065 026030 

52066 070000 SM 

52067 000000 

52070 045000 SA2 

52071 000000 

52072 043524 SBj 

52073 046377 

52074 066000 SB2 

52075 000377 
* * 

* COMPUTE BrK(X) * 



DEF SB1 
JMP ESQR1 

DEC ,875 

DEC ,578125 

DEC ,27863 

DEC ,421875 



Y ■ SB1+SA1*X 



ENTER WITH ARGUMENT IN A AND B, 

IF X*0, DISABLE ABORT CAPABILITY, 

IF X>0, ENABLE ABORT CAPABILITY, 

IF X<0, Do NOT DISABLE OR ENABLE BUT JUST 

RETURN A VALUE, 



RETURN WITHt 



!• 



2. 



IF ABORT CAPABILITY 
TO EVALUATION. 



WAS DISABLED PREVIOUS 



+1 IF ABORT CAPABILITY 
TO EVALUATION, 



WAS ENABLED PREylQuS 



$2076 07*622 EBRK STA XTEMP 

52077 160255 LDA MAIN, I 

52100 010600 AND PBFLG 

52101 006400 CLB 

52102 002003 SZAfPSS 

52103 064361 LDB ,+2 

52104 061027 LDA FLGBT 

52105 006003 SZBrRSS 

52106 002400 CLA 

52107 001300 RAR 

52110 104400 DST YTEMP 

52111 001624 

52112 064255 LDB MAIN 

52113 061622 lDA XTEmP 

52114 002002 SZA 

52115 026130 JMP EBRKl 
& 2H 6 002404 CLA,INA 
52117 015562 JSB EDABR 

52120 103100 CLF 

52121 044374 ADB ,*?STAT 

52122 164001 LDB B,I 

52123 003400 CCA 

52124 050001 CpA B 

52125 126137 JMP SUSPNrI 

52126 102100 STF 

52127 026134 JMP EBRK2 



STORE HIGH PART OF ARGUMENT, 
A« IFLAG 



PBFLG BIT SET? 

NO, SET (B)»EXPONENT OF *1, 

YES, SET (A)»100000B, 

WAS PBFLG SET? 

YES, SET RETURN VALUE TO 0, 

NO. SET RETURN VALUE TO ♦!• 

SAVE, 



(B)s> ? FLAG 

RETRIEVE HIGH pART Of ARGUMENT, 

ARGUMENT10? 

YES, SET PBFLG TO KuDISABLE 
ABORT), 

B«» ?STAT 
B* ?STAT 



QUIT IF ABORT REQUEST, 
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0193 


52130 




EBRKt 


EQU 


* 


0194 


52130 


002020 




SSA 




0195 


52131 


026134 




JMP 


EBRK2 


0196 


52132 


060361 




L DA 


.♦2 


0197 


52133 


015562 




JSB 


EDABR 


0196 


52134 




EBRK2 


EQU 


* 


0199 


52134 
52135 


104200 
001624 




OLD 


YTEMP 


0200 


52136 


124662 




JMP 


FRET, 


0201* 












0202* 












0203 


52137 


071662 


SUSPN 


OEF 


SUSP 


0204* 












0205* 













NO, ARGUMENT >0 OR 40? 
<0, DO NOTHING, 
<0 SET PBFlG TO 0C»ENABLE 
ABORT). 

RETURN WITH VALUE OF CONDITION 

PREVIOUS TO EVALUATION, 
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0207* 

0208** 

0209** 

0210** 

0211* 

0212* 

0213* 

0214* 

0215* 

0216* 

0217* 
0218* 

0219* 
0220* 

0221* 

0222* 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243** 

0244* 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 



********************** 
** *** 

* list the program *** 
** *** 

********************** 



•list' converts the current user program to a s t andard ascii 
Format and prints it on the telftype qne line per program 
statement, 'punch' adds a leader and trailer to the ascii 
program dump, lasting begins with the first program statement 
unless directed otherwise by the 'list' or 'punch* command, 

LTl IS THE PROGRAM POSITION POSTER. LT2 IS THE STATEMENT 
LENGTH COUNTER. 



52140 
52141 
52142 
52143 
52144 
52145 
52146 
52147 
52150 
52151 
52152 

52153 
52154 

52155 
52156 
52157 
52160 
52161 
52162 



002404 
026144 
003401 
002400 

07U00 
002400 
071550 
064726 
054056 
026575 
006404 

075430 
015462 
064056 
103100 
060361 
110255 
071440 
102100 



XPnCH C|_A, 

JMP 
PUNCH CCA, 
LIST CLA 
STA 
CLA 
STA 
LDB 
CPB 
JMP 

CLB* 

STB 

JSB 

LDB 

CLF 

LDA 

AND 

STA 

STF 



Ina 

LIST*1 
RSS 

LT0 

LT8 

PBUFF 

PBPTR 

LIS16 

INB 

LT3 

SINIT 

PBPTR 



CFLAG 

MAIN, I 

LT5 





S^T TO 'XPUNCH' mqDE 

SET TO 'PUNCH' MODE 
SET TO 'LIST* MODE 
SAVE MODE 
SET FO R 

NO PAGINATION 

NULL 

PROGRAM? 

YES 

NO, SET FIRST STATEMENT NUMBER 

PREPARE PROGRAM FOR LISTING 



SAVE 

PROGRAM 

MODE 



DETERMINE FIRST STATEMENT TO BE LISTED 



* 
** 



52163 
52164 
52166 
52166 
52167 
52l7« 
52171 
52172 
52173 
52174 
52175 
52176 
52177 
52200 
52201 
52202 
52203 
52204 



002002 
065573 
075442 
065027 
075432 
015446 
026233 
006400 
050433 
026206 
052002 
026226 
015450 
015464 
050374 
026234 
050433 

002001 



SZA SAVE POINTER TO 

LDB SYMTB LAST WORD *l 

STB L T6 OF PRQGRAm 

LDB BIT15 GET LARGE SEQUENCE NUMBER 

STB LT7 SET ENDING SEQUENCE NUMBER 

JSB GETCR STARTING LINE NUMBER? 

JMP LISCQ NO 

CLB 

CPA ,+54B CHECK FOR COMMA 

JMP LISCM FIRST STATEMENT NUMBER OMITTED, 

CPA B120 PAGINATION? 

JMP LISCP YES 

JSB BCKSP BACK UP FOR FIRST STATEMENT NUMB 

JSB BLDIN FETCH INTEGER 

CPA ,*15B CHECK FOR CARRIAGE RETURN 

JMP LISCR YES, END OF COMMAND 

CPA ,+54B COMMA FOLLOWS? 

RSS YES 
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0263 


52205 


115113 




JSB 


RERRS+12, 


rl 


0264 


52206 




LISCM 


EQU 


* 




0265 


52206 


075430 




STB 


LT3 


SAVE STARTING SEQUENCE NUMBER 


0266 


52207 


015446 




JSB 


GETCR 


GET THE NEXT CHARACTER 


0267 


52210 


116U3 




JSB 


RERRS+12, 


rl 


0268 


52211 


052002 




CPA 


B120 


CHECK FOR P 


0269 


52212 


026226 




JMP 


LISCP 


PAGINATION 


0270 


52213 


015450 




JSB 


BCKSP 


BACK UP FOR SECOND STATEMENT # 


0271 


52214 


015464 




JSB 


BLDIN 


GET INTEGER 


0272 


52215 


007000 




CMB 






0273 


52216 


075432 




STB 


LT7 


SAVE ENDING SEQUENCE NUMBER 


02^4 


52217 


050374 




CPA 


e + 158 


END OF RECORD? 


0275 


52220 


026233 




JMP 


LISCQ 


YES 


0276 


52221 


015446 




JSB 


GETCR 


NO, GET NEXT CHARACTER 


0277 


52222 


115113 




JSB 


RERRS+12, 


rl 


0278 


52223 


052002 




CPA 


B120 


PAGINATION? 


0279 


52224 


002001 




RSS 




YES 


0280 


52225 


115U3 




JSB 


RERRS+12, 


rl NO 


0281 


52226 




LISCP 


EQU 


* 




0282 


52226 


062 04 




LDA 


M71B 


SET LINE COUNTER 


0283 


52227 


071550 




STA 


LT8 




0264 


52230 


015446 




JSB 


GETCR 


test for End of line 


028$ 


52231 


002001 




RSS 






0286 


52232 


115113 




JSB 


RERRS+12, 


rl 


0287 


52233 




LISCQ 


EQU 


* 




0288 


52233 


065430 




LDB 


LT3 


GET BACK STARTING SEQUENCE NUMBER 


0289 


52234 




LISCR 


EQU 


* 




0290 


52234 


061442 




LDA 


LT6 


SEEK 


0291 


52235 


015314 




JSB 


FNDPS 


STATEMENT 


0292 


52236 


026575 




JMP 


LIS16 


all line numbers < given integer 


0293 


52237 


000000 




NOP 




SAVE DESIRED 


0294 


62240 


075430 




STB 


LT3 


STARTING POINT 


0295 


52241 


060371 




LDA 


. + 12B 


OUTPUT A 


0296 


52242 


015452 




JSB 


OUTCR 


LINE FEED 


0297* 










* 




0298** OUTPUT PROGRAM NAME ** 




0299* 










* 




0300 


52243 


061567 




LDA 


LNAME 




0301 


52244 


071426 




STA 


LTl 




0302 


52245 


040360 




ADA 


„+?NAME»' 


?ID 


0303 


52246 


160000 




LDA 


A, I 


REMOVE RUN-ONLY 


0304 


52247 


010273 




AND 


INF 


Bit AND CHECK FOR 


0305 


52250 


002003 




SZA, 


rRSS 


NULL PROGRAM NAME 


0306 


52251 


026260 




JMP 


LISCU 


YES 


0307 


52252 


006400 




CLB 




NO 


0308 


52253 


075274 




STB 


LT2 


OUTPUT 


0309 


52254 


060354 




LDA 


,-3 


PROGRAM 


0310 


52255 


015460 




JSB 


OUTST 


NAME 


0311 


52256 


060374 




LDA 


.♦15B 


OUTPUT 


0312 


52257 


015452 




JSB 


OUTCR 


CARRIAGE RETURN 


0313 


52260 




LISCU 


EQU 


* 




0314 


52260 


060371 




LDA 


. + 128 


AND 


0315 


52261 


015452 




JSB 


OUTCR 


DOUBLE 


0316 


52262 


060371 




LDA 


, + 12B 


LINE 


0317 


52263 


015452 




JSB 


OUTCR 


FEED 


0318* 










* 
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0319** 

0320* 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0326 

0329 

0330 

0331 

0332* 

0333** 

0334* 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342* 

0343 

0344 

0345 

0346 

0347 

034$ 

0349 

0350 

0351 

0352 

03$3 

0354 

0355* 

0356 

0357 

0356 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 



OUTPUT LEADER IF 



52264 
52265 
52266 
52267 
52270 
52271 
52272 
52273 
52274 
52275 



002400 
051400 
026275 
060322 
071356 

002400 
015452 
035356 

026271 

065430 



52276 075426 



MAIN LIST LOOP * 



52277 065426 

52300 055442 

52301 026563 

52302 165426 

52303 045432 

52304 006021 

52305 026563 



LIST 2 



523 6 
52307 
52310 
52311 
52312 
52312 
52313 
52314 
52315 
52316 
52317 
52320 

52320 
52321 
52322 

52323 
52324 
52325 
52326 
52327 
52330 
52331 
52332 

52333 
52334 

52335 
52336 
52337 
52340 
52341 
52342 



035550 

026320 
060347 

071550 

060371 
015452 
035550 
026312 
060322 

071550 



165426 
015454 
060417 

015452 
035426 
161426 
015554 
161426 
003004 
002004 
07I274 
026336 
165426 
015454 
035426 
035274 
026354 
002404 
051400 



LISPF 



LISPM 



LIST3 



♦PUNCH' ** 




CLA 


♦LIST 1 


CPA LT0 


MODE? 


JMP LIST2-2 


YES 


LDA M72B 


NO, 


STA DI6CT 


OUTPUT 


CLA 


FEED 


JSB OUTCR 


FRAMES 


ISZ DIGCT 


FOR 


JMP *-3 


LEADER 


LOB LT3 


SET POINTER TO 


STS LT1 

* 


Sf ARTlftjS POINT 


* 
LDB LTi 


PROGRAM 


CPB LT6 


EXHAUSTED? 


JMP LIS15 


YES 


LDB LTl,I 


GET LINE NUMBER 


ADB LT7 


CHECK FOR END OF LI$TXNG 


SSB,RSS 


sKIp IF NOT DONE YfT 


JMP LI315 


STOP USTING HErE 


ISZ LT8 


CHECK FOR NEW PAGE 


JMP LISPM 


NOT YET 


LDA ,~8 




STA LT8 




EqU * 




LDA .*12B 


OUTPUT A 


JSB OUTCR 


BUNCH OF 


ISZ LT8 


LINE FEEDS 


JMP LISPF 




LDA M728 


RESET LINE COUNTER 


STA LT8 




EQU * 




LDB LTI, I 


NO, OUTPUT 


JSB OUTIN 


LINE NUMBER 


LDA ,+40b 


OUTPUT 


JSB OUTCR 


BLANK 


ISZ LTj 


CHECK 


LDA LTl,I 


STATEMENT 


JSB STLCK 


LENGTH 


L DA LTI, I 


LENGTH 


CMA,INA 


COUNTER 


INA 


FOR 


STA LT2 


STATEMENT 


JMP LIST3 




LDB LTifl 


OUTPUT 


JSB OUTIN 


BOUND 


ISZ LTI 


MOrE OF 


ISZ LT2 


STATEMENT? 


JMP L*ST4 


YES 


CLA,INA 




CPA LT0 


XPUNCH? 
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0375 


52343 


002001 


RSS 


yes 


0376 


52344 


026347 


JMP **3 


NO 


0377 


52345 


060402 


LDA ,+23B 


OUTPUT 


0378 


52346 


016452 


.JSB OUTCR 


X.QFF 


0379 


52347 


060374 


i.OA .*15B 


NO, 


0380 


52350 


015452 


JSB OUTCR 


OUTPUT A 


0381 


52351 


060371 


LDA »+12B 


CARRIAGE RETURN 


0382 


52352 


015452 


JSB OUTCR 


AND LINE FtZD 


0383 


52353 


026277 


JMP LIST2 




0384* 






* 




0385** IDENTIFY OPERATOR 


** 




0385* 






* 




0387 


52354 


161426 LIST4 


LDA LTl f I 


EXTRACT 


0388 


52355 


010570 


AND OPMSK 


OPERATOR 


0389 


52356 


002003 


SZA,RSS 


NULL OPERATOR? 


0390 


52357 


026400 


JMP LISTS 


YES 


0391 


52360 


050552 


CPA LETQP 


NO, 'IMPLIED* LET? 


0392 


52361 


026376 


JMP LIST5-2 


Y*8, OUTPUT A BLANK 


0393 


52362 


001727 


ALF, ALF 


NO, 


0394 


52363 


042003 


ADA 062 


SINGLE-CHARACTER 


0395 


52364 


002021 


SSA,RSS 


OPERATOR? 


0396 


52365 


026532 


JMP LIS12 


NO 


0397 


52366 


042001 


ADA B63 


YES, 


0398 


52367 


040660 


ADA FOPBS 


EXTRACT 


0399 


52370 


160000 


LDA 0,1 


ASCII 


0400 


52371 


001727 


ALF, ALF 


CODE 


0401 


52372 


010474 


AND B177 




0402 


52373 


050421 


CPA ,*42B 


h 7 


0403 


52374 


026600 


JMP LIS14 


YES 


0404 


52375 


002001 


RSS 


NO 


0405 


52376 


060417 


LDA ( +40B 


LOAD A BLANK 


0406 


52377 


015452 


JSB OUTCR 




0407* 






* 




0408** IDENTIFY OPERAND 


** 




0409* 






* 




0410 


52400 


161426 LISTS 


LDA LT1,I 


EXTRACT 


0411 


52401 


010566 


AND OPDMK 


OPERAND 


0412 


52402 


071430 


STA LT3 




0413 


52403 


002020 


SSA 


FLAG PIT SET? 


0414 


52404 


026452 


JMP LIST9 


YES 


0415 


52405 


006400 


CLB 


no, null 


0416 


52406 


055430 


CPB LT3 


OPERAND? 


0417 


52407 


026336 


JMP LIST3 


YES 


04*8 


524I0 


05S44 


CPB LT5 


NO, 'COMPILED' ? 


0419 


524H 


026417 


JMP LIST0 


NO 


0420 


52412 


040356 


ADA ,-1 


YES 


0421 


52413 


001000 


ALS 


LOAD 


0422 


52414 


041573 


AOA SYMTB 


ACTUAL 


0423 


52415 


160000 


LDA 0,1 


SYMBOL 


0424 


52416 


071430 


STA LT3 


save symbol 


0425* 






* 




0426** LIS 1 


r SYMBOLIC OPERAND ** 




0427* 






* 




0428 


52417 


010572 LIST0 


AND PDFFL 


ISOLATE TYPE PART 


0429 


52420 


050376 


CPA ,+178 


FUNCTION? 


0430 


52421 


026445 


JMP LIST8 


YES 
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0431 


52422 


061430 


LIST6 


LOA LT3 


NO, 


0432 


52423 


101104 




RRR 4 


COMPUTE 


0433 


52424 


010416 




AND ,+378 


ASCII FOR 


0434 


52425 


040462 




ADA 8100 


LETTER 


0435 


52426 


015452 




JSB OUTCR 


OUTPUT LETTER 


0436 


52427 


061430 




l.DA LT3 




0437 


52430 


010376 




AND .+17B 




0438 


52 4 31 


0503/6 




CPA t +l7B 


FUNCTION? 


0439 


52432 


026336 




JMP LIST3 


YES 


0440 


52433 


002003 




SZA,RSS 


NO, STRING VARIABLE* 


0441 


52434 


026443 




JMP LXST7 


YES 




52435 


040352 




ADA s -5 


NO 


0443 


52436 


002020 




SSA 


DIGIT? 


0444 


52437 


026336 




JMP LXST3 


NO 


0445 


52440 


040437 




ADA ,*60B 


YES, 


0446 


52441 


015452 




JSB OUTCR 


OUTPUT IT 


0447 


5244? 


026336 




JMP LIST3 




0446 


52443 


060423 


HST7 


LDA ,*44B 


LOAD AsCII t$t 


0449 


52444 


026441 




JMP *«3 




0450 


52445 


062006 


LIST8 


LDA F 


OUTPUT 


0451 


52446 


015452 




JSB OUTCR 




0452 


52447 


062007 




LDA N 


'FN' 


0453 


52450 


015452 




JSB OUTCR 




04e>4 


5245I 


026422 




JMP LIST6 




0455* 










# 


0456** LIST CONSTANT OPERAND Or PARAMETER ** 


0457* 










* 


0456 


52452 


001665 


UST9 


FLA,CLE,ERA 


CLEAR FLAG BIT 


0459 


52453 


002002 




SZA 


CONSTANT? 


0460 


52454 


026471 




JMP LIS10 


NO 


0461 


52455 


071570 




STA CHRCT 


YES, SET 


0462 


52456 


071266 




STA SIGN 


FOR NO SIGN 


0463 


52457 


035426 




ISZ LT1 


LOAD 


0464 
0465 


.52460 035274 
52*64— L&4200 




ISZ LT2 
DLD LTlrl 


CONSTANT 




52462 


101426 








0466 


52463 


035426 




ISZ LT1 




0467 


52464 


035274 




ISZ LT2 




0466 


52465 


002120 




CLE, SSA 


NEGATIVE NUMBER? 


0469 


52466 


002300 




CCE 


yES, ENABLE SIGN 


0470 


52467 


015420 




jSB NUMOT 


OUTPUT THE CONSTANT 


0471 


52470 


026336 




JMP LIST3 




0472 


52471 


010376 


LIS10 


AND t +l7B 


ISOLATE TYPE PART 


0473 


52472 


050362 




CPA ,+3 


PROGRAM INTEGER? 


0474 


52473 


026504 




JMP LISll 


yES 


0475 


52474 


050376 




CPA .+17b 


NO, PRE-DEFINED FUNCTION? 


0476 


52475 


002001 




RSS 


yES 


0477 


52476 


026422 




JMP LIST6 


NO/ MUST BE A PARAMETER SYMBOL 


0478 


52477 


061430 




LDA LT3 


OUTPUT 


0479 


52500 


001722 




ALF,RAL 




0480 


52501 


064624 




LDB ATAB 


FUNCTION 


0481 


52502 


015456 




JSB MCOUT 




0482 


52503 


026336 




JMP LIST3 


Symbol 


0483 


52504 


035426 


LISll 


ISZ LT1 




0484 


52505 


035274 




ISZ LT2 




0485 


52506 


061436 




LDA LT4 


RESTORE OPERATOR 
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0486 


52507 


050540 




CPA 


DIMOP 


<DIM STATEMENT ? 


0487 


62510 


026334 




JMP 


LIST3-2 


YES 


0488 


52511 


050534 




CPA 


COMOP 


NO, 'COM'? 


0469 


52512 


026334 




JMP 


LIST3-2 


YES 


0490 


52513 


061440 




LDA 


LT5 


NO 


0491 


52514 


165426 




LDB 


LTl,I 


LOAD PROSPECTIVE INTEGER 


0492 


52515 


002002 




8ZA 




PROGRAM 'COMPILED' ? 


0493 


52516 


164001 




LOB 


1,1 


YES 


0494 


52517 


015454 




JSB 


OUTIN 


OUTPUT INTEGER 


0495 


52520 


035426 




ISZ 


LT1 


MORE 


0496 


62521 


035274 




ISZ 


LT2 


STATEMENT? 


0497 


52522 


002001 




RSS 




YES 


0498 


52523 


026341 




JMP 


LIST3*3 


NO 


0499 


52524 


061436 




LDA 


LT4 


LISTING 


0500 


52525 


050604 




CPA 


U8EOP 


'USING* 1 


0501 


52526 


026354 




JMP 


LI8T4 


YES 


0502 


52527 


060433 




LDA 


# *54B 


EMIT 


0503 


52530 


015452 




JSB 


OUTCR 


A COMMA 


0504 


52531 


026513 




JMP 


LISll+7 




0505* 












* 


0506** LIST MULTICHARACTER OPERATOR 


** 


0507* 












* 


0508 


52532 


060417 


LIS12 


LDA 


,+40B 


OUTPUT 


0509 


52533 


015452 




JSB 


OUTCR 


A B^ANK 


0510 


52534 


161426 




LDA 


LT1,I 


OUTPUT 


0511 


52535 


064720 




LOB 


MCBOP 


MULTICHARACTER 


0512 


52536 


015456 




JSB 


MCOUT 


OPERATOR 


0513 


52537 


060417 




LDA 


,♦408 




05I4 


52540 


065436 




LOB 


LT4 


WAS IT 


0515 


52541 


054576 




CPB 


REMOP 


A 'REM* ? 


0516 


52542 


026557 




JMP 


LIS13 


YES 


0517 


52543 


054544 




CPB 


FXLOP 


NO, 'FILES' ? 


0518 


52544 


026556 




JMP 


LIS13-1 


YES 


0519 


52545 


054546 




CPB 


IMGOP 


NO, 'IMAGE'? 


0520 


52546 


026551 




JMP 


LI8J8 


YES 


0521 


52547 


015452 




J8B 


OUTCR 


NO, OUTPUT A BLANK 


0522 


52550 


026400 




JMP 


LIST5 




0523 


52551 


006400 


LIS18 


CLB 






0524 


52552 


061274 




LDA 


LT2 




0525 


52553 


002006 




INA, 


,SZA 




0526 


52554 


015460 




JSB 


OUTST 


OUTPUT IMAGE STRING 


0527 


52555 


026336 




JMP 


LIST3 




0528 


52556 


015452 




JSB 


OUTCR 


OUTPUT A BLANK 


0529 


52557 


007400 


LIS13 


CCB 




OUTPUT 


0530 


52560 


061274 




LDA 


LT2 


THE 


0531 


52561 


015460 




J8B 


OUTST 


REmARK 


0532 


52562 


026336 




JMP 


LIST3 




0533* 










* 




0534** OUTPUT TRAILER IF 


'PUNCH' ** 




0535* 










* 




0536 


52563 




LIS15 


EQU 


* 




0537 


52563 


002400 




CLA 




'LIST' 


0538 


52564 


051400 




CPA 


LT0 


MODE? 


0539 


52565 


124740 




JMP 


schen,i 


YES 


0540 


52566 


060322 




LDA 


M72B 


NO, 


0541 


52567 


071356 




STA 


DIGCT 


OUTPUT 
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0542 


52570 


002400 




C L A 


FEED 


0543 


52571 


015452 




JSB OUTCR 


FRAMES 


0544 


52572 


035356 




ISZ DIGCT 


FOR 


0545 


52573 


026570 




JMP *-3 


TRAILER 


0546 


52574 


124740 




JMP SCHEN,I 




0547* 












0548 


52575 


060371 


LIS16 


LDA ,*12B 


ECHO 


0549 


52576 


015452 




JSB OUTCR 


LINE 


0550 


52577 


124740 




JMP SCHEN,I 


FEED 


0551* 








* 




0552** LIST A STRING CONSTANT ** 




0553* 








* 




0554 


52600 


015452 


LIS14 


JSB OUTCR 


OUTPUT » 


0555 


52601 


161426 




LDA LTlfl 


COMPyTE 


0556 


52602 


010500 




AND B377 


WORDS 


0557 


52603 


002003 




SZA,RSS 




0558 


52604 


026611 




JMP LIS 17 




0559 


&2605 


003004 




CMA,INA 


OF 


0560 


52606 


001100 




ARS 


STRING 


0561 


52607 


006400 




CL8 


OUTPUT 


0562 


52610 


015460 




JSB OUTST 


STRING 


0563 


52611 


060421 


LIS17 


LDA t +42B 




0564 


52612 


015452 




JSB OUTCR 


YESf OUTPUT IT 


0565 


52613 


026336 




JMP LIST3 




0566** 








** 


0567*** LIST A MULTICHARACTER SYMBOL 


*#* 


0568** 








** 


0569* 












0570* 


UPON 


KNTRY (A) HOLDS A WORD CONTAINING A SYMBOL CODE AND (B) 


0571* 


HOLDS A POINTER TO 


THE PRINT NAME TABLE. THE SYMBOL 13 FOUN 


0572* 


IN THE TABLE 


AND ITS AsCII FORM 


Output, 


0573* 












0574 


52614 


010570 


#MCOT 


AND OPMSK 


save 


0575 


52615 


071436 




StA LT4 


SYMBOL 


0576 


52616 


160001 


MCOT1 


LDA 1,1 


DESIRED 


0577 


52617 


010570 




AND OPMSK 


TABLE 


0578 


52620 


051436 




CPA LT4 


ENTRY? 


0579 


52621 


026630 




JMP MCOT2 


YES 


0580 


52622 


160001 




LDA 1,1 


NO, 


0581 


52623 


010366 




AND .*7 


COMPUTE 


0582 


52624 


040362 




ADA t+ 3 


ADDRESS 


0583 


52625 


001100 




ARS 


OF NEXT 


0584 


52626 


044000 




ADB 


ENTRY 


0585 


52627 


026616 




JMP MCOT1 




0586 


52630 


160001 


MC0T2 


LDA 1, I 


COMPUTE 


0587 


52631 


010366 




AND ,*7 


COUNT 


0568 


52632 


003004 




CMA,INA 


OF 


0589 


52633 


001100 




ARS 


ASCII 


0590 


52634 


071430 




STA LT3 


WOrDs 


0591 


52635 


075460 




STB OUTST 


SAVE AsCix SYMBOL ADDRESS 


0592 


52636 


035460 


MC0T3 


ISZ OUTST 


MOVE TO NEXT WORD OF SYMBOL 


0593 


52637 


161460 




LDA OiJTST#I 


OUTPUT 


0594 


52640 


001727 




ALF,ALF 


HIGH 


0595 


52641 


015452 




JSB OUTCR 




0596 


52642 


161460 




LDA QUTSTfl 


OUTPUT 


0597 


52643 


010500 




AND B377 


LOW CHARACTER 
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0596 

0599 

0600 

0601 

0602 

0603* 

0604* 

0605* 

0606* 

0607* 

0608* 

0609* 

0610* 

0611* 

0612 

0613 

0614 

0615 

0616 

0617 

06l8 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 



52644 002002 

52645 015452 

52646 035430 

52647 026636 
52650 125456 

* 

** LIST A STRING 



SZA 




IF NOT 


JS8 


OUTCR 


NULL 


I8Z 


LT3 


MORE SYMBOL? 


JMP 


MC0T3 


YES 


JMP 


MCOUT,I 


NO 


** 






**# 







** 



UPON ENTRy (A) HOLDS A NEGATIyE wORD COUNT OF THE STRING, IF 
(B) * THE STRING BEGINS WITH THE LOW HALF OF CLTDiX J IF 
(B) s IT BEGINS WITH THE HIGH HALF OF THE WORD FOLLOWING 
(LTD, I . A TRAILING NULL CHARACTER WILL NOT BE PRINTEDt 



5^651 
52652 
52653 
52654 
52655 
52656 
52657 
52660 
52661 
52662 
52663 
52664 
52665 
52666 
52667 



071436 
006002 
026661 
035426 
035274 
161426 
001727 
015452 
161426 
010500 
002002 
015452 
035436 
026654 
125460 



#OTST 



OTST1 



OTST2 



STA LT4 


SAVE STRING WORD COUNT 


SZB 


»REM» 7 


JMP 0TST2 


YES 


ISZ LT1 


NO, MOVE TO 


ISZ LT2 


NEXT PROGRAM WORD 


LOA LT1,I 


OUTPUT 


ALF,ALF 


HIGH 


JSB OUTCR 




LDA Ltlfl 


OUTPUT 


AND B377 


LOW CHARACTER 


SZA 


IF NOT 


JSB OUTCR 


NULL 


ISz LT4 


MORE STRING? 


JMP OtSjI 


YES 


JMP OUTST f I 


NO 
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** 



** 



0002** 

0003*** HANDLE OVERFLOW *** 

0004** 

0005* 

0006* 

0007* 

0008* 

0009* 

0010 

0011 

0012 



(A) CONTAINS THE HIGH MANTISSA UPON ENTRY. (A) AND 

(B) CONTAIN THE LARGEST REPRESENTABLE NUMBER OF 
APPROPRIATE SIGN, PACKED, UPON EXIT, 



52670 064355 

52671 002020 

52672 066005 



#OyFL LDB t -2 
SSA 
LDB BB776 



0D4>1 

0014 

0015 

0016 

0017** 

0016** 

0019** 

0020* 

0021* 

0022* 

0023* 

0024* 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041** 

0042** 

0043** 

0044* 

0045* 

0046* 

0047* 

004g* 

0049* 

0050* 

0051* 

0052* 

0053* 

0054* 

0055* 

0056* 

0057 



52673 830273 



IOR INF 



52674 002020 

52675 061027 

52676 126310 



SSA 

LDA MNEG 
JMP OVFLW,I 

** 
CHECK OvEr/UNDErFLOWS *** 

** 



exit to (p+l) if status is not syntax, 
setting symtb * 4 if in keyboard mode. 

REPORTED IF In TApE MqDE, 



ELSE EXIT TO <P*2), 
THESE ERRORS *RE NOT 



52677 061567 

52700 040367 

52701 164000 

52702 054363 

52703 002001 

52704 026713 

52705 060367 

52706 110255 

52707 002003 
b27l0 075573 

52711 035474 

52712 125474 

52713 035607 

52714 002001 

52715 035474 

52716 125474 



* Look For a number 



#CHOU LDA LNAME COMPUTE 
ADA ,4?STAT*?ID 



LDB 0,1 
CPB .*4 
RSS 

JMP. CHOui 
LDA TAPEF 
AND MAIN, I 
SZA,RSS 
STB SYMTB 
132 CHOUF 
JMP CH0UF,I 

CH U1 isz fnouf 

RSS 

ISZ CHouF 

JMP CHOUF , I 

** 
*** 

** 



STATUS 
SYNTAX? 
YES 
NO 
TAPE 



MODE? 



NO 



ARE WE EXECUTING ENTER STATE? 

NO 

yEs»*suppress error 



NgMCK LOOKs FOR AN yNsXGNED NUMBER, sIGN *UST BE SET 
BY THE CALLER (SIGN • -1 FOR NEGATIVE, ELSE POSITIVE). 
(A) CONTAINS A CHARACTER UPON ENTRY; IF IT IS NEITHER 
A DIGIT NOR A DECIMAL POINT, EXIT IS TO (P+l) WITH 
(A) UNCHANGED AND (B) * 0, EXIT IS TO ERROR ON FINDING 
AN EXPONENT PaRT OF INCORRECT FORMAT, ZERO REPLACES AN 
UNDERFLOW* T HE LARGEST REPREsENtABLE NgMBER OF tHE 
APPROPRIATE SIGN REPLACES AN OVERFLOW, AFTER STORING A 
FLOATING poINT NUMBER IN M AND M+l (WHERE 8BpTR,I « M) 
EXIT IS TO (P+2) WITH THE NEXT INPUT STRING CHARACTER 
IN (A) AND TEMP+l, 



52717 006400 #NMCK CLB 



ZERO 
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0058 


52720 


075322 




STB 


EXP 


ALL 


0059 


52721 


075316 




STB 


MANTl 


COMPONENTS 


0060 


52722 


075320 




STB 


MANT2 


OF THE 


0061 


52723 


075324 




STB 


EXPON 


NUMBER 


0062 


52724 


075612 




STB 


TEMp+1 


SET 'NUMBER PLAGi FAL$E 


0063 


52725 


007400 




CCB 




SET 'DECIMAL POINT' 


0064 


52726 


075750 




STB 


DPFLG 


FLAG FALSE 


0065 


52727 


050435 


NUMCl 


CPA 


# +56B 


DECIMAL POINT? 


0066 


52730 


035750 




ISZ 


DPFLG 


YES 


0067 


52731 


026735 




JMP 


NUMC2 


NO 


0068 


52732 


002400 


, 


CLA 




ZERO POST*DECIMAL 




52733 


071324 




STA 


EXPON 


DIGIT 


0070 


52734 


026772 




JMP 


NUMC4+1 


COUNTER 


0071 


52735 


015264 


NUMG2 


JSB 


DIGCK 


DIGIT? 


0072 


52736 


027006 




JMP 


NUMC7 


NO 


0073 


52737 


035324 




isz 


EXPON 


yEs, COuNj DIGIT 


0074 


52740 


100033 




ASt 


11 


LEFT»JUSTIFY DIGIT 


0075 


52741 


071613 




STA 


TEMP+2 


AND SAVE IT 


0076 


52742 


015300 




JSB 


MBY10 


MULTIPLY PREVIOUS NUMBER BY 


^77 


52743 


065322 




LDB 


EXP 


ZERO 


0078 


52744 


006003 




SZBi 


>RSS 


EXPONENT? 


0079 


52745 


027001 




JMP 


NUMC6 


YES 


0080 


52746 


044353 




AOB 


.-4 


NO, 


0081 


52747 


007000 




CMB 




SAVE 


0082 


52750 


061613 




LDA 


TEMP+2 


SHIFT 


0083 


52751 


075613 




STB 


TEmP+2 


COUNT 


0084 


52752 


006400 




CLB 




CLEAR LOWER MANTISSA 


0085 


52753 


035613 


NyMC3 


ISZ 


TEMP+2 


ALL SHIFTS DONE? 


0086 


52754 


026776 




JMP 


NUMC5 


NO 


0087 


52755 


000040 




CLE 




YES, ADD IN 


0088 


52756 


045320 




ADB 


MANT2 


LOW PART 


0089 


52757 


103101 




CLO 




OF NUMBER 


0090 


52760 


002040 




SEZ 




OVERFLOW FROM (B)? 


0091 


52761 


002004 




INA 




YES 


0092 


52762 


041316 




ADA 


MANTl 


ADD IN HIGH PART OF MANTISSA 


0093 


52763 


102301 




SOS 




OVERFLOW? 


0094 


52764 


026771 




JMP 


NUMC4 


NO 


0095 


52765 


000065 




CLE, 


,ERA 


YES f CORRECT 


0096 


52766 


005500 




FRB 




MANTISSA 


0097 


52767 


035322 




ISZ 


EXP 


AND BUMP 


0096 


52770 


000000 




NOP 




EXPONENT 


0099 


52771 


015304 


NUMC4 


JSB 


NORML 


NORMALIZE THE NUMBER 


0100 


52772 


035612 




ISZ 


TEMP+i 


SET 'NUMBER FLaG' TRUE 


0101 


52773 


015446 




JSB 


GETCR 


FETCH CHARACTER 


0102 


52774 


027055 




JMp 


NUM12-1 


none Found 


0103 


52775 


026727 




JMp 


NUMCl 




0104 


52776 


000065 


NUMC5 


CLEi 


.ERA 


SHIFT 


0105 


52777 


005500 




ERB 




DIGIT 


0106 


53000 


026753 




JMP 


NUMC3 


RIGHT 


0107 


53001 


060363 


NUMC6 


LOA 


.+4 


SET 


0108 


53002 


071322 




STA 


EXP 


EXPONENT 


0109 


53003 


061613 




LDA 


TEMP+2 


LOAO 


0110 


53004 


006400 




CLB 




NUMBER 


0111 


53005 


026771 




JMP 


NUMC4 




0112 


53006 


006400 


NUMC7 


CLB 




SET EXPONENT 


0113 


53007 


075613 




STB 


TEMP+2 


SIGN TO «+» 



10 
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0114 


53010 


055612 


CPB 


UmP*1 


DIGIT OR DECIMAL POINT FOUND? 


0115 


53011 


125276 


JMP 


NUMCK,I 


NO 


0116 


53012 


050464 


CPA 


E 


1E1 ? 


0117 


53013 


002001 


RSS 




YES 


0118 


53014 


027056 


JMP 


NUM12 


NO 


0119 


53015 


015446 


JSB 


6ETCR 


FETCH CHARACTER 


0120 


53016 


027115 


JMP 


NUM16 


NONE FOUND 


0121 


53017 


050432 


CPA 


♦ +53B 


« + » ? 


0122 


53020 


027025 


JMP 


NUMC8 


YES 


0123 


53021 


050434 


CPA 


t + 55B 


NO, **! ? 


0124 


53022 


003401 


CCA, 


rRSS 


YES 


0125 


53023 


027027 


JMP 


NUMC9 


NO 


0126 


53024 


071613 


STA 


TEMP+2 


SET EXPONENT SIGN TO *«« 


0127 


53025 


015446 


NUMC8 JSB 


GETCR 


FETCH CHARACTER 


0128 


53026 


027115 


JMP 


NUM16 


NONE FOUND 


0129 


53027 


015264 


NUMC9 JSB 


OIGCK 


DIGIT? 


0130 


53030 


027H5 


JMP 


NUM16 


NO 


0131 


53031 


071612 


STA 


temp+i 


YEs, SAVE IT 


0132 


53032 


015446 


JSB 


GETCR 




0133 


53033 


027051 


JMP 


NUMll 




0134 


53034 


015264 


JSB 


OIGCK 


DIGIT? 


0135 


53035 


027051 


JMP 


NUMU 


NO 


0136 


53036 


061612 


IDA 


TEMP+1 


YES, MULTIPLY 


0137 


53037 


075612 


STB 


TEMP+1 


PREVIOUS DIGIT 


0138 


53040 
53041 


100200 
000371 


MPY 


. + 10 


BY 10 


0139 


53042 


041612 


ADA 


TEMP*l 


ADD IN NEW DIGIT 


0140 


53043 


071612 


STA 


TEMP+l 


SAVE EXPONENT 


0141 


53044 


015446 


JSB 


GETCR 




0142 


53045 


027051 


JMP 


NUMll 




0143 


53046 


015264 


JSB 


DIGCK 


THIRD DIGIT? 


0144 


$3047 


002001 


RSS 




NO 


0145 


53050 


027115 


JMP 


NUM16 


YES 


01 4 6 


53051 


065612 


NUMll LDB 


TEMP+1 


LOAD EXPONENT 


0147 


53052 


035613 


ISZ 


TEMP+2 


POSITIVE? 


0148 


53053 


007004 


cmb, 


flH& 


yes, Complement it 


0149 


53054 


002001 


RSS 




no 


0150 


53055 


006400 


CLB 






0l5l 


53056 


071612 


NUM12 STA 


TEMP+l 


SAVE CHARACTER 


0152 


53057 


035750 


isz 


DpFLG 


DECIMAL POINT FqUND? 


0153 


53060 


045324 


ADB 


EXPON 


yes# Correct exponent 


0154 


53061 


006003 


SZB, 


,RSS 


NO, ZERO EXPONENT? 


0155 


53062 


027077 


JMP 


NUM14 


YES 


0156 


53063 


006020 


SSB 




NO, POSITIVE EXPONENT? 


0157 


53064 


027073 


JMP 


NUMU 


YES 


0158 


53065 


007004 


CMB, 


,INB 


NO, SET 


0159 


53066 


075324 


STB 


EXPON 


counter 


0160 


53067 


015302 


JSB 


DByl0 


DlylDE NUMBER BY 10 


0161 


53070 


035324 


isz 


EXPON 


DONE? 


0162 


53071 


027067 


JMP 


♦ •2 


NO 


0163 


53072 


027077 


JMP 


NUM14 


YES 


0164 


53073 


075324 


NUM13 STB 


EXPON 


SET COUNTER 


0165 


53074 


015300 


JSB 


MBY10 


MULTIPLY NUMBER BY 10 


0166 


53075 


035324 


ISZ 


EXPON 


DONE? 


0167 


53076 


027074 


JMP 


*-2 


NO 


0168 


53077 


061316 


NUM14 LOA 


MANT1 


LOAD 
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0169 


53100 


065320 




LDB MANT2 


MANTISSA 


0170 


53101 


035266 




ISZ SIGN 


POSITIVE? 


0171 


53102 


027106 




JMP NUM15 


yes 


0172 


53103 


003000 




CMA 


NO, COMPLEMENT 


0173 


53104 


m7m7 




CMB,INB,8ZB, 


RSS THE 


0174 


53105 


002004 




INA 


NUMBER 


0175 


53106 


015306 


NUM15 


JSB .PACK 


NORMALIZE AND PACK 


0176 


53107 


171572 




STA SBPTR,I 


STORE 


0177 


53110 


015270 




JSB SBPUD 


NUMBER IN 


0178 


53111 


175572 




STB sBPTRf I 


DESTINATION 


0179 


53112 


015270 




JSB SBPUD 


ADDRESS 


0180 


53113 


061612 




LOA TEMP+i 


RETRIEVE CHARACTER 


0181 


53114 


035276 




ISZ NUMCK 




0182 


53115 


035276 


NUM16 


ISZ NUMCK 




0183. 


53116 


125276 




JMP NUMCK,! 




0184** 








** 


0185*** MULTIPLY UNPACKED NUhBER BY 10 *** 


0186** 








** 


0187* 












0188* 


THE F 


r LOATING 


POINT 


NUMBER IN MANTl, MANT2, AND ExP 


0189* 


IS MULTIPLIED BY 10, 




0190* 












019* 


53117 


061316 


0MB10 


UDA MANTl 


LOAD HIGH MANTISSA 


0192 


53120 


002003 




SZA,R8S 


ZERO NUMBER? 


0193 


53121 


125300 




JMP MBY10,I 


YES 


0194 


53122 


065322 




LOB ExP 


NO, 


0195 


53123 


044362 




ADB .+3 


MULTIPLY 


0196 


53124 


075322 




STB EXP 


BY 8 


0197 


53125 


06532 




LDB MANT2 


LOAD LOW MANTISSA 


0198 


53126 


000065 




CLE, ErA 


DIVIDE 


0199 


53127 


005500 




ERB 


BY 


0200 


53130 


000065 




CLE,ERA 


4 


0201 


53131 


005540 




ERB, CLE 




0202 


53132 


045320 




ADB MANT2 


ADD INTO 


0203 


53133 


002040 




SEZ 


BOTH REGISTERS 


0204 


53134 


002004 




INA 


PRODUCING 


0205 


53135 


041316 




ADA MANJ1 


1,25 * MANTISSA 


0206 


53136 


0020?1 




SSAfRSS 


CORRECT 


0207 


53137 


027144 




JMP MBY01 




0208 


53140 


000065 




CLE, ERA 


ON 


0209 


53141 


005500 




ERB 




0210 


53142 


035322 




ISZ EXP 


OVERFLOW 


0211 


53143 


000000 




NOP 




0212 


53144 


071316 


MBY01 


STA MANTl 


STORE 


0213 


53145 


075320 




STB MANT2 


MANTISSA 


0214 


53146 


125300 




JMP M8Y10,I 
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0216** 






** 




0217*** NORMALIZE 


unpacked number *** 




0218** 






** 




0219* 












0220* 


ENTER WITH NUMBER 


IN (A), (B), AND EXP, EXIT WITH 


0221* 


NORMALIZED NUMBER 


IN M*NT1, MANT2, AND EXP (MANTISSA 


0222* 


IS LEFT IN (A) AND 


(B) A3 WELL). 




0223* 












0224 


53147 


071300 


#NRML 


STA NT0 


SET 


0225 


53150 


002400 




CLA 


LEFT-SHIFT 


0226 


53151 


071613 




STA TEMP+2 


COUNTER 


0227 


53152 


061300 




LDA NT0 


TO ZERO 


0226 


53153 


002003 




SZA,RSS 


IF NUMBER 


0229 


53154 


006002 




SZB 


IS ZERO, 


0230 


53155 


027163 




JMP N0RM2*1 


CLEAR 


0231 


5 3 l56 


071322 




STA EXP 


EVERYTHING 


0232 


53157 


071316 




STA MANT1 


STORE 


0233 


53i6g 


075320 


NORM* 


STB MANT2 


MANTISSA 


0234 


53161 


125304 




JMP NORML, I 




0235 


53162 


035613 


N0RM2 


ISZ TEMP*2 


COUNT A LEFT SHIFT 


0236 


53163 


004066 




CLE,ELB 


ROTATE (A) 


0237 


53164 


001600 




ela 


AND (B) LEFT 


0238 


53165 


002061 




SEZ,SSA,RSS 


TWO HIGHEST BITS 0? 


0239 


53166 


«27l62 




JMP N0RM2 


YES, POSITIVE UNNORMALIZEO 


0240 


53167 


002060 




SEZ # SSA 


NO, TWO HIGHEST BltS 1? 


0241 


53170 


027162 




JMP N0RM2 


yES, NEGATIVE UNNORMALIZEO 


0242 


53171 


001500 




ERA 


NO, NORMALIZE 


0243 


53172 


005540 




ERB,CLE 


MANTISSA 


0244 


53173 


071316 




STA MAN T 1 


COMPUTE 


0245 


53174 


061613 




LDA tEmP+2 




0246 


53175 


003004 




CMA,INA 


CORRECTED 


0247 


53176 


041322 




ADA EXP 




0248 


53177 


071322 




STA EXP 


EXPONENT 


0249 


53200 


061316 




LDA MANT1 




0250 


53201 


027160 




JMP NORM1 




0251** 






** 




0252*** NORMALIZE 


and pack number *** 




0253** 






** 




0254* 












0255* 


Number in (A), (B) 


, AND ExP ON EN T Ry t ON ExlT (A) 


0256* 


and 1 


(6) CONTAIN THE NORMALIZED, 1 


ROUNDED, AND PACKED 


0257* 


number, underflow 


BECOMES A ZERO, OvERFLOw BECOMES 


0258* 


THE LARGEST 


REPRESNTABLE NUMBER 1 


OF APPROPRIATE SIGN, 


0259* 












0260 


53202 


015304 


#PACK 


JSB NORML 


NORMALIZE NUMBER 


0261 


53203 


002103 




cle,sza,rss 


ZERO? 


0262 


53204 


125306 




JMP .PACK, I 


YES 


0263 


53205 


044474 




ADB B177 


NO, ROUND 


0264 


53206 


002021 




SSA,RS8 


POSITIVE! 


0265 


53207 


006004 




INB 


YES, FINISH ROUND 


0266 


53210 


103101 




CLO 




0267 


53211 


002040 




SEZ 


ON OVERFLOW FROM (B) 


0268 


53212 


002104 




ClE,InA 


CORRECT (A) 


0269 


53213 


102301 




SOS 


OVERFLOW? ( (A)«100 00, (B 


0270 


53214 


001200 




RAL 


TWO HIGH BITS 


0271 


5321 5 


002031 




SSA,SLA,RSS 


BOTH 1? ( IF (A) WAS 1401 
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0272 


53216 


027221 




JMP 


PACK1 


NO 


0273 


53217 


002300 




CCE 




YES 


0274 


53220 


001130 




ARS< 


rSLA#AL8 


SET (A) » 100000 AND SKIP 


0275 


53221 


001300 


PACK1 


RAR 




UNDOES RAL ABOyE 


0276 


53222 


071613 




STA 


TEMP*2 


SAVE (A) 


0277 


53223 


101050 




LSR 


8 


DELETE 8 LOW BITS 


0278 


53224 


006727 




BLF, 


,BLF 


OF MANTISSA 


0279 


53225 


061322 




LOA 


EXP 


DECREMENT 


0280 


53226 


002040 




SEZ 




EXPONENT 


0281 


53227 


040356 




AQA 


,«i 


ON CE) * 


0282 


53230 


102201 




soc 




INCREMENT 


0233 


§3231 


002004 




INA 




EXPONENT ON OVERFLOW 


0284 


53232 


040476 




ADA 


B200 


EXPONENT 


0285 


53233 


002020 




SSA 




UNDERFLOW? 


0286 


53234 


027253 




JMP 


PACK3 


YES 


0287 


53235 


040316 




ADA 


M256 


NO, EXPONENT 


0288 


53236 


002021 




SSAi 


rRSS 


OVERFLOW? 


0289 


53237 


027260 




JMP 


PACK4 


YES 


0290 


53240 


040476 




ADA 


B200 


NO, RESTORE EXPONENT 


0291 


53241 


001200 




RAL 




POSITION 


0292 


53242 


010500 




AND 


B377 


EXPONENT AND 


0293 


53243 


044000 




ADB 





ADD LOW MANTISSA 


0294 


53244 


061613 




IDA 


TEMP*2 


RETRIEVE HIGH MANTISSA 


0295 


53245 


051027 




CPA 


MNEG 




0296 


53246 


002001 




RSS 




NEGATIVE 


0297 


53247 


125306 




JMP 


.PACK, I 




0298 


53250 


055030 




CPB 


MNEG+1 


OVERFLOW? 


0299 


53251 


027260 




JMP 


PACK4 


YES 


0300 


53252 


125306 




JMP 


.PACK, I 


NO 


0301 


53253 


015474 


PACK3 


JSB 


CHOUP 


CHECK STATUS 


0302 


53254 


115207 




J SB 


WERRS*6, 


I 


0303 


53255 


002400 




CLA 




ZERO RESULT 


0304 


53256 


006400 




CLB 




ON UNDERFLOW 


0305 


53257 


125306 




JMP 


.PACK f I 




0306 


53260 


015474 


PACK4 


JSB 


CHOUP 


CHECK STATUS 


0307 


53261 


115206 




JSB 


WERRS*5, 


I 


0308 


53262 


061613 




IDA 


TEMP+2 


RETRIEVE HIGH MANTISSA 


0309 


S3263 


015310 




JSB 


OVFLW 




0310 


53264 


125306 




JMP 


.PACK, I 




0311** 










** 


0312*** DIVIDE uNpACKED 


number by 10 


*** 


0313** 










#* 


0314* 














0315* 


Inverse qf mBy10 








0316* 














0317 


5 3 265 


061316 


*DB10 


IDA 


MANT1 


RETURN 


0318 


53266 


002003 




SZA, 


RSS 


ON 


0319 


53267 


125302 




JMP 


DBY10,I 


ZERO 


0320 


53270 


064355 




LDB 


r 2 


ADD EXPONENT 


0321 


53271 


045322 




ADB 


EXP 


OF 1/10 TO 


0322 


53272 


075322 




STB 


EXP 


THAT OF NUMBER 


0323 


53273 


061320 




LDA 


MANT2 


JUSTIFY 


0324 


53274 


000065 




CLE, 


,ERA 


LOWER MANTISSA 


0325 


53275 
53276 


100200 
052000 




MPY 


TENTH 


MULTIPLY BY 1/10 


0326 


53277 


000066 




CLE, 


,ELA 


SHIFT 
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0327 


53300 


005640 


EIB,CLE 


BACK 


0326 


53301 


040001 


AOA 1 


ADD IN EQUIVALENT OP 


0329 


53302 


002040 


SE2 


LONER MANTISSA* 


0330 


53303 


006104 


CLE,INB 


TENTH*2fC.t6) 


0331 


53304 


075320 


STB MANT2 


AND ROUND TO 16 BITS 


0332 


53305 


061316 


IDA MANTl 


DO 


0333 


53306 
53307 


100200 
052000 


MPY TENTH 


SAME TO 


0334 


53310 


040001 


AOA 1 


HIGH MANTISSA 


0335 


53311 


041320 


ADA MANT2 


PERFORM EFFECTIVE 


0336 


53312 


002040 


SEZ 


SUM OF DOuBLE<.LENGtH 


0337 


53ti * 


006004 


INB 


PRODUCTS 


0338 


53314 


101100 


SWP 


SWAP (A) AND (B) 


0339 


53315 


015304 


JSB NORML 


NORMALIZE 


0340 


53316 


125302 


JMp DBY10#I 


RESULT 
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0342** 

0343** 

0344** 

0345* 

0346* 

0347* 

0348* 

0349* 

0350* 

0351* 

0352** 

0353* 

0354 

0355 
0356 
0357 

0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 

0368 

0369 

0370 

0371* 

0372** 

0373* 

0374 

0375 

0376 

0377* 

0378** 

0379* 

0380 

0381 



0382 
0383 

0384 

0385 
0386 

0387 
0388 
0389 
0390 
0391 

0392 
0393 



* PRINT NAME TABLE FOR MULTICHARACTER SYMBOLS 



** 

*** 
** 



BITS 15-9 OF THE 'OCT 1 WORD ARE 
COOES OF THE SYMBOLS, BITS 2*0 
CHARACTERS OF THE SYMBOLS, THE 
NAME) FOLLOWS. 



THE BA3IC OPERATOR 
ARE THE LENGTH IN 
ASCII VERSION (PRINT 



MULTICHARACTER BINARY OPERATORS 



53317 

53320 

53321 
53322 

53323 
53324 

53325 

53326 
53327 

53330 

53331 
53332 
53333 
53334 

53335 
53336 
53337 



032003 
040516 

042000 
033002 
047522 
034003 
046511 
047000 
035003 
046501 
054000 
036002 
036076 
037002 
037075 
040002 
036075 



MCBOS OCT 
ASC 
OCT 
OCT 
ASC 

OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
HrELs OCT 
ASC 

OCT 
ASC 
OCT 
ASC 



32003 
1,AN 

42000 
33002 

1# OR 

34003 

t,MI 

47000 

35003 

1,MA 

54000 
36002 
i,o 
37002 

40002 



* 

** 
* 
AND 



OR 
MIN 



MAX 



UNEQUAL 

greater tha n or equal 
less tha n or Equal 



MULTICHARACTER UNARY OPERATOR 



* 
** 

* 



53340 041003 

53341 047n7 

53342 052000 



NOT 



STATEMENT TYPEs 



OCT 
ASC 

OCT 

* 
* + 



53343 
53344 
53345 
53346 
53347 
53350 
53351 
53352 
53353 
53354 
53355 
53356 

53357 
53360 
53361 
53362 

53363 
53364 



042006 

040523 
051511 
043516 
043005 
052523 
044516 
043400 

044005 
044515 
040507 
042400 
045003 
041517 
046400 
046003 
046105 
052000 



STyPS OCT 
ASC 



USTMT OCT 
ASC 

OCT 
OCT 
ASC 

OCT 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 



41003 

l,NO 

52000 



42006 ASSIGN 
3f ASSIGN 



43005 
2,USIN 

43400 

44005 
2,IMAG 

42400 

45003 

i,CO 

46400 

46003 

1,LE 

52000 



USING 
IMAGE 

COM 
LET 
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0394 


53365 


047003 


OCT 


47003 


DIM 


0395 


53366 


042111 


ASC 


1,DI 




0396 


53367 


046400 


OCT 


46400 




0397 


53370 


050003 


OCT 


50003 


OEF 


0398 


53371 


042105 


ASC 


1,DE 




0399 


53372 


043000 


OCT 


43000 




0400 


53373 


051003 


OCT 


51003 


REM 


0401 


53374 


051105 


ASC 


1,RE 




0402 


53375 


046400 


OCT 


46400 




0403 


53376 


052004 


OCT 


52004 


GOTO 


0404 


53377 

53400 


043517 
052117 


ASC 


2*G0TQ 




0405 


53401 


053002 


OCT 


53002 


IF 


0406 


53402 


044506 


ASC 


l^IF 




0407 


53403 


054003 


OCT 


54003 


FOR 


0408 


53404 


043117 


ASC 


l,FO 




0409 


53405 


051000 


OCT 


5 1000 




0410 


53406 


055004 


OCT 


55004 


NEXT 


0411 


53407 
53410 


047105 
054124 


ASC 


2, NEXT 




0412 


53411 


056005 


OCT 


56005 


GOSyB 


0413 


53412 
53413 


043517 
051525 


ASC 


2'GQSU 




0414 


53414 


041000 


OCT 


41000 




0415 


53415 


057006 


OCT 


57006 


RETURN 


0416 


53416 
53417 
53420 


051105 
052125 
051116 


ASC 


3, RETURN 




0417 


53421 


060003 


EOFOP OCT 


60003 


END 


0418 


53422 


0425i6 


ASC 


I#EN 




0419 


53423 


042000 


OCT 


42000 




0420 


53424 


061004 


OCT 


61004 


STOP 


0421 


53425 
53426 


051524 
047520 


ASC 


2, STOP 




0422 


53427 


062004 


OCT 


62004 


DATA 


0423 


53430 
53431 


042101 
052101 


ASC 


2>DATA 




0424 


53432 


063005 


IOSTS OCT 


63005 


INPyT 


0425 


53433 
53434 


0445i6 
050125 


ASC 


2,INPU 




0426 


53435 


052000 


OCt 


52000 




0427 


53436 


064004 


OCT 


64004 


READ 


0428 


53437 
53440 


051105 
040504 


ASC 


2, READ 




0429 


53441 


065005 


OCT 


65005 


PRINT 


0430 


53442 
53443 


050122 
044516 


ASC 


2rPRIN 




0431 


53444 


052000 


OCT 


52000 




0432 


53445 


066007 


OCT 


66007 


RESTORE 


0433 


53446 
53447 
53450 


051105 
051524 
047522 


ASC 


3,REST0R 




0434 


53451 


042400 


OCT 


42400 




0435 


53452 


067003 


OCT 


67003 


MAT 


0436 


53453 


046501 


AsC 


1,MA 




0437 


53454 


052000 


OCT 


52000 
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0439 


53455 


070005 




OCT 


70005 


FILES 




0439 


53456 
53457 


043111 
046105 




ASC 


2, FILE 






0440 


53460 


051400 




OCT 


51400 






0441 


53461 


071005 




OCT 


71005 


CHAIN 




0442 


53462 
53463 


041510 
040511 




ASC 


2,CHAI 






0443 


53464 


047000 




OCT 


47000 






0444 


53465 


072005 




OCT 


72005 


ENTER 




0445 


53466 
53467 


042516 
052105 




ASC 


2,ENTE 






0446 


53470 


051000 




OCT 


51000 






0447 


53471 


07300I 




OCT 


73001 


'IMPLIED' 


LET 


0448 


534*2 


000000 




OCT 









0449* 










* 






0450** MISCELLANEOUS OPERATORS ** 






0451* 










* 






0452 


53473 


074002 




OCT 


74002 


of 




0453 


53474 


047506 




ASC 


t,OF 






0454 


53475 


075004 


THEN 


OCT 


75004 






0455 


53476 
53477 


052110 
042516 




ASC 


2 , THEN 






0456 


53500 


076002 




OCT 


76002 


TO 




0457 


53501 


052117 




ASC 


IrTO 






0458 


53502 


077004 


STEP 


OCT 


77004 






0459 


53503 
53504 


051524 
042520 




ASC 


2, STEP 






0460* 














* 


0461** PREDEFINED 


functions, 


BI T S 13,9 ARE mSED 


** 


0462** FOR INTERNAL IDENTIFICATION 




** 


0463* 














* 


0464 


53505 


001003 


tab 


OCT 


1003 


TAB 




0465 


53506 


052101 




ASC 


IrTA 






0466 


53507 


041000 




OCT 


41000 






0467 


53510 


002003 




OCT 


2003 


LIN 




0468 


53511 


0461H 




ASC 


1#LI 






0469 


53512 


047000 




OCT 


47000 






0470 


53513 


003003 




OCT 


3003 


SPA 




0471 


53514 


051520 




ASC 


1,SP 






0472 


53515 


040400 




OCT 


40400 






0473 


53516 


004003 


PRDFS 


OCT 


4003 


TAN 




0474 


53517 


052101 




ASC 


1,T* 






0475 


53520 


047000 




OCT 


47000 






0476 


53 5 21 


005003 




OCT 


5003 


ATN 




0477 


53522 


040524 




ASC 


1,AT 






0478 


53523 


047000 




OCT 


47^m 






0479 


53524 


006003 




OCT 


6003 


EXP 




0480 


53525 


042530 




ASC 


1,EX 






0481 


53526 


050000 




OCT 


50000 






0482 


53527 


007003 




OCT 


7003 


LOG 




0483 


53530 


046117 




ASC 


l,LO 






0484 


53531 


043400 




OCT 


43400 






0485 


53532 


010003 




OCT 


10003 


ABS 




0486 


53533 


040502 




ASC 


1,AB 






0487 


53534 


051400 




OCT 


51400 






0488 


53535 


011003 




OCT 


11003 


SQR 
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0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

050a 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518* 

0519* 

0520* 

0521 

0522 
0523 
0524 

0525 
0526 
0527 
0528 
0529 
0530 
0531 

0532 
0533 
0534 
0535 



53536 
53537 
53540 
53541 
53542 
53543 
53544 
53545 
53546 
53547 
53550 
53551 

53552 
53553 
53554 
53555 
53556 

5^557 
53560 

53561 
53562 
53563 

53564 
53565 
53566 
53567 
53570 
53571 
53572 



051521 

051000 

012003 
044516 
052000 
013003 
051116 
042000 
014003 
051507 
047000 
015003 
046105 
047000 
016003 
052131 
050000 
017003 
052111 

046400 
020003 
051511 
047000 
021003 
041517 

051400 
022003 
041122 
045400 



* MATRIX FUNCTIONS 



53573 
53574 
53575 
53576 
53577 
53600 
53601 
53602 

53603 
53604 

53605 
53606 
53607 
53610 
53611 



024003 
055105 
051000 
025003 
041517 
047000 
026003 
044504 
047000 
027003 
044516 
053000 
030003 
052122 
047000 



MATF8 



ASC 1,SQ 
OCT 51000 
OCT 12003 
ASC 1,IN 
OCT 52000 
OCT 13003 
ASC l,RN 
OCT 42000 
OCT 14003 
ASC 1,SG 
qCT 47000 
OCT 15003 

ASC i,ii 

OCT 47dm 
OCT 16003 
ASC 1,TY 
OCT 50000 
OCT 17003 
ASC 1,TI 
OCT 46400 
OCT 20003 
ASC 1,SI 
OCT 47000 
OCT 21003 
ASC 1,CQ 
OCT 51400 
OCT 22003 
ASC 1,BR 

OCT 45400 

* 
** 

* 
OCT 24003 
ASC ifZE 
OCT 51000 
OCT 25003 
ASC l,CQ 
OCt 47000 
OCT 26003 
ASC i,IO 
OCT 47000 
OCT 27003 
ASC i,IN 
OCT 53000 
OCT 30003 
ASC 1,TR 
OCT 47000 



INT 
RNO 
SGN 
LEN 
TYP 
TIM 
SIN 
COS 
BRK 



ZER 

CON 

IDN 
INv 
TRN 
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0002 


54000 






ORG 


54000B 




0003 


54^00 


000130 


.X 


OCT 


130 




0004 


54001 


000123 


S 


OCT 


123 




0005 


54002 


000104 


D 


OCT 


104 




0006 


54003 


000101 


• A 


OCT 


101 




0007 


54004 


177722 


M46 


DEC 


«46 




0006 


54005 


000111 


,.73 


DEC 


73 




0009* 














0010* 


THE i 


ADDRESS 1 


QF THE 


FIRST WORD 


OF THE FORMAT 


00H* 


STRING IS IN 


(B) UPON ENTRY, 


THE FORMATTER 


0012* 


EXTRACTS THE 


NUMBER OF 


CHARACTERS IN THE STRING 


001 3* 


AND 1 


FHEN EXTRACTS 


the format specifications 


0014* 


ONE BY ONE, 


AS EACH SPECIFICATION 13 EXTRACTED, 


0015* 


IT IS LOADED 


INTO 


A STACK* ONE 


character per 


0016* 


WORD 


AND CHECKED FOR SYNTAX ERRORS, THE 


0017* 


TYPE 


OF SpECjFiCAT 


ION ] 


[S DETERMINED AT THIS 


0018* 


TIME 


AND THE 


SPECIFICATION IS 


THEN EXECUTED 


0019* 


FROM 


THE STACK, 








0020* 














0021 


54006 


075643 


*FRMT 


STB 


EC 


SAVE POINTER TO STRING 


0022 


54007 


006004 




INB 




MAKE INTO 


0023 


54010 


0040££ 




CLE, 


,ELB 


CHARACTER POINTER 


0024 


54011 


044000 




ADB 


A 


ADD IN STARTING CHARACTER 


0025 


54012 


003004 




CMAi 


pINA 


SAVE STARTING 


0026 


54013 


071743 




STA 


CC 


CHARACTER 


0027 


54014 


075757 




STB 


IFSTR 


SAVE IN FQrMAt STRING ADDrEss 


0028 


54015 


075747 




STB 


OP 


and delimiter pqXnter 


0029 


54016 


065760 




LDB 


NCH 


maybe 


0030 


54017 


006002 




SZB 






0031 


54020 


026027 




JMP 


FM0 


YES 


0032 


54021 


161643 




LDA 


ECfl 


NO, COMPUTE n 


0033 


54022 


010500 




AND 


B377 


OF CHARACTERS 


0034 


54023 


041743 




ADA 


CC 


In FORMAT 


0035 


54024 


071760 




STA 


NCH 


STRING 


0036 


54025 


002003 




SZA, 


,RSS 


NULL STRING? 


0037 


54026 


027674 




JMP 


FMEND+1 


YES, IGNORE IT 


0038 


54027 


002400 


FM0 


CLA 




INITIALIZE 


0039 


54030 


071743 




STA 


CC 


CHARACTER COUNTER 


0040 


54031 


071746 




STA 


CONTR 


CONTROL CHARACTER 


0041 


54032 


071643 




STA 


EC 


EXPRESSION COUNTER 


0042 


54033 


071744 




STA 


CC1 


START OF PARENTHESIS LEVEL 1 


0043 


54034 


071745 




STA 


CC2 


START OF PARENTHESIS LEVEL 2 


0044 


54035 


071763 




STA 


PCI 


REPETITION COUNT FOR LEVEL 1 


0045 


54036 


071764 




SjA 


PC2 


REPETITION COuNt FQ* LEVEL 2 


0046 


54037 


071646 




STA 


SFLG 


STRING FLAG 


0047 


54040 


015536 


FMT2 


JSB 


OSRCH 


DELIMITER SEARCH 


0048 


64041 


102101 




STO 




IGNORE BLANKS 


0049 


54042 


061644 




LDA 


FST 


GET THE 


0050 


54043 


015540 




JSB 


MCHAR 


FIRST CHARACTER 


0051 


54044 


051747 




CpA 


Dp 


delimiter found * 


0052 


54045 


027673 




JMP 


FMEND 


YES 


0053 


64046 


050432 




CPA 


,*53B 


IS CHARACTER A PLUS I 


0054 


54047 


026055 




JMP 


FMT1 


YES 


0055 


54050 


050434 




CPA 


,+55B 


IS IT A MINUS ? 


0056 


54051 


026055 




JMP 


FMT1 


YES 


0057 


54052 


050422 




CPA 


,+438 


NO, IS IT A NUMBER SIGN 
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0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 

0066 
0067 
0068 
0069 
0070 

0071 
0072 
0073 
0074 

0075 
0076 

mi7 

0078 
0079 
0080 
0081 

0082 
0083 

0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 

0105 
0106 
0107 
0108 
0109 
0110 

0111 
0112 
0113 



54053 
54054 
54055 
54056 
54057 

54060 
54061 

54062 
54063 
54064 
54065 
54066 
54067 

54070 
54071 
54072 
54073 
54074 
54075 
54076 

54077 



54 
54 
54 
54 

54 
64 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 



100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
13 6 
137 
140 
141 
142 



002001 
026105 
065743 
055760 
115162 

07*746 
035644 

061644 
102101 
015540 
051747 

002001 
026073 

103101 
061747 
015540 
050433 
002001 
115163 
035747 

035743 
065743 
055760 
115162 
061747 
015536 
003400 
071750 
071752 
002004 
071761 
071762 
071766 
071765 
071740 
071730 
071731 
002004 
071774 
061756 
071755 
061644 
102101 
015540 
051747 
115162 
050421 
002001 
026177 
065747 
007004 
045644 
045743 
075743 
035644 
061743 



FMH 



FMT01 



FM T 3 



FMT16 



RS8 
JMP 
LDB 
CPB 
J SB 
8TA 
ISZ 
LDA 
STO 
JSB 
CPA 
RSS 
JMP 
CIO 
LDA 
JSB 
CPA 
RSS 
JSB 
ISZ 
ISZ 
LDB 
CpB 
JSB 
LDA 
JSB 
CCA 
STA 
STA 
INA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
INA 
STA 
LDA 

STA 

LDA 
STO 
JSB 
CpA 
JSB 
CPA 
RSS 
JMP 
LDB 
CMB 
ADB 
ADB 
STB 
ISZ 
LDA 



FMT3 

CC 

NCH 

F£RRS,I 

CONTR 

FST 

FST 

MCHAR 
DP 

FMT01 

DP 

MCHAR 

,+54B 

FERRS+1,1 

DP 

CC 

CC 

nCh 

FERRS,I 
DP 
DSRCH 

DpFL.6 

Eflag 

NUMi 

NuM2 

SBD 

SAD 

snflg 

NAD 
NBD 

REpCT 
IFSS 
FSP 
FST 

MCHAR 
Dp 

FERRS,I 
t +42B 

FMT0 
DP 
,INB 
FST 
CC 
CC 
FST 
CC 



YES 
NO 
END QF 

STRING ? 
YES, ERROR 

SAVE CARR. CONTROL CHARACTER 
INCREMENT STRING POINTER 

IGNORE BLANKS 
GET NEXT CHARACTER 
DELIMITER FOuND ? 
YES 

NO, CHARACTER FOUND ? 
GET 
THE 

DELIMITER 
IS IT A COMMA 7 
YES 
NO, ERROR 

increment delimiter pointer 
and character counter 

all Characters used ? 
yes, error 

NO 

FIND NEXT DELIMITING CHARACTER 

initialize 
fixed Flag 
floating flag 

pre*decimal point d counter 

POsT«OECIMAL POINT D COuNtER 
S BEFORE D CqUNTEr 

s after d counter 

SIGN FLAG 

POSUDECIMAL Zi.RO COUNTER 

PRE-DECIMAL POINT DIGIT COUNTE 

REPETITION CqUnT 

FORMAT STACK 
POINTER 
GET NON-DELIMITING 

CHARACTER 

IGNORING BLANKS 
IS IT A DELIMITER ? 
YES 

IS IT A QUOTE? 
YES 
NO 

RESET 

CHARACTER 
COUNTER 

INCREMENT STRING POINTER 
ALL 
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0114 


54143 


051760 


CPA 


NCH 


CHARACTERS USED ? 


0115 


54144 


115164 


JSB 


FERRS*2,i 


YES, ERROR 


0116 


54145 


035743 


ISZ 


CC 


INCREMENT CHARACTER COUNTER 


0117 


54146 


061644 


IDA 


FST 




0118 


54147 


103101 


CLO 




DON»T IGNORE BLANKS 


0119 


54150 


015540 


JSB 


MCHAR 


GET NEXT CHARACTER 


0120 


54151 


171755 


STA 


FSP, I 


LOAD CHARACTER ONTO STACK 


0121 


54152 


035755 


ISZ 


FSP 


INCREMENT STACK POINTER 


0122 


54153 


050421 


CPA 


.+42B 


IS IT A • ? 


0123 


54154 


002001 


RSS 




YES 


0124 


54155 


026141 


JMP 


FMT16 


NO 


0125 


54156 


035644 


IS7 


FST 


INCREMENT STRING POINTER 


0126 


54157 


035743 


ISZ 


CC 


AND CHARACTER COUNTER 


0127 


54160 


061743 


lda 


CC 


ALL 


0128 


54161 


051760 


CPA 


NCh 


characters used 7 


0129 


54162 


026435 


JMp 


FMT46 


yes 


0130 


54163 


061644 


LDA 


FST 


RESET 


0131 


54164 


^7\7A7 


STA 


DP 


DELIMITER 


0132 


54165 


015536 


JSB 


DSRCH 


POINTER 


0133 


54166 


061644 


LDA 


FST 


NEXT CHARACTER 


0134 


54167 


051747 


CPA 


DP 


A DELIMITER ? 


0135 


54170 


026435 


JMP 


FMT46 


Y ES 


0136 


5*171 


102101 


STO 




IGNORE BLANKS 


0137 


54l72 


015540 


JSB 


MCHAR 


FETCH A FORMAT STRING CHARACTER 


0138 


54173 


061644 


LDA 


FST 


WOULD IT BE 


0139 


54174 


055747 


CPB 


DP 


A DELIMITER ? 


01140 


54175 


026435 


JMP 


FMT46 


YES 


0141 


54176 


115163 


JSB 


FERRS+1,1 


no# Error 


0142 


54177 


052001 FMT0 CpA 


S 


IS IT AN S ? 


0143 


54200 


026330 


JMP 


FMT14 


YES 


0144 


54201 


050435 


CPA 


# +56B 


IS IT A , ? 


0145 


54202 


026316 


JMP 


FMT9 


YES 


0146 


54203 


050464 


CPA 


E 


IS IT AN E? 


0147 


54204 


026325 


JMP 


FMT13 


YES 


0148 


54205 


015264 


JSB 


DIGCK 


IS IT A DIGIT ? 


0149 


54206 


026255 


JMP 


FMJ6 


NO 


0150 


54207 


^7\77A 


STA 


REpCT 


YES, STORE IN REpCT 


0151 


54210 


035644 


isz 


FST 


INCREMENT STRING POINTER 


0152 


54211 


061644 


LDA 


FST 


NEXT CHARACTER 


0153 


54212 


051747 


CPA 


DP 


A DELIMITER ? 


0154 


54213 


115165 


JSB 


FERRS*3,I 


yes, Error 


0155 


54214 


102101 


STO 




IGNORE BLANKS 


0156 


54215 


015540 


JSB 


MCHAR 


GET NEXT CHARACTER 


0157 


54216 


051747 


CpA 


DP 


IS IT A DELIMITER ? 


015 8 


54217 


115165 


JSB 


FERRS+3,1 




0159 


54220 


015264 


JSB 


DIGCK 


IS IT A DIGIT ? 


0160 


54221 


026243 


JMP 


FMT5 


NO 


0161 


54222 


061774 


LDA 


repct 


YES, 


0162 


54223 


075774 


STB 


REPCT 


MULTIPLY PREVIOUS 


0163 


54224 
54225 


100200 
000371 


MPY 


. + 12B 


DIGIT BY 10 


0164 


54226 


041774 


ADA 


REPCT 


ADD IN ONES DIGIT 


0165 


54227 


071774 


STA 


REPCT 




0166 


54230 


035644 


ISZ 


FST 


INCREMENT STRING POINTER 


0167 


5423! 


061644 


LDA 


FST 


NEXT CHARACTER 


0168 


54232 


051747 


CPA 


DP 


A DELIMITER ? 
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0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
01 80 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 



54233 
54234 
54235 
54236 
54237 
54240 
54241 
54242 
54243 
54244 

54245 
54246 
54247 
54250 
54251 
54252 
54253 
54254 
54255 
54256 
54257 
54260 
54261 
54262 
54263 
54264 
54265 
54266 
5 4 267 
54270 
54271 
54272 
54273 
54274 
54275 
54276 
54277 
54300 

54301 
54302 
54303 
54304 
54305 
fj4306 
54307 
54310 
54311 
5431? 
54313 
54314 

54315 
54316 

54317 
54320 
54321 
54322 



1151 6 5 
102101 
015540 
051747 
115165 
015264 
002001 
115166 
065774 
006003 
115167 
044321 
006021 
115166 
046005 
007004 
175755 
035755 
052000 
026276 
052003 
026321 
052002 
002001 
026340 
065750 
006002 
026273 
065762 
045774 
075762 
026276 
065761 
045774 
075761 

006404 
075774 
171755 
035644 
035755 
061644 
051747 
026313 
102101 

015540 
051747 
002001 
026177 
065755 
075753 
026343 
035750 

115170 
026300 
065646 

006003 



JSB 
STO 
JSB 
CPA 
JSB 
JSB 
RSS 
JSB 

FMT5 LOB 
SZB 
JSB 
ADB 
SSB 
JSB 
ADB 
CMB 
STB 
ISZ 

FMT6 CPA 
JMP 
CPA 
JMP 
CPA 
RSS 
JMP 
LDB 
SZB 
JMP 
LDB 
ADB 
STB 
JMP 

FM T 7 LDB 
ADB 
STB 

FMT8 CLB 
STB 
STA 

ISZ 
ISZ 
LDA 
CPA 
JMP 

STO 
JSB 
CPA 
RSS 
JMP 
FMT08 LDB 
STB 

JMP 
FMT9 ISZ 

JSB 

JMP 
FMT10 LDB 

SZB 



FERRS+3, I 

MCHAR 
DP 

FERRS*3,I 
DIGCK 

FERRS+4,1 

REPCT 
rRSS 

FERRS+5>I 

M73 
,RSS 

FERRS+4,1 

• •73 
,INB 

F3P,I 

FSP 

.X 

FM|8 

.A 

FMT10 

D 

FMT15 
DPFLG 

FMT7 

NUM2 

REPCT 

NUM2 

FMT8 

NuMl 

REPCT 

NuMl 

,INB 
REPCT 

FST 

FSP 

FST 

DP 

FMT08 

MCHAR 
DP 

FM T 
FSP 
EST 
FMT18 
DPFLG 
FERRS+6#I 
FMT8+2 
SFLG 
,RSS 



YES, ERROR 

IGNORE BLANKS 

GET NEXT CHARACTER 

IS IT A DELIMITER ? 

THIRD DIGIT ? 

YES, ERROR 

REPCT ZERO ? 
YES 
NO s GREATER 
THAN 72? 
YES 

restore repct 
set number flag 
load onto format stack 
Increment stack pointer 

IS NEXT CHARACTER An X ? 

YES 

IS IT AN A ? 

YES 

IS IT A D ? 

YES 

NO 

DPFLG a .1? 

YES 

ADD REPCT TO 
POST^DECIMAL 
DIGIT COUNTER 

ADD REPCT TO 

PRE„DECIMAL 
DIGIT COUNTER 
REINITIALIZE 

REPCT 
LOAD CHARACTER ONtO STACK 
INCREMENT STRING POINTER 
AND STACK POINTER 
NEXT CHARACTER 

A DELIMITER ? 
yES 

IGNORE BLANKS 
GET NEXT CHARACTER 
IS IT A DELIMITER ? 
YES 



SET END OF STAcK MARK 

DPFLG * *i i 

NO 

YES 

IS SFLG 
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0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 

0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
027a 
0279 
0280 



54323 
54324 
54325 
54326 
54327 
54330 
54331 
54332 
54333 
54334 
54335 
54336 
54337 
54340 
54341 
54342 
54343 
54344 
54345 
54346 
54347 
54350 
54351 
54352 
54353 
54354 
54355 
54356 
54357 
54360 
54361 

54362 
54363 
54364 
54365 
54366 
54367 
54370 

54371 
54372 

54373 
54374 
54375 

54376 
54377 

54400 
54401 
54402 
54403 
54404 
54405 
54406 
54407 
54410 
S4411 
54412 



035646 
026276 
035752 
115171 
026300 
065761 
045762 
006003 
035766 
065766 

006003 
035765 

026300 
050427 
027433 
115172 
061756 
071755 
003400 
071774 
041646 
002003 
026500 
040355 
002021 
026502 
061761 
041762 
002003 
026457 
015542 
027673 
115173 
071316 
071736 
015412 
071322 
061316 

002021 
026414 
060434 
071266 
007104 

061316 
003000 
00204 1 
026411 
002004 
102301 
026411 
000065 
005500 
035322 
000000 

071316 
071736 



FM T 13 



FMtl4 



FMT15 



FMT18 



ISz 

JMP 

ISZ 

JSB 

JMP 

LDB 

AOB 

SZB, 

ISZ 

LDB 

SZB, 

ISZ 

JMP 

CPA 

JMP 

JSB 

LOA 

STA 

CCA 

STA 

ADA 

SZAf 

JMP 

ADA 

SSA, 

JMP 

LDA 

ADA 

SZA, 

JMP 

JSB 

JMP 

JSB 

STA 

STA 

JSB 

STA 

1_DA 

SSA, 

JMP 

LDA 

STA 

CMB, 

LDA 

CMA 

SEZ, 

JMP 
INA 

SOS 

JMP 

CLE, 

ERB 

ISZ 

NOP 

STA 

STA 



SFLG 

FMT8 

EFLAG 

FERRS+7,1 

FMT8+2 

NUM1 

NUM2 

RSS 

SBD 

SBD 

RSS 

Sad 

FMT8+2 
„+50B 
FMT95 
FERRS+8,1 

IFSS 
FSP 



Y ES, INCREMENT IT 

NO 

EFLAG« m\7 

NO 

YES 

ANY D'S FOUND 7 

NO, INCREMENT BEFORE COUNTER 
ANY S»S BEFORE AD? 

NO,- INCREMENT AFTER COUNTER 

IS CHARACTER A ( ? 
YES 

NO, ILLEGAL CHARACTER 
REINITIALIZE 
STACK POINTER 
AND 



REPCT 


REPCT 


SFLG 


SFLG » 1 7 


RSS 




FMT24 


YES 


.-2 


SFLG « 3 ? 


RSS 




FMT25 


YES 


NUMl 


NO, any 


NUM2 


D»S 


RSS 


FOUND 7 


FMT20 


NO 


EVEXP 


EVALUATE EXPRESSION 


FMEND 


NONE FOUND 


FERRS+9,1 


STING*-. ERROR 


manti 


\¥ NUMBER 


NUM^l 


SAVE HIGN MANTISSA 


f FLUN 


UNPACK NUMBER 


EXP 


AnD SAVE THE EXPONENT 


MANTI 


IS THE NUMBER NEGATIVE 7 


RSS 




FMT31 


NO 


f +55B 


YES, SET SIGN TO MINUS 


SIGN 


AND 


CLErlNB 


COMPLEMENT 


MANTI 






OVERFLOW FrOM 


RSS 


LOW MANTISSA 7 


FMT31-3 


NO 




YES, OVERFLOW FROM 




HIGH MANTISSA 7 


FMT31*3 


NO 


ERA 


YES, SHIFT RIGHT 




AND 


EXP 


bump exponent 



MANTI 

NUMW1 



SAVE HIGH MANTISSA 
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0281 


54413 


026416 




JMP 


*+3 




0282 


54414 


060432 


FMT31 


LDA 


t *53B 


SET SIGN 


0283 


54415 


071266 




8TA 


SIGN 


TO PLUS 


0284 


54416 


075320 




STB 


MANT2 




0285 


54417 


075737 




STB 


NUMW2 


SAVE LOW MANTISSA 


0286 


54420 


061322 




LOA 


EXP 




0287 


54421 


071647 




STA 


EXPW 


AND EXPONENT 


0288 


54422 


006404 




CLBi 


rINB 


SET EXPRESSION 


0289 


54423 


075643 




STB 


EC 


FOUND FLAG 


0290 


54424 


060670 




LOA 


IHB 


HOLDING BUFFER 


0291 


54425 


071726 




STA 


HBP 


POINTER 


0292 


544*6 


061752 




LDA 


EFLAG 


EFLAG 


0293 


54427 


002003 




SZA, 


,RSS 


SET ? 


0294 


54430 


027210 




JMP 


FMT62 


YES 


0295 


54431 


061750 




LDA 


DPFLG 


DPFLG 


0296 


54432 


002003 




SZA, 


>RSS 


SET 


0297 


54433 


027047 




JMP 


FMT45 


YES 


0298 


54434 


026551 




JMP 


FMT30 


NO 


0299** 








** 




0300*** OUTPUT A LITERAL 


STRING *** 




0301** 








** 




0302 


54435 


061756 


FMT46 


LDA 


IFSS 


RESET 


0303 


54436 


071755 




STA 


FSP 


STACK POINTER 


0304 


54437 


161755 




loa 


FSP,I 


TOP OF STACK 


0305 


54440 


050421 




CPA 


, + 42B 


A » ? 


0306 


54441 


027332 




JMP 


FMT90 


YES, DONE WITH THIS SPEC 


0307 


54442 


050375 




CPA 


♦ + 16B 


IS IT A PSEUDO*LXNEFEED 7 


0308 


54443 


060371 




LDA 


,*12B 


YES, MAKE IT A LINEFEED 


0309 


54444 


050376 




CPA 


,*17B 


IS IT A PSEUDO CARRIAGE RETURN ? 


0310 


54445 


002001 




RSS 




YES 


0311 


54446 


026454 




JMP 


FMT47 


NO 


0312 


54447 


060402 




IDA 


f +23B 


OUTPUT AN X-QFF 


0313 


54450 


015452 




JSB 


OUTCR 




0314 


54451 


060374 




LDA 


,*15B 


OUTPUT A 


0315 


54452 


015452 




JSB 


OUTCR 


CARRIAGE RETURN 


0316 


54453 


002400 




CLA 




AND A NyLL t 


0317 


54454 




FMT47 


EQU 


* 




0318 


54454 


015452 




JSB 


OUTCR 


NO, OUTPUT THE CHARACTER 


0319 


54455 


035755 




ISZ 


pSP 


INCREMENT STACK POINTER 


0320 


54456 


026437 




JMp 


FMT46+2 


N 


0321** 










** 


0322*** OUTPUT A BLANK SPECIFICATION 


*** 


0323** 










** 


0324 


54457 


161755 


FMT20 


LDA 


FSP, I 


LOAD TOP OF STACK 


0325 


54460 


002021 




SSA< 


»RSS 


IS IT A NUMBER ? 


0326 


54461 


026465 




JMP 


FMT21 


NO 


0327 


b 44 6 2 


071774 




STA 


REPCT 


YES, STORE NUMBER IN REPCT 


0328 


54463 


035755 




ISZ 


FSP 


INCREMENT STACK POINTER 


0329 


«j44e4 


161755 




LDA 


FSP, I 


LOAD NEW TOP OF STACK 


0330 


5 4 *65 


052000 


FMT21 


CPA 


• X 


IS IT AN X ? 


0331 


54466 


002001 




RSS 




YES 


0332 


54467 


115172 




JSB 


FERRS+8, 


I NO, ERROR 


0333 


54470 


015532 




JSB 


OUTBL 




0334 


54471 


003400 




CCA 




REINITIALIZE 


0335 


54472 


071774 




STA 


REPCT 


REPCT 


0336 


54473 


061755 




LDA 


FSP 


end 
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0337 


54474 


051753 




CPA 


EST 


OF STACK 




033a 


54475 


027332 




JMP 


FMT90 


YES 




0339 


54476 


161755 




LD* 


FSP,I 


LOAq NEW TOP OF STAqK 




0340 


54477 


026457 




JMP 


FMT20 






0341** 






** 








0342*** OUTPUT A STRING 


*** 








0343** 






** 








0344 


54500 




FMJ24 


EQU 


* 






0345 


54500 


015542 




JSB 


EVEXP 


EVALUATE NEXT EXPRESSION 




0346 


54501 


027673 




JMP 


FMEND 


NONE FOUND 




0347 


54502 




FMT25 


EQU 


* 






0349 


K A K iA *3 

%J~t\JXttL 


006405 






f INB f RSS 


set the Expression 




0349 


54503 


115200 




JSB 


FERRS+14, 


i 




0350 


54504 


075643 




STB 


EC 


Found flag 




0351 


54505 


161755 




lda 


FSP,1 


LOAD TOP OF STACK 




0352 


54506 


002021 




SSA, 


,RSS 


IS IT A NUMBER ? 




0353 


54507 


026513 




JMP 


FMT26 


NO 




0354 


54510 


071774 




STA 


REPCT 


YES 




0355 


54511 


035755 




isz 


FSP 


INCREMENT STACK POINTER 




0356 


54512 


161755 




LDA 


FSP,I 


LOAD NEW TOP OF STACK 




0357 


54513 


052000 


FMT26 


CPA 


.X 


IS IT AN X ? 




0358 


54514 


002001 




RSS 




YES 




0359 


54515 


026520 




JMP 


FMT27 


NO 




0360 


54516 


015532 




JSB 


outbl 






0361 


54517 


026543 




JMP 


FMy28 






0362 


54520 


052003 


FMT27 


CPA 


• A 


IS IT AN A ? 




0363 


54521 


002001 




RSS 




YES 




0364 


54522 


115173 




JSB 


FERRS+9,1 


NO, ERROR 




0365 


54523 


035755 




ISZ 


FSP 


INCREMENT STACK pqINtEr 




0366 


54524 




FMT05 


EQU 


* 






0367 


54524 


015364 




JSB 


FSCH 


FETCH STRING CHARACTER 




0368 


54525 


061571 




LDA 


BLANK 


NO, FETCH A BLANK 




036g 


54526 


050375 




CPA 


, + 16B 


IS IT A PSEUDO-LINEFEED ? 




0370 


54527 


060371 




LDA 


. + 12B 


YES, MAKE IT A LINEFEED 




0371 


54530 


050376 




CPA 


,*17B 


IS IT A PSEUDO CARRIAGE RETURN 


? 


0372 


54531 


002001 




RSS 




YES 




0373 


54532 


026540 




JMP 


FMT29 


NO 




0374 


54533 


060402 




LDA 


,*23B 


OUTPUT AN X»OFF 




0375 


54534 


015452 




JSB 


OUTCR 






0376 


54535 


060374 




LDA 


,*15B 


OUTPUT A 




0377 


54536 


015452 




JSB 


OUTCR 


CARRIAGE RETURN 




0378 


54537 


002400 




CLA 




AND A NULL, 




0379 


54540 




FMT29 


EQU 


* 






0380 


54540 


015452 




JSB 


OUTCR 


OUTPUT CHARACTER 




0381 


54541 


035774 




ISZ 


REpCT 


REpCT USED UP ? 




0382 


54542 


026524 




JMp 


FMT05 


No 




0383 


54543 


003400 


FMT28 


CCA 




REINITIALIZE 




0384 


54544 


071774 




STA 


REPCT 


REPCT 




0385 


54545 


061755 




LDA 


FSP 


END OF 




0386 


54546 


051753 




CPA 


EST 


STACK ? 




0387 


54547 


027332 




JMP 


FMT90 






0388 


54550 


026502 




JMP 


FMT25 


NO 




0389** 










** 




0390*** PREPARE AN 


INTEGER FOR OUTPUT 


**# 




0391** 










** 




0392 


54551 


002400 


FMT30 


CLA 




INITIALIZE PRE^DECIMAL POINT 
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0393 


54552 


071324 


STA 


EXPON 


DIGIT COUNTER 


0394 


54553 


003400 


CCA 






0395 


54554 


041322 


ADA 


EXP 


EXPONENT ZERO OR NEGATIVE ? 


0396 


54555 


002021 


SSA, 


RSS 




0397 


54556 


026565 


JMP 


FMT32 


NO 


0398 


54557 


060437 


LDA 


t +60B 


YES, LOAD A 


0399 


54560 


171726 


STA 


HBP, I 


ZERO 


0400 


54561 


035726 


ISZ 


HBP 


INCREMENT BUFFER POINTER 


0401 


54562 


003400 


CCA 




NUMBER OF BUFFER WORDS 


0402 


54563 


071733 


STA 


NHBW 


IS ONE 


0403 


54564 


026576 


JMP 


FMT33 




0404 


54565 


015526 


FMT32 JSB 


DTL1 




0405 


54566 


071324 


STA 


EXPON 


SAVE NUMBER 


0406 


54567 


071733 


STA 


NHBW 


OF DIGITS 


0407 


54570 


015422 


JSB 


GETDG 


GET DIGIT 


0408 


54571 


040437 


ADA 


t +60B 


CONVERT TO ASCII 


0409 


54572 


171726 


STA 


HBP, I 


STORE IN HOLD BUFFER 


0410 


54573 


035726 


ISZ 


HBP 


ALL DIGITS 


0411 


54574 


035324 


ISz 


ExPON 


FOUND ? 


0412 


54575 


026570 


JMP 


FMT32* 


3 NO 


0413 


54576 


061761 


FMT33 LDA 


NijMi 


comp ut e number of 


0414 


54577 


041733 


ADA 


NHBw 


LEADING BLANKS 


0415 


54600 


065766 


LOB 


SBD 


ANY S'S 


0416 


54601 


045765 


ADB 


SAD 


pound ? 


0417 


54602 


006002 


SZB 






0418 


54603 


026612 


JMP 


FMT43 


yes 


0419 


54604 


065266 


L DB 


SIGN 


NO, number positive ? 


0420 


54605 


054432 


CPB 


• +53B 




0421 


54606 


026612 


JMP 


FMT43 


YES 


0422 


54607 


040356 


ADA 


• -1 


NO f SAVE ROOM 


0423 


54610 


006404 


ClBi 


rINB 


for 


0424 


54611 


075740 


STb 


SNFLG 


PRINTING SIGN 


0425 


54612 


002020 


FMT43 SSA 




NUMBER OF BLANKS NEGATIVE ? 


0426 


54613 


027570 


JMP 


FMT80 


YES 


0427 


54614 


071732 


STA 


NBLK 


NO 


0428 


54615 


015530 


JSB 


ROUND 


ROUND NUMBER IN BUFFER 


0429 


54616 


002001 


RSS 






0430 


54617 


027570 


JMP 


FMT80 


NO ROOM FOR CARRY FROM ROUND 


0431 


54620 


064670 


LOB 


ihb 


REINITIALIZE 


0432 


54621 


075726 


STB 


HBp 


hold buffer pointer 


0433** 








• * 


0434*** Oct 


rPUT NUMBER FrOM holding 


BUFFER *** 


0435** 








** 


0436 


54622 


161755 


FMT34 LDA 


FSP, I 


LOAD TOP OF FORMAT STACK 


0437 


54623 


052001 


CPA 


S 


IS I T AN S ? 


0438 


546^4 


002001 


RSS 




YES 


0439 


54625 


026645 


JMp 


FMT36 


NO 


0440 


54626 


035755 


ISZ 


FSP 


Increment stac k pointer 


0441 


54627 


061740 


LDA 


SNFLG 




0442 


54630 


002002 


SZA 




SNFLG s ? 


0443 


54631 


026777 


JMP 


FMT59 


NO, IGNORE THE S 


0444 


54632 


065766 


LDB 


SBD 


YES, ANY S'S BEFORE AD? 


0445 


54633 


006002 


SZB 






0446 


54634 


026642 


JMP 


FMT35 


YES 


0447 


54635 


061266 


LDA 


SIGN 


NO, OUTPUT SIGN 


0448 


54636 


015452 


JSB 


OUTCR 


IMMEDIATELY 
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OUTPUT ROUTINE 


0449 


54637 


060361 




LDA 


.+2 


SET SNFLG TO 2 


0450 


54640 


071740 




STA 


SNFLG 




0451 


54641 


026777 




JMP 


FMT59 




0452 


54642 


007400 


FMT35 


CCB 






0453 


54643 


075740 




STB 


SNFLG 


SET SNFLG TO •! 


0454 


54644 


026622 




JMP 


FMT34 




0455 


54645 


002021 


FMT36 


SSAi 


rRSS 


TOP OF STACK A NUMBER ? 


0456 


54646 


026652 




JMP 


FMT06 


NO 


0457 


54647 


071774 




SjA 


REPCt 


yes, store in repct 


0458 


54650 


035755 




ISZ 


FSP 


INCREMENT STACK pqINtEr 


0459 


54651 


161755 




L DA 


FSP,I 


LOAD NEW TOP OF STACK 


0460 


54652 


052000 


FMT06 


CPA 


• X 


IS TOP An X ? 


0461 


54653 


002001 




RSS 




YES 


0462 


54654 


026661 




JMP 


FMT37 


NO 


0463 


54655 


015532 




JSB 


OUTBL 




0464 


54656 


003400 




CCA 




REINITIALIZE 


0465 


54657 


071774 




STA 


REPCT 


REPCT 


0466 


54660 


026777 




JMP 


FMT59 




0467 


54661 


052002 


FMT37 


CPA 


D 


TOP OF STACK AD? 


0468 


54662 


002001 




RSS 




YES 


0469 


54663 


026753 




JMP 


FMT57 


NO 


04/0 


5*66* 


035755 




ISZ 


FSP 


INCREMENT STACK POINTER 


0471 


54665 


003400 




CCA 






0472 


54666 


041732 




ADA 


NBLK 


NUMBER Of BLANKS > 1 


0473 


54667 


002020 




SSA 






0474 


54670 


026677 




JMP 


FMT07 


NO 


0475 


54671 


061571 




L.OA 


BLANK 


YES, OUTPUT A 


0476 


54672 


015452 




JSB 


OUTCR 


BLANK 


0477 


54673 


007400 




CCB 




DECREMENT 


0478 


54674 


045732 




ADB 


NBLK 


BLANK 


0479 


54675 


075732 




STB 


NBLK 


COUNT 


0480 


54676 


026746 




JMP 


FMT40 




0481 


54677 


061732 


FMT07 


LDA 


NBLK 


NUMBER OF BLANKS 


0482 


54700 


002020 




SSA 




LESS THAN ZERO 1 


0483 


54701 


026713 




JMP 


FMT56 


yes 


0484 


54702 


003400 




CCA 




NO, DECREMENT 


0485 


54703 


071732 




STA 


NBLK 


BLANK COUNT 


0466 


54704 


007400 




CCB 






0487 


54705 


055740 




CPB 


SNFLG 


SNFLG a • 1 ? 


0488 


54706 


026717 




JMP 


FMT02 


yes 


0489 


54707 


045740 




ADB 


SNFLG 


SNFLG » 1 ? 


0490 


54710 


006003 




SZB, 


rRSS 




0491 


54711 


026746 




JMP 


FMT40 


YES 


0492 


54712 


026723 




JMP 


FMT58 


NO 


0493 


54713 


007400 


FMT56 


CCB 






0494 


54714 


045740 




ADB 


SNFLG 


SNFLG « 1 ? 


0495 


54715 


006002 




SZB 






0496 


54716 


026723 




JMP 


FMT58 


NO 


0497 


54717 


061266 


FM T 02 


LDA 


SIGN 


yes, output 


0498 


54720 


015452 




JSB 


OUTCR 


sign and 


0499 


54721 


060361 




LDA 


.+2 


SET SNFLG 


0500 


54722 


071740 




STA 


SNFLG 


TO 2 


0501 


54723 


060670 


FMT58 


LDA 


ihb 


END 


0502 


54724 


040435 




ADA 


,+46 


OF 


0503 


54725 


051726 




CPA 


HBP 


buffer ? 


0504 


54726 


026777 




JMP 


FMT59 
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0505 


54727 


161726 




LOA HBP, I 


OUTPUT A 


0506 


54730 


015452 




JSB OUTCR 


DIGIT 


0507 


54731 


035726 




I3Z HBP 


INCREMENT HOLD BUFFER POINTER 


0508 


54732 


061752 




LDA EFLAG 


IS THIS A 


0509 


54733 


002002 




SZA 


FLOATING POINT SPECIFICATION 1 


0510 


54734 


026746 




JMP FMT40 


NO 


0511 


54735 


002404 




CLA,INA 


YES, HAS THE DECIMAL POINT 


05l2 


54736 


051750 




CPA DPFLG 


BEEN FOUND YET ? 


0513 


54737 


026746 




JMP FMT40 


YES 


0514 


54740 


003400 




CCA 


NO, DECREMENT 


0515 


54741 


041324 




ADA EXPON 


DECIMAL 


0516 


54742 


164670 




LDB IHB.I 


IS THE 


0517 


54743 


054437 




CPB •♦60B 


NUMBER ZERO? 


0518 


54744 


002400 




CLA 


YES f ZERO EXPONENT 


0519 


54745 


071324 




STA EXPON 


EXPONENT 


0001 


54746 


035774 


FMT40 


IS2 REPCT 


REPCT « 1 


0002 


54747 


026665 




JMP FMT37+4 


NO 


0003 


54750 


003400 




CCA 


YES, REINITIALIZE 


0004 


54751 


071774 




STA REPCT 


REPCT 


0005 


54752 


026777 




JMP FMT59 




0006 


54753 


065750 


FM T 57 


LDB DPFLG 


FIXED POINT 


0007 


54754 


006002 




SZB 


SPECIFICATION ? 


0008 


54755 


027003 




JMP FMT42 


NO 


0009 


54756 


050435 




CPA ,+56b 


TOP OF STACK A DECIMAL POINT ? 


0010 


54757 


002001 




RSS 


YES 


0011 


54760 


027003 




JMP FMT42 


NO 


0012 


54761 


035755 




ISZ FSP 


INCREMENT STACK pOINTER 


0013 


54762 


065740 




LDB SNFLG 




001 4 


54763 


006020 




SSB 


SNFLG « *1 ? 


0015 


54764 


026770 




JMP FM00 


YES 


0016 


54765 


044356 




ADB ,-1 


NO, ■ 1 1 


0017 


54766 


006002 




SZB 




0018 


54767 


026774 




JMP Fm01 . 


NO 


0019 


54770 


061266 


FM00 


lda sign 


YES, OUTPUT 


0020 


54771 


015452 




JSB OUTCR 


SIGN 


0021 


54772 


060361 




LDA # +2 


SET SNFLG 


0022 


54773 


071740 




STA SNFLG 


TO 2 


0023 


54774 


060435 


FM01 


LDA t +56B 


OUTPUT 


0024 


54775 


015452 




JSB OUTCR 


DECIMAL POINT 


0025 


54776 


035750 




ISZ DpFLG 


INCREMENT FLAG TO SHoW D,P, FqUN 


0026 


54777 


061755 


FMT59 


LDA FSP 


end oe 


0027 


55000 


051753 




CPA EST 


STACK 


0028 


55001 


027332 




JMP FMT90 


YES 


0029 


55002 


026622 




JMP FMT34 


NO 


0030 


55003 


035755 


FM T 42 


ISZ FSP 


INCREMENT STACK pOINTER 


0031 


55004 


015452 




JSB OUTCR 


OUTPUT AN E 


0032 


55005 


061755 


FMT76 


LDA FSP 


END OF 


0033 


55006 


051753 




CPA EST 


STACK ? 


0034 


55007 


027025 




JMP FMT78 


YES 


0035 


55010 


161755 




LDA FSP, I 


NO, TOP OF 


0036 


550H 


002021 




SSA f RSS 


STACK A NUMBER ? 


0037 


55012 


027016 




JMP FM02 


NO 


0038 


55013 


035755 




ISZ FSP 


YES, INCREMENT STACK POINTER 


0039 


55014 


071774 




STA REPCT 


STORE NUMBER 


0040 


55015 


161755 




LDA FsP,I 


GET NEw TOP OF STACK 


0041 


55016 


052000 


FM02 


CPA , X 


IS IT AN x ? 
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0042 


55017 


002001 


RSS 




YES 


0043 


55020 


115171 


JSB 


FERRS+7, 


fl NO, ERROR 


0044 


55021 


015532 


JS8 


OUTBL 




0045 


55022 


003400 


CCA 




RESET 


0046 


55023 


^7X774 


STA 


REPCT 


REPCT 


0047 


55024 


027005 


JMP 


FMT76 




0048 


55025 


060434 


FMT78 LDA 


.♦55B 


OUTPUT 


0049 


55026 


065324 


LDB 


EXPON 




0050 


55027 


006020 


SSB 




AN 


0051 


55030 


007005 


CMB, 


,INB,RSS 




0052 


55031 


060432 


LDA 


f *53B 


EXPONENT 


0053 


55032 


075324 


STB 


EXPON 




0054 


55033 


015452 


JSB 


OUTCR 


SIGN 


0055 


55034 


061324 


LDA 


EXPON 




0056 


55035 


006400 


CL8 




COMPUTE 


0057 


55036 
55037 


100400 
000371 


DIV 


,♦128 




0058 


55040 


040437 


ADA 


„+60B 


EXPONENTS 


0059 


55041 


044437 


ADB 


# +60B 




0060 


55042 


075324 


STB 


EXPON 


10»S DIGIT 


0061 


55043 


015452 


JSB 


OUTCR 


OUTPUT IT 


0062 


55044 


061324 


LDA 


EXPON 




0063 


55045 


015452 


JSB 


OUTCR 


OUTPUT 1»S O161T 


0064 


55046 


027332 


JMP 


FMT90 




0065** 








#* 


0066*** PREPARE FIXED POINT NUMBER *** 


0067** 








** 


0068 


55047 


002400 


FMT45 CLA 




SET PRE*DECIMAl POINT 


0069 


55050 


071324 


STA 


EXPON 


DIGIT COUNTER 


0070 


55051 


071730 


STA 


NAD 


ZERO COUNTER 


0071 


55052 


051322 


CPA 


EXP 


ZERO EXPONENT ? 


0072 


55053 


027161 


JMP 


FMT61+3 


YES 


0073 


55054 


065322 


LDB 


EXP 


NO 


0074 


55055 


006020 


SSB 




EXPONENT NEGATIVE 


0075 


55056 


027156 


JMP 


FMT61 


YES 


0076 


55057 


015526 


JSB 


DTLl 




mn 


55060 


071324 


STA 


EXPON 


LOAD 


0078 


55061 


071731 


STA 


NBD 


PRE^DECIMAL POINT 


0079 


55062 


015422 


FM03 JSB 


GET06 


DIGITS 


0080 


55063 


040437 


ADA 


,+608 




0081 


55064 


171726 


STA 


HBP, I 


INTO 


0082 


55065 


035726 


ISZ 


HBP 


HOLD 


0083 


55066 


035324 


ISZ 


EXPON 


BUFFER 


0084 


55067 


027062 


JMP 


FM03 




0085 


55070 


065762 


FMT50 LD B 


NUM2 


any d's after 


0086 


55071 


006003 


SZB, 


-RSS 


DECIMAL POINT ? 


0087 


55072 


027126 


JMP 


FMT51 


NO 


0088 


55073 


060670 


LDA 


IHB 


END 


0089 


55074 


040435 


ADA 


.♦46 


OF 


0090 


55075 


051726 


CPA 


HBP 


BUFFER ? 


0091 


55076 


027116 


JMP 


FM04 


YES 


0092 


55077 


065730 


LDB 


NAD 


LEADING 


0093 


55100 


002400 


CLA 




ZEROES 


0094 


55101 


006003 


SZB, 


-RSS 


AFTER 


0095 


55102 


027106 


JMP 


* + 4 


DECIMAL 


0096 


55103 


044356 


ADB 


.-1 


POINT 
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0097 


55104 


075730 


STB NAD 




0098 


55105 


002001 


RSS 


YES 


0099 


55106 


015422 


JSB GETDG 




0100 


55107 


040437 


ADA ,+60B 


LOAD 


0101 


55110 


171726 


STA HBP#I 


POST-DECIMAL POINT 


0102 


55111 


007400 


CCB 


DIGITS 


0103 


55112 


045762 


ADB NUM2 


INTO 


0104 


55113 


075762 


STB NUM2 


HOLD 


0105 


55114 


035726 


ISZ HBP 


BUFFER 


0106 


55115 


027071 


JMP FMT50+1 




0107 


55116 


061762 


FM04 LDA NuM2 


OUTPUT BLANKS 


0108 


55117 


003004 


CMA.INA 


TO 


0109 


55120 


071774 


STA REPCT 


FILL FIELD 


0110 


55121 


015532 


JSB 0UT8L 




0111 


55122 


003400 


CCA 


REINITIALIZE 


0112 


55123 


Q7X774 


STA REPCT 


REPCT 


0113 


55124 


041755 


ADA FSP 


CORRECT 


0114 


55125 


071755 


STA FSP 


STACK POINTER 


0115 


55126 


061731 


FHT51 LDA NBD 


COMPUT NUMBER 


0116 


55127 


041761 


ADA NUM1 


OF LEADING BLANKS 


0117 


55130 


065766 


l_DB 3BD 


ANY S'S 


0118 


55131 


045765 


ADB SAD 


FOUND ? 


0119 


55132 


006002 


SZB 




0120 


55133 


027142 


JMP FMT54 


YES 


0121 


55134 


065266 


LDB SIGN 


NO, NUMBER 


0122 


55135 


054432 


CPB ,+53B 


POSITIVE ? 


0123 


55136 


027142 


JMP FMT54 


YES 


0124 


55137 


040356 


ADA f -l 


NO, LEAVE ROOM FOR 


0125 


55140 


006404 


CLB#INB 


SIGN TO BE PRINTED AND 


0126 


55141 


075740 


STB SN^L 6 


SET SNF^G TO 1 


0127 


55142 


002020 


FMT54 SSA 


NUMBER OF BLANKS NEGATIVE ? 


0128 


55143 


027570 


JMP FMT80 


YES 


0129 


55144 


071732 


STA NBLK 


NO, 


0130 


55145 


007400 


CCB 


NEXT DIGIT A 


0131 


55146 


045730 


ADB NAD 


LEADING ZERO ? 


0132 


55147 


006020 


SSB 




0133 


55150 


015530 


JSB ROUND 


NO, ROUND NUMBER 


0134 


55151 


002001 


RSS 




0135 


55152 


027570 


JMP FMT80 


NO ROOM FOR CARRy FROM ROUND 


0136 


55153 


060670 


LDA ihb 


RESET HOLD 


0137 


55154 


071726 


STA HBp 


BUFFER POINTER 


0138 


55155 


026622 


JMP FMT34 


GO OUTPUT THE NUMBER 


0139 


55156 


015524 


FMT61 JSB MTGl 




0140 


55157 


061324 


IDA EXPON 




0141 


55160 


071730 


STA NAD 




0142 


55161 


065761 


LDB NUM1 


ANY D'S FOUND 


0143 


55162 


006003 


SZB, RSS 


BEFORE THE DECIMAL POINT ? 


0144 


55163 


027070 


JMP FMT50 


NO 


0145 


55164 


061762 


LDA NUM2 


YES, ANY D»S FOUND 


0146 


55165 


002003 


SZA,RSS 


AFTER THE DECIMAL POINT 1 


0147 


55166 


027201 


JMP FMT55 


NO 


0148 


55167 


054360 


CPB ,+1 


YES, ONLY ONE OF THgM ? 


0149 


55170 


002001 


RSS 




0150 


55171 


027201 


JMP FMT55 


NO 


0151 


55172 


061765 


LDA SAD 


YES, ANY S»S FOUND ? 


0152 


55173 


041766 


ADA SBD 
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0153 

0154 

0155 

0156 

0167 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165* 

0166* 

0167* 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 



55174 002002 

55175 027201 

55176 061266 

55177 050434 

55200 027070 

55201 060437 FMT55 

55202 171726 

55203 035726 

55204 003400 

55205 041761 

55206 071761 

55207 027070 



SZA 

JMp 

lda 

CPA 
JMP 
LOA 

STA 
ISZ 
CCA 

ADA 
STA 



FMT55 

SIGN 

,♦556 

FMT50 

,+608 

HBP#I 

HBP 

NUM1 

NUMl 
JMP FMT50 



** PREPARE FLOATING POINT NUMBER 
* 

55210 002400 FMT62 CLA 

55211 071324 STA eXPON 

55212 051322 CPA EXP 

55213 027216 JMP *+3 

55214 015524 JSB MTGl 

55215 015526 JSB DTU 

55216 003004 CMA,INA 

55217 071324 STA ExPON 

55220 061761 LDA NyMl 

55221 041762 ADA NUM2 

55222 071741 STA TOTDG 

55223 061766 L&A sBD 

55224 041765 ADA SAD 

55225 002002 SZA 

55226 027246 JMP FMT67 

55227 061266 LDA SIGN 

55230 050432 CPA t +538 

55231 027246 JMP FMT67 

55232 007400 CCB 

55233 045761 ADB NUMl 

55234 006020 SSB 

55235 027570 JMP FMT80 

55236 075761 STB NUMl 

55 237 003400 CCA 

55240 041741 ADA TOTDG 

55241 071741 ST* tOT^G 

55242 002003 SZA,RSS 

55243 027570 jMP FMT80 

55244 006404 CL8,INB 

55245 075740 STB SNFLG 

55246 061762 FMj67 LDA NuM2 

55247 003004 CMA,INA 

55250 064365 LDB ,+6 

55251 044000 ADB 

55252 006020 SSB 

55253 027273 JMP FMT70 

55254 061741 LDA TOTDG 

55255 040347 ADA .-10B 

55256 002020 SSA 

55257 027265 JMP FMT68 
55260 064350 LDB .«7 



YES 

NO, NUMBER 

NEGATIVE 1 
YES 
NO, LOAD PRE-DECIMAL POINT 

ZERO INTO BUFFER 

DECREASE NUMBER OF 

DtS AVAILABLE FOR $JSN 

A N D BLANKS BEFORE DECI M AL PT 

** 
*** 

** 
INITIALIZE DECIMAL 

EXPONENT 
ZERO EXPONENT ? 
YES 



SAVE DECIMAL EXPONENT 

GET 

TOTAL NUMBER 

OF DIGITS 
ANY S«S FOUND ? 

I mm %f 

NO, NUMBER 

POSITIVE 1 
YES 
NO, LEAVE ROOM 

FOR SIGN 
NONE ? 
YES 
NO, DECREMENT 

TOTAL NUMBER OF D«S 
AVAILABLE FOR SfGN 

AND BLANK3 BEFORE DEC, Pt, 



SET SNFLG 

TO 1 
NUM2 

> 7 ? 



YES 

YES, TOTAL NUMBER OF D»S 
> 7 ? 

NO 

PREPARE TO GET 
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0209 


55261 


075742 




STB 


DCTR 


SEVEN DIGITS 


0210 


55262 


002004 




INA 




NUMBER OF BLANKS 


0211 


55263 


071732 




STA 


NBLK 


BECOMES TOTDG * 7 


0212 


55264 


027314 




JMP 


FMT72 




0213 


55265 


061741 


FMT68 


LDA 


TOTDG 


PREPARE TO GET 


0214 


55266 


003004 


- 


CMAi 


,INA 




0215 


55267 


071742 




STA 


DCTR 


TOTDG DIGITS 


0216 


55270 


006400 




CLB 




SET NUMBER OF BLANKS 


0217 


55271 


075732 




STB 


NBLK 


TO ZERO 


0216 


55272 


027314 




JMP 


FMT72 




0219 


55273 


065761 


FMT70 


LDB 


NUM1 


ANY D«S BEFORE 


0220 


55274 


006002 




SZB 




DECIMAL POINT ? 


0221 


55275 


040356 




ADA 


i*i 


YES, INCREMENT NUMBER OF DIGITS 


0222 


55276 


071742 




STA 


DCTR 


PREPARE TO GET NUM2 DIGITS 


0223 


55277 


006002 




SZB 




SET 


0224 


55300 


044356 




ADB 


.-1 


BLANK 


0225 


55301 


075732 




STB 


NBLK 


COUNT 


0226 


55302 


061742 




LDA 


DCTR 


MORE THAN 


0227 


55303 


040435 




ADA 


.♦46 


FOURTY»SIX 


0228 


55304 


002021 




SSA, 


,RSS 


DIGITS NEEDED 1 


0229 


55305 


027314 




JMP 


FMT72 


NO 


0230 


55306 


071774 




ST* 


REPCT 


ye s , output necessary blanks 


0231 


55307 


015532 




JSB 


outbl 




0232 


55310 


041755 




ADA 


FSP 


CORRECT 


0233 


55311 


071755 




STA 


FSP 


stack pointer 


0234 


55312 


062004 




LDA 


M46 


SEt DCtR 


0235 


55313 


071742 




STA 


DCTR 


TO 46 


0236 


55314 




FMT72 


FQU 


* 




0237 


55314 


003400 




CCA 




REINITIALIZE 


0236 


55315 


^7X774 




STA 


REPCT 


REPCT 


0239 


55316 


015422 




JSB 


GETDG 




0240 


55317 


040437 




ADA 


$ +60B 


CONVERT TO ASCII 


0241 


55320 


17^726 




STA 


HBP, I 


STORE IN HOLD BUFFER 


0242 


55321 


035726 




ISZ 


HBP 


INCREMENT BUFFER POINTER 


0243 


55322 


035742 




ISZ 


DCTR 


ALL DIGITS GOT ? 


0244 


55323 


027314 




JMp 


FMT72 


No 


0245 


55324 


015530 




JSB 


ROUND 


YES, ROUND THE NUMBER ;n BUFFER 


0246 


55325 


002001 




RSS 






0247 


55326 


027570 




JMP 


FMT80 


NO ROOM FOR CARRY FROM ROUND 


0248 


55327 


060670 




LDA 


IHB 


RESET 


0249 


55330 


071726 




STA 


MBp 


BUFFER POINTER 


0250 


55331 


026622 




JMP 


FMT34 




0251** 










** 


0252*** HANDLE END 


OF SPECIFICATION 


*** 


0253** 










** 


0254 


55332 


002400 


FMT90 


CLA 






0255 


55333 


071646 




STA 


SFLG 


STRING FLAG 


0256 


55334 


061743 




LDA 


CC 


ENF OF 


0257 


55335 


051760 




CpA 


NCH 


format string ? 


0258 


55336 


002001 




RSS 




YES 


0259 


55337 


027357 




JMP 


FMT92 


NO 


0260 


55340 


061744 


FMT09 


LDA 


CCl 


yes, parenthesis 


0261 


55341 


002002 




SZA 




BALANCED ? 


0262 


55342 


115174 




JSB 


FERRS+10 


,1 No, Error 


0263 


55343 


065643 


FMT91 


LDB 


EC 


any Expressions 


0264 


55344 


006003 




SZB, 


,RSS 


used ? 
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0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
027 8 
0279 
0280 
0281 

0282 
0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319* 

0320* 



55345 
55346 
55347 
55350 
55351 
55352 
55353 
55354 
55355 
55356 
55357 
55360 
55361 
55362 
55363 
55364 
55365 
55366 
55367 
55370 
55371 
55372 

55373 
55374 

55375 
55376 

55377 
55400 
55401 
55402 
55403 
55404 
55405 
55406 
55407 
55410 
55411 
55412 
55413 
55414 
55415 
55416 
55417 
55420 
55421 
55422 
55423 
55424 
55425 
55426 
55427 
55430 
55431 
55432 



027673 
065751 
006003 
027673 
002400 
071643 
071743 
061757 
071747 
026040 
061747 
103101 
015540 
050430 
027470 
071727 
050433 
027373 
050436 

002001 
115163 
015534 
035743 
061743 

051760 
027424 

035747 
015536 
102101 
061644 
015540 
051747 
002001 
027415 
061743 
051760 
027424 
061747 
103101 

015540 
050445 

115162 
050436 
027424 
050430 
027470 
026105 
061727 
050433 
115162 
061743 
051760 
027340 
027372 



FMT92 



FMT93 



FMll 



FMT94 



JMP FMEND 


NO 


LDB EDSTA 


END OF 


SZB,RSS 


STATEMENT ? 


JMP FMEND 


YES 


CLA 




STA EC 


YES, CLEAR EC 


STA CC 




IDA IFSTR 


RESET 


STA DP 


DELIMITER POINTER 


JMP FMT2 




LDA DP 


GET THE 


CLO 


DELIMITING CHARACTER 


JSB MCHAR 


NoT IGNORING BLANKS 


CPA .*51B 


IS IT A RIGHT PARENTHESIS 


JMP FMT97 


YES 


STA LCH 


No, SAVE THE CHARACTER 


CPA t +54B 


IS IT A COMMA ? 


JMP FM T 93*1 


YES 


CPA ,-►578 


IS IT A SLASH ? 


RSS 


YES 


jSB FERRS*l,i 


NO, ERROR EXIT 


JSB OUTCL 




ISZ CC 


INCREMENT CHARACTER COUNTER 


LDA CC 


ALL CHARACTERS 


CPA NCH 


USED ? 


JMP FMT94 


YES 


ISZ DP 


INCREMENT DELIMITER POINTER 


JSB DSRCH 


FIND NEXT DELIMITER 


STO 


IGNORE BLANKS 


LDA FST 




JSB MCHAR 


NEXT CHARACTER 


CPA DP 


IS IT A DELIMITER 


RSS 


YES 


JMP FMU 


NO 


L.OA CC 


ALL CHARACTERS 


CPA NCH 


USED ? 


JMP FMJ94 


YES 


LDA DP 


NO, GET DELIMITING 


CLO 


CHARACTER 


JSB MCHAR 


IGNORING BLANKS 


CPA .+54 


IS IT A COMMA 


JSB FERRS,I 


YES, ERROR 


CPA ,+57b 


NO, A SLASH 


JMP FMT94 


YES 


CPA ,+5lB 


NO, A RIGHT PARENTHESIS ? 


JMP FMT97 


YES 


JMP FmT3 




LDA LCH 


LAST CHARACTER 


CPA ,+54B 


A COMMA ? 


JSB FERRS,I 




LDA CC 


NO, ALL CHARACTERS 


CPA NCH 


USED ? 


JMP FMT09 


YES 


JMP FMT93 


NO 



** 



HANDLE GROUPS OF SPECIFICATIONS 



• * 
*** 
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0321** 








*# 


0322 


55433 


003400 


FMT95 CCA 




SECOND 


0323 


55434 


041755 


ADA 


FSP 


CHARACTER 


0324 


55435 


051756 


CPA 


IFSS 


IN STACK ? 


0325 


55436 


002001 


PSS 






0326 


55437 


115175 


JSB 


FERRS+H, 


I NO, ERROR 


0327 


55440 


061744 


IDA 


CC1 


YES, FIRST LEVEL 


0328 


55441 


002002 


SZA 




OF PARENTHESIS ? 


0329 


55442 


027454 


JMP 


FMT96 


NO 


0330 


55443 


035644 


ISZ 


FST 


INCREMENT STRING POINTER 


0331 


55444 


003400 


CCA 




FIND CHARACTER COUNT 


0332 


55445 


041757 


ADA 


IFSTR 


UP TO AND INCLUDING 


0333 


55446 


003000 


CMA 




LEFT 


0334 


55447 


041644 


ADA 


FST 


PARENTHESIS 


0335 


55450 


071744 


STA 


cci 




0336 


55451 


065774 


LDB 


REPCT 


STORE REPETITION 


0337 


55452 


075763 


STB 


PCI 


COUNT 


033d 


55453 


026105 


JMP 


FMT3 


PROCESS STRING 


0339 


55454 


061745 


FMT96 LDA 


CC2 


SECOND LEVEL 


0340 


55455 


002002 


SZA 




OF PARENTHESIS 


0341 


55456 


115176 


JSB 


FERRS+12, 


I NO, ERROR 


0342 


55457 


035644 


ISZ 


FST 




03 4 3 


55460 


003400 


CCA 




FIND CHARACTER COUNT 


0344 


55461 


041757 


ADA 


IFSTR 


UP TO AND 


0345 


55462 


003000 


CMA 




INCLUDING 


0346 


55463 


041644 


ADA 


FST 


LEFT 


0347 


55464 


071745 


STA 


CC2 


PARENTHESIS 


0348 


55465 


065774 


LDB 


REPCT 


STORE REPETITION 


03 4 9 


55466 


075764 


STB 


PC2 


COUNT 


0350 


55467 


026105 


JMP 


FMT3 




0351 


55470 


061764 


FMT97 LDA 


PC2 


SECOND LEVEL OF 


0352 


55471 


002003 


SZA, 


,RSS 


PARENTHESIS ? 


0353 


55472 


027530 


JMP 


FMT98 


NO 


0354 


55473 


040356 


ADA 


.-1 


YES, REPEAT IT 


0355 


55474 


071764 


STA 


PC2 




0356 


55475 


002003 


SZA, 


,RS8 




0357 


55476 


027505 


JMP 


FMT99 




0358 


55477 


065745 


LDB 


CC2 


RESET 


0359 


55500 


075743 


STB 


CC 


CHARACTER COUNTER 


0360 


55501 


045757 


ADB 


IFSTR 




0361 


55502 


075747 


ST B 


DP 


AND STRING POINTER 


0362 


55503 


015536 


JSB 


DSRCH 




0363 


55504 


026105 


JMP 


FMT3 


REPROCESS PARENTHESIZED STRING 


0364 


55505 


002400 


FMT99 CLA 




CLEAR SECOND 


0365 


55506 


07i745 


STA 


CC2 


LEVEL POINTER 


0366 


55507 


071646 


STA 


SFLG 


AND STRING FLAG 


0367 


55510 


035743 


ISZ 


CC 


INCREMENT CHARACTER COuNtEr 


0368 


55511 


061743 


L DA 


CC 


ALL CHARACTERS 


0369 


55512 


051760 


CPA 


NCH 


USED ? 


0370 


555l 3 


115163 


JSB 


FERRS+1,1 


YES, ERROR 


0371 


55514 


035747 


ISZ 


DP 


NO, POINT TO DELIMITER 


0372 


55515 


015536 


JSB 


DSRCH 


FIND NEXT DELIMITER 


0373 


55516 


102101 


STO 




GET NExT 


0374 


55517 


061644 


LDA 


FST 


NON-BLANK 


0375 


55520 


015540 


JSB 


MCHAR 


CHARACTER 


0376 


55521 


051747 


CPA 


DP 


IS IT A DELIMITER ? 
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0377 


55522 


002001 


R3S 




YES 




0378 


55523 


027362 


JMP 


FMT92+3 


MAYBE 




0379 


55524 


065743 


LOB 


CC 


ALL 




0380 


55525 


055760 


CPB 


NCH 


CHARACTERS USED ? 




0381 


55526 


115174 


JSB 


FERRS+10, 


I YES, ERROR 




0382 


55527 


027357 


JMP 


FMT92 


NO, INVESTIGATE THE 


character 


0383 


55530 


061763 


FMy98 IDA 


PCI 


FIRST LEVEL 




0384 


555^1 


002003 


SZAj 


rRSS 


OF PARENTHESIS ? 




0385 


55532 


115177 


JSB 


FERRS+13, 


I NO, ERROR 




0386 


55533 


040356 


AOA 


.-1 


YES, REPEAT IT 




0387 


55534 


071763 


STA 


PCI 






0388 


55535 


002003 


SZA, 


-RSS 






0389 


55536 


027545 


JMP 


FMT00 






0390 


55537 


065744 


LD8 


CC1 


RESET 




0391 


55540 


075743 


STB 


CC 


CHARACTER COUNTER 




0392 


55541 


045757 


ADB 


IFSTR 






0393 


55542 


Q7S747 


STB 


DP 






0394 


55543 


015536 


JSB 


DSRCH 






0395 


55544 


026105 


JMP 


FMT3 


REPR0CE3S PARENTHESIZED STRING 


0396 


55545 


002400 


FMT00 CLA 




CLEAR FIRST 




0397 


55546 


071744 


STA 


CCl 


LEVEL POINTER 




0398 


55547 


071646 


STA 


SFLG 


AND STRING FLAG 




0399 


55550 


035743 


isz 


CC 


INCREMENT CHARACTER 


COUNTER 


0400 


55551 


035747 


ISZ 


DP 


POINT TO DELIMITER 




0401 


55552 


061743 


LOA 


CC 


ALL 




0402 


55553 


051760 


CPA 


NCH 


CHARACTERS USED ? 




0403 


55554 


027343 


JMP 


FMT91 


yES 




0404 


55555 


015536 


JSB 


DSRCH 


No, FIND NEXT DELIMITER 


0405 


55556 


102101 


STO 




GET NEXT 




0406 


55557 


061644 


LDA 


FST 


NON, BLANK 




0407 


55560 


015540 


JSB 


MCHAR 


CHARACTER 




0408 


55561 


051747 


CPA 


DP 


IS IT A DELIMITER 1 




0409 


55562 


002001 


RSS 




YES 




0410 


55563 


027362 


JMP 


FMT92+3 


NO 




0411 


55564 


065743 


LDB 


CC 


ALL 




0412 


55565 


055760 


CPB 


NCh 


Characters used ? 




0413 


55566 


027343 


JMP 


FMT91 


yes 




0414 


55567 


027357 


JMP 


FMT92 


no, investigate the 


FOUND CHARAC 


0415** 








** 




0416*** OUTPUT NUMBER In DEFAULT FQRMAT *** 




0417** 








** 




0418 


55570 


061736 


FMT80 LDA 


NUMWl 






0419 


55571 


071316 


STA 


MANTl 


LOAD 




0420 


55572 


065737 


LOB 


NUMW2 






0421 


55573 


075320 


STB 


MANT2 


saved 




0422 


55574 


061647 


LDA 


EXPW 






0423 


55575 


071322 


STA 


EXP 


NUMBER 




0424 


55576 


002400 


CLA 




CLEAR 




0425 


55577 


071324 


STA 


EXPON 


DECIMAL EXPONENT 




0426 


55600 


071752 


STA 


EF L AG 


set Floating point Flag 


0427 


55601 


051322 


CPA 


EXP 


ZERO EXPONENT 7 




0428 


55602 


027605 


JMP 


*+3 


YES 




0429 


55603 


015524 


JSB 


MTG1 






0430 


55604 


015526 


JSB 


DTL1 






0431 


55605 


003000 


CMA 








0432 


55606 


071324 


STA 


EXPON 
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0433 


55607 


015534 


J8B 


OUTCL 




0434 


55610 


060670 


LDA 


IHB 


RESET HOLD 


0435 


55611 


071726 


STA 


HBP 


buffer pointer 


0436 


55612 


060351 


LDA 


.-6 


PREPARE TO GET 


0437 


55613 


071741 


STA 


T0TD6 


SIX DIGITS 


0436 


55614 


015422 


JSB 


GETDG 


GET 


0439 


55615 


040437 


ADA 


,+60B 




0440 


55616 


171726 


STA 


HBP#I 


SIX 


0441 


55617 


035726 


I3Z 


HBP 




0442 


55620 


035741 


I3Z 


TOTDG 


DIGITS 


0443 


55621 


027614 


JMP 


*«5 




0444 


55622 


060361 


LDA 


.♦2 


SET NBLK TO 


0445 


55623 


071732 


STA 


NBLK 


WHERE IT wONf CAUSE TROUBLE 


0446 


55624 


015530 


J3B 


ROUND 


ROUNO NUMBER In HqLO buffer 


0447 


55625 


000000 


NOP 






0448 


55626 


061266 


IDA 


SIGN 


output 


0449 


55627 


015452 


JSB 


OUTCR 


SIGN 


0450 


55630 


060670 


LDA 


IHB 


INITIALIZE 


0451 


55631 


071726 


STA 


HBp 


HG|„D BUFFER POINTER 


0452 


55632 


161728 


LOA 


HBp,I 


OUTPUT 


0453 


55633 


015452 


JSB 


OUTCR 


DIGIT 


0454 


55634 


035726 


ISZ 


HBP 


INCREMENT HOLD BUFFER POINT 


0455 


55635 


060435 


LOA 


9 +56B 


OUTPUT 


0456 


55636 


015452 


JSB 


OUTCR 


DECIMAL POINT 


0457 


55637 


060352 


LOA 


9 *5 


PREPARE TO OUTPUT 


0458 


55640 


071741 


STA 


TOTDG 


FIVE DIGITS 


0459 


55641 


161726 


LOA 


HBP, I 


OUTPUT 


0460 


55642 


015452 


JSB 


OUTCR 


FIVE 


0461 


55643 


035726 


ISZ 


HBP 


DIGITS 


0462 


55644 


035741 


ISZ 


TOTDG 




0463 


55645 


027641 


JMP 


**4 




0464 


55646 


060464 


LDA 


E 


OUTPUT 


0465 


55647 


015452 


JSB 


OUTCR 


An e 


0466 


55650 


060434 


LDA 


• ♦55B 




0467 


55651 


065324 


LOB 


EXPON 


OUTPUT 


0468 


55652 


006020 


S3B 






0469 


55653 


007005 


CMB, 


,INB,R8S 


EXPONENT 


0470 


55654 


060432 


LOA 


,♦538 




0471 


55655 


075324 


STB 


EXPON 


SIGN 


0472 


55656 


015452 


JSB 


OUTCR 




0473 


55657 


061324 


LOA 


EXPON 




0474 


55660 


006400 


CLB 




get both exponent digits 


0475 


55661 
55662 


100400 
000371 


OIV 


.♦12B 




0476 


55663 


040437 


ADA 


,+60B 


CONVERT BOTH 


0477 


55664 


044437 


ADB 


,*60B 


TO ASCII 


0478 


55665 


075324 


STB 


EXPON 




0479 


55666 


015452 


JSB 


OUTCR 


OUTPUT 10'S DIGIT 


0480 


55667 


061324 


LDA 


EXPON 




0481 


55670 


015452 


JSB 


OUTCR 


OUTPUT l'S DIGIT 


0482 


55671 


015534 


JSB 


OUTCL 




0483 


55672 


027332 


JMP 


FMT90 




0484 


55673 


061746 


FMEND LDA 


CONTR 


YES, CONTROL 


0485 


55674 


002002 


SZA 




CHARACTER FOUND ? 


0486 


55675 


027700 


JMP 


* + 3 


YES 


0487 


55676 


015534 


JSB 


OUTCL 


NO 



pAGE 


0260 #21 Formatted 


OUTPUT ROUTINE 


0486 


55677 


124762 


4MP 


XEC1A # I 




0489 


55700 


050432 


CPA 


.♦53B 


Id CARRIAGE 


0490 


55701 


002001 


R33 




CONTROL A ♦ 


0491 


55702 


027714 


JMP 


FM10 


NO 


04g2 


55703 


060402 


LOA 


.♦238 


YES 


0493 


55704 


015452 


J3B 


OUTCR 


OUTPUT AN X-OFF 


0494 


55705 


060374 


LOA 


• ♦15B 


AND A 


0495 


55706 


015452 


JSB 


OUTCR 


CARRIAGE RETURN 


0496 


55707 


002400 


CLA 




AND A 


0497 


55710 


015452 


J3B 


OUTCR 


NULL* 


0498 


55711 


002400 


CLA 






0499 


55712 


071570 


STA 


CHRCT 




0530 


(£K9 4 <a 


124752 


fUfl 

gnr 


XEC1A,! 




0501 


55714 


050434 FM10 


CPA 


,♦558 


IS IT A MINUS 1 


0502 


55715 


002001 


R38 




YES 


0503 


55716 


124762 


JMP 


XEC1A,I 




0504 


55717 


060371 


LOA 


♦12B 
OUTCR 


OUTPUT A 


0505 


55720 


015452 


JSB 


LINEFEED 


0506 


55721 


124762 


JMP 


XEC1A # I 
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0002 

0003** 

0004** 

0005** 

0006* 

0007* 

0006* 

0009* 

0010* 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019* 

0020* 

0021* 

0022* 

0023* 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 



56000 



ORG 56000B 



** 
* MAKE A NUMBER LESS THAN 1 *** 

** 

multiply an unpacked floating point 
number in mantl, mant2 and exp by 10 until 
it is greater than 1. then divide by 10 



56000 015300 

56001 061322 

56002 003026 

56003 026006 

56004 035324 

56005 025525 

56006 015302 

56007 125524 



#MTG1 JSB MBY10 

LDA EXP MULTIPLY 

CMA f SSA,INA f SZA NUMBER BY 10 

JMP *+3 UNTIL IT IS 

ISZ ExPON GREATER 

JMP MTGl+l THAN 1 

jsb DBY10 divide by 10 

JMP MTGUI 



DIVIDE AN UNPACKED FLOATING POINT NUMBER 
IN MANTl, MANT2 AND EXP BY 10 UNTIL IT IS 
LESS THAN 1 



56010 
56011 
56012 
56013 
56014 
56015 
56016 
56017 
56020 
56021 



061324 
065322 
007004 

006021 
125526 
071324 

015302 
003400 
041324 
026011 



#DTLl 
DTL10 



LDA 

LDB 

CMBf 

S3B, 

JMP 

StA 

JSB 

CCA 

ADA 

JMP 



EXPON 
EXP 
INB 
RSS 

DTL1,I 
EXPON 

DBY10 

ExPON 
DTL10 



DIVIDE 
NUMBER 
BY 10 
UNTIL 
IT is 
LESS 
THAN 

1 



PAGE 0262 #22 FORMATTER UTILITY ROUTINES 



0035** 








** 




0036*** ROUND ASCII 


NUMBER *** 




0037** 








** 




0038* 














0039* 


number stored 


ONE 


ASCII 


[ DIGIT PER WORD IN 


0040* 


HOLDING BUFFER. ROUTINE GETS NEXT DIGIT 


0041* 


AND ROUNDS IF 


IT IS >« 


'5. 




0042* 


IF THERE IS A 


CARRY TO 


AN EXTRA 


DIGIT AND NO 


0043* 


ROOM 


EXISTS, 


EXIT 


IS TO CP+1), 


OTHERWISE RETURN 


0044* 


TO (P+2). 










0045* 














0046 


56022 


015422 


#RUND 


JSB 


GETDG 


GET NEXT DIGIT 


0047 


56023 


040352 




ADA 


, *»5 


IS IT >» 5 7 


0048 


56024 


002020 




SSA 






0049 


56025 


125530 




JMP 


ROUND, I 




005^ 


56026 


003400 




CCA 




DECREMENT HOLD 


0051 


56027 


041726 




ADA 


HBP 


BUFFER POINTER 


0052 


56030 


164000 


RONDl 


LDB 


0,1 


LOAD NEXT DIGIT 


0053 


56031 


006004 




INB 




INCREMENT IT 


0054 


56032 


054452 




CPB 


,58 


WAS IT A 9 ? 


0055 


56033 


026036 




JMP 


* + 3 


YES 


0056 


56034 


174000 




STB 


0,1 


NO, SAVE IT 


0057 


56035 


125530 




JMp 


ROUND, I 


AND RETURN 


005a 


56036 


064437 




LDB 


.+606 


OVERLAY 


0059 


56037 


174000 




STB 


0,1 


A 


0060 


56040 


050670 




CpA 


IHB 


LEADING DIGIT 7 


0061 


56041 


026044 




JMP 


* + 3 


YES 


0062 


56042 


040356 




ADA 


.-1 


NO, DECREMENT PQINtER 


0063 


56043 


026030 




JMP 


RONDl 




0064 


56044 


064440 




LDB 


,+6lB 


OVERLAY A 


0065 


56045 


174000 




STB 


0,1 


ONE 


0066 


56046 


064437 




LDB 


,+60B 


LOAD 


0067 


56047 


175726 




STB 


HBP, I 


EXTRA ZERO 


0068 


56050 


065752 




LDB 


FFLAG 


FLOATING POINT 


0069 


56051 


006002 




SzB 




SPECIFICATION ? 


0070 


56052 


026056 




JMP 


R0ND2 


NO 


0071 


56053 


035324 




isz 


ExPON 


INCREMENT EXPONENT 


0072 


56054 


000000 




NOP 






0073 


56055 


125530 




JMP 


ROUND, I 




0074 


56056 


007400 


R0N02 


CCB 




IS NBLK 


0075 


56057 


045732 




ADB 


NBLK 


LESS 


0076 


56060 


006020 




SSB 




THAN 1 7 


Vi\d77 


56061 


035530 




ISZ 


ROUND 


NO, RETURN TO (P*2) 


0078 


56062 


075732 




STB 


NBLK 


YES, KEEP DECREMENTED VALUE 


0079 


56063 


125530 




JMP 


ROUND, I 
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0081** 




i 


** 


0082*** OUTPUT BLANKS 


*** 


0083** 




- 


** 


0084* 










0085* 


Outputs the 


NUMBER 


OF BLANKS SPECIFIED 


0086* 


BY THE NEGATIVE 


OF 


REPCT. THE STACK POINTER 


0087* 


IS INCREMENTED AND 


REPCT HAS THE VALUE ZERO 


0088* 


UPON EXIT, 








0089* 










0090 


56^64 035755 


*OTBL 


ISZ FSP INCREMENT STACK POINTER 


0091 


56065 061571 






LDA BLANK OUTPUT A 


0092 


56066 015452 






JS8 OUTCR BLANK 


0093 


56067 035774 






ISZ REpCT REPCT USED UP f 


0094 


56070 026065 






JMP **3 


0095 


56071 125532 






JMP OUTBL,I 


0096* 










0097* 


OUTPUT X« 


OFF, 


, CARRIAGE RETURN, LINE FEED 


0096* 










0099 


56072 


#OTCL 


EQU * 


0100 


56072 060402 






LDA ,+23B 


0101 


56073 015452 






JS8 OUTCR 


0102 


56074 060374 






LDA .+15B 


0103 


56075 015452 






JSB OUTCR 


0104 


56076 060371 






LDA .+128 


0105 


56077 015452 






JSB OUTCR 


0106 


56100 002400 






CLA 


0107 


56101 071570 






STA CHRCT 


0108 


56102 125534 






JMP OUTCL,! 
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0110** 










*# 


0111*** SEARCH FOR 


A DELIMITING CHARACTER *** 


0112** 










** 


0113* 














0114* 


BEGIN S SEARCH AT CHARACTER Dp. 


WHEN A COMMA 


0115* 


OR SLASH IS 


FOUND, 


DP ] 


[S SET TO 


POINT TO THAT 


0116* 


CHARACTER, 


CHARACTERS 


ARE COUNTED AND IF THE 


0117* 


END OF THE STRING 


IS ENCOUNTERED BEFORE A 


0116* 


DELIMITER IS 


FOUND 


, a flag is set 


0119* 














0120 


b6l03 


061747 


#DSCH 


LDA 


DP 


SET STRING POINTER TO 


0121 


56104 


071644 




STA 


FST 


FIRST CHARACTER 


0122 


56105 


103101 




CLO 




DONIT IGNORE BLANKS 


0123 


56106 


015540 


SER1 


JSB 


MCHAR 


GET STRING CHARACTER 


0124 


56107 


050433 




CPA 


,+54B 


IS IT A COMMA ? 


0125 


86110 


125536 




JMP 


DSRCH,I 


YES 


0126 


56111 


050436 




CPA 


,*57B 


NO, IS IT A SLASH 7 


0127 


56112 


125536 




JMp 


DSRCH,I 


YES 


012 8 


56113 


050430 




CPA 


,+5iB 


NO, IS IT A RIGHT PARENTHESIS ? 


0129 


56H4 


125536 




JMP 


DSRCH,I 


YES 


0130 


56115 


035747 




ISZ 


DP 


NO, INCREMENT DELIMITER POINTER 


0l3l 


56U6 


035743 




ISZ 


CC 


AND CHARACTER COUNTER 


0132 


56117 


061747 




LDA 


DP 




0133 


56120 


065743 




ldb 


CC 




0134 


56121 


055760 




CPB 


NCH 


AU CHARACTERS USED f 


0135 


56122 


125536 




JMP 


DSRCH,I 


YES 


0136 


56123 


026106 




JMP 


SER1 


NO 


0137** 








** 




0138*** MASK OUT A 


CHARACTER 


*** 




0139** 








*• 




0140* 














0141* 


GET NEXT CHARACTER 


FrOM FOrMAT 


STRING 


0142* 


ADDRESS OF CHARACTER IS IN (A), 


CHARACTER IS 


0143* 


RETURNED IN 


(A) 








0144* 














0145 


56124 


000065 


#MCHR 


CLE, 


,ERA 


SHIFT ADDRESS RIGHT 


0146 


56125 


164000 




L DB 


0,1 


LOAD WORD FROM STRING 


0147 


56126 


002041 




SEZ, 


,RSS 


HIGH CHARACTER ? 


0148 


56127 


005727 




BLF, 


>BLF 


YES, SWITCH POSITIONS 


0149 


56130 


060001 




LDA 


1 


NO 


0150 


56131 


010500 




AND 


B377 


MASK OUT LOW CHARACTER 


0151 


56132 


102301 




SOS 




SHOULD BLANKS BE IGNORED 7 


0152 


56133 


125540 




JMp 


MCHAR, I 




0153 


56134 


051571 




CPA 


BLANK 


YES, IS CHARACTER A BLANK ? 


0154 


56135 


026143 




JMP 


MCHR1 


YES 


0155 


56136 


040317 




ADA 


M96 


NO 


0156 


56137 


002021 




SSA, 


RSS 


LOWER CASE? 


0157 


56140 


040450 




ADA 


M32 


YES 


0158 


56141 


040470 




ADA 


,140 


NO 


0159 


56142 


125540 




JMP 


MCHAR, I 




0160 


56143 




MCHRt 


EQU 


* 




0161 


56143 


035644 




ISZ 


FST 


INCREMENT STRING POINTER 


0162 


56144 


061644 




LDA 


FST 


NEXT CHARACTER 


0163 


56145 


051747 




CPA 


DP 


A DELIMITER ? 


0164 


56146 


125540 




JMp 


MCHAR, I 


YES, RETURN 


0165 


56147 


025541 




JMP 


MCHAR+1 


IGNORE THE BLANK 
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0166** ** 

0167*** EVALUATE EXPRESSION *** 

0166** 

0169* 

0170* 

0171* 

0172* 
0173* 

0174* 
0175* 
0176 



** 

EXTRACT THE NEXT VARIABLE TO BE OUTPUT BY THE FORMATTER, IF 
NONF FOUND* EXIT TO CP*1), IF A STRING 13 FOUND* EXIT TO 
(P + 2) AFTER PREPARING THE STRING FOR OUTPUT, IF A NUMERIC 
QUANTITY IS FOUND* EXIT TO (P+3) WITH THE NUMBER IF (A) AND (B)t 
EDSTA IS SET TO IF THIS IS THE LAST VARIABLE IN THE STATEMENT, 



0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 

0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 

0217 

0218 
0219 
0220 



56150 
56150 
56151 
56152 
56153 
56154 
56155 
56156 
56157 
56160 
56161 
56162 
56163 
56164 
56165 
56166 
56167 
56170 
56i7l 
56172 
56173 
56174 
56l75 
56176 
56177 
56200 
56201 
56202 
56203 
56204 
56205 
56206 
56207 
56210 
56210 
56211 
56212 
56213 
56214 
56215 
56216 
56217 
56220 
56221 
56222 
56223 



061754 
002020 
026212 
065611 
055334 
125542 
003400 
071470 
015336 

165332 
006020 
026177 
015376 
035470 
026153 
061611 
051334 
002400 
071751 
104200 

100001 

035542 
026210 
060355 
015344 
071256 
075410 
0656H 
055334 
006400 
075751 
065410 

035542 
125542 
035470 
026244 
065611 
055334 
125542 
161611 
010566 
002003 
125542 
002020 



#EVEP EQU 
LDA 
SSA 
JMP 

EVEX0 LDB 
CPB 

JMP 
CCA 
STA 
JSB 
LDB 
SSB 
JMP 
JSB 
ISZ 
JMP 
LDA 
CPA 
CLA 
STA 
OLD 

ISZ 
JMP 

EVEX3 LDA 
JSB 
STA 
STB 
LDB 
CPB 
CLB 
STB 
LDB 

EVEX4 EQU 
ISZ 
JMP 

EVEX5 ISZ 
JMP 

EVEX6 LDB 
CPB 

JMP 
LDA 

AND 
SZA, 
JMP 
SSA 



FFLG 

EVEX5 
TEMPI 
PRGCT 
EVEXP,I 

EOL 

FORMX 

OPDST,I 

EVEX3 

OPCHK 

EOL 

EVEX0 

TEMPI 

PRGCT 

EDSTA 
1*1 

EVEXP 
EVEX4 

.•2 

PSTR 

TEMP4 
TPRME 
TEMPI 
PRGCT 

EDSTA 
TPRME 

* 

EVEXP 

EVEXP, I 

ELCNT 

EVEX7 

TEMPI 

PRGCT 

EVEXP, I 
TEM P l,I 

OPDMK 
RSS 
EVEXP, I 



MAT 

PRINT? 
YES 

END OF STATEMENT? 

yES 

TURN OFF 

FUNCTION FLAG 
EVALUATE FORMULA 
IS IT A 

STRING VARIABLE ? 
yES 

NO, UNSTACK VALUE ADDRESS 
A FUNCTION ? 

LAST VARIABLE? 

YES 

NO 

NO, LOAD NUMBER 

RETURN TO (P+3) 

PREPARE 
PRINT 
STRING 

END OF 

STATEMENT? 
YES 
NO 



RETURN TO 

(P*2) 
FINISHED CURRENT MATRIX? 
NO 
YES 

END OF STATEMENT? 
Y Es 
GET NEXT OPERAND 

NULL 
YES 

NO* FUNCTION? 
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0221 


56224 


026262 




JMP 


EVEX8 


YES 




0222 


56225 


001000 




ALS 




NO, LOAD 




0223 


56226 


041573 




AOA 


SYMTB 


BASE ADDRESS 




0224 


56227 


040356 




ADA 


.-I 


OF ARRAY 




0225 


56230 


164000 




LDB 


A, 1 






0226 


56231 


044355 




ADB 


.-2 


SAVE POINTER TO 




0227 


56232 


075572 




STB 


SBPTR 


DYNAMIC DIMENSIONS 




0228 


56233 


015470 




JSB 


VCHK 


VALIDATE ArrAY ELEMENTS 




0229 


56234 


161572 




L OA 


SBPTR, 1 


SET POINTER 




0230 


56235 


035572 




ISZ 


SBPTR 


TO FIRST ELEMENT 




0231 


56236 
56237 


100200 
101572 




MPY 


SBPTR, I 


OF ARRAY 




02 3 2 


56240 


035572 




ISZ 


SBPTR 


WHILE COMPUTING 




0233 


56241 


003004 




CMA, 


,INA 


NUMBER OF 




0234 


56242 


071470 




STA 


ELCNT 


ELEMENTS 




0235 


56243 


035611 




ISZ 


TEMPI 


BUMP TO NExT OPERAND 




0236 


56244 


003400 


EVEX7 


CCA 




LAST 




0237 


56245 


051470 




CPA 


ELCNT 


ELEMENT? 




0238 


56246 


002001 




RSS 




YES 




0239 


56247 


026253 




JMP 


EVEX9 


NO 




0240 


56250 


061611 




LDA 


TEMPI 


END OF 




0241 


56251 


051334 




CPA 


PRGCT 


STATEMENT? 




0242 


56252 


002400 




CLA 




YES 




0243 


56253 




EVEX9 


EQU 


* 






0244 


56253 


071751 




STA 


EDSTA 


NO 




0245 


56254 
56255 


104200 
101572 




DUO 


SBPTR, I 


GET NUMBER 




0246 


56256 


035572 




ISZ 


SBPTR 


BUMP TO 




0247 


56257 


035572 




ISZ 


SBPTR 


NEXT ELEMENT 




0248 


56260 


035542 




isz 


EVEXP 






0249 


56261 


026210 




JMP 


EVEX4 


EXIT 




0250 


56262 


003400 


EVEX8 


CCA 




TURN OFF 




0251 


56263 


071470 




STA 


EOL 


FUNCTION FLAG 




0252 


56264 


015336 




JSB 


FORMX 


EVALUATE FUNCTION 




0253 


56265 


015376 




JSB 


OpCHK 


REMOVE ARGUMENT FrOM TEMp 


STACK 


0254 


56266 


026214 




JMP 


EVEX6 


GET NEXT OPERAND 




0255* 
















0256* 


MESSAGE BUFFER 










0257* 
















0258 


56267 


000000 


MSQHD 


BSS 


MESBN 






0259 


56641 






B8S 









0260* 
















0261 


56641 


020134 


RVRSL 


A$C 


1/ \ 






0262 


56642 


160000 


TBITS 


OCT 


160000 






0263 


56643 


120000 


B120K 


OCT 


120000 






0264 


56644 


130000 


B130K 


OCT 


130000 






0265 


00222 




B160K 


EQU 


INI 






0266 


56645 


000137 


BK8PC 


OCT 


137 






0267 


56646 


000000 


TTA 


BSS 


1 






0268 


56647 


000000 


TTB 


BSS 


1 






0269 


56650 


000000 


TTE 


BSS 


1 






0270 


56651 


000000 


TOG 


BSS 


1 






0271 


56652 


000000 


TAOR 


BSS 


1 
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0273* THE POWER FAIL/RESTART ROUTINE INSURES A LOGICAL SHUTDOWN AND 
0274* RESTART OF THE SYSTEM IN CASE OF POWER FAIL, 



0276 


56653 


000000 


0277 


56654 


102204 


0278 


56655 


026726 


0279* 






0280* 


POWER 


FAIL S 


0281* 






0282 


56656 


104400 




56657 


057055 


0283 


56660 


005520 


0284 


56661 


102201 


0285 


56662 


006004 


0286 


56663 


002400 


0287 


56664 


053054 


0288 


56665 


026670 


0289 


56666 


073054 


0290 


56667 


026724 


0291* 






0292 


56670 


062653 


0293 


56671 


043107 


0294 


56672 


002020 


0295 


56673 


026677 


0296 


56674 


043110 


0297 


56675 


002020 


0298 


56676 


026724 


0299* 






0300 


56677 


077061 


0301 


56700 


104200 




56701 


057055 


0302 


56702 


104400 




56703 


057057 


0303 


56704 


062653 


0304 


56705 


073062 


0305 


56706 


102501 


0306 


56707 


073065 


0307* 






0308 


56710 


002400 


0309* 






0310 


56711 


102211 


0311 


56712 


030361 


0312 


56713 


102212 


0313 


567* 4 


0303 6 3 


0314 


56715 


102214 


0315 


56716 


030377 


0316 


56717 


073063 


0317 


56720 


006400 


0318 


56721 


102200 


0319 


56722 


067010 


W320 


56723 


077052 


0321* 






0322 


56724 


106704 


0323 


56725 


102036 



POW 



NOP 
SFC 4 
JMP POWl 



DST POWl 

ERB,BLS 

SOC 

INB 

CLA 

CPA POWFF 

JMP **3 

STA POWFF 

JMP POW2 

LOA POW 

ADA POWDl 

SSA 

JMP **4 

ADA P0WD2 

SSA 

JMP P0W2 

STB POWEO 
DLD POWl 

DST POWAB 

LDA POW 

STA POWP 

LIA 01 

STA POWSW 

C L A 

SFC Ch2 
IOR +2 
SFC fsC 
IOR ,*4 
SFC CLOCK 
IOR ,+20B 
STA POWFL 
CLB 
SFC 
LDB STF0 
STB POWND 



INTERRUPT ENTRY POINT, 
TEST FOR FAIL Or RESTART, 
TRANSFER TO RESTART SECTION, 



SAVE REGISTERS TEMPORARILY, 



IF POWFF WAS NONZERO, 
INTtHRUr I W A ** FRQW POWER FAILt 



TEST FOR INTERRUPT OUT OF 
RESTART SECTION. 

NORMAL FAIL, 



FAILED FROM RESTART SECTION, 
NORMAL FAILURE"«SAVE REGISTERS, 



load and save 
the switch register 

get Flags for a^ devices that 
can interrupt, 
check send channel 

BIT i FOR CHANNEL 11 
CHECK FLAG ON C0N801E TTY f 

BIT 2 FOR TTY 
CHECK TIME BASE GENERATOR 

BIT 4 FOR TIME BASE GENERATOR 



IF INTERRUPT IS SET, STORE 
STF INTO POWNDI ELSE NOP, 



PUW2 



clC 4 set for restart, 
hlt death+36b 
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0325* RESTART SECTION 



0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342* 

0344* 
0345* 
0346 

0347 

0348 

0349 

0350 

0351* 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361* 

0362* 

0363* 

0364* 

0365* 

0366 

0367 

0368 

0369 

\d37id 

0371 

0372 

0373 

0374 

0375 

0376 

0377 
0378 

0379 
\d3dfd* 



56726 
56727 
56730 
56731 
56732 
56733 
56734 
56735 
56736 
56737 
56740 
56741 
56742 
56743 
56744 



102704 

063065 
102601 
060366 
073056 
002004 
073055 
060362 
102614 
063063 
073064 
066642 
010363 

002003 
106612 



POWl 



STC 


4 


LDA 


powsw 


OTA 


01 


LDA 


• *7 


8TA 


POWJ 


INA 




STA 


POWI 


L DA 


. + 3 


OTA 


CLOCK 


LDA 


POWFL 


STA 


POWF 


LDB 


TBITS 


AND 


.♦4 


9*» A 1 


,RSS 


OTB 


?SC 



RESET for power fail, 

FETCH AND RESTORE 

THE SWITCH REGISTER 
INITIALIZE J AS A POWER FAIL POI 
TER AND I AS DMA POINTER, 



RESET CLOCK FREQUENCY. 

COPY FLAGS, 

IF ASR„35 FLAG WAS CLEAR, SET UP 
THE CORRECT STaTE OF THE ASR35 
OTHERWISE LEAVE IT SET IN THE 
INPUT STATE, % 



now test the Individual 10 flags* if a f^ag was clEar # we perform 
a clf operation, if it was set, we take stronger action, 



56745 063064 

56746 001300 

56747 073064 

56750 002020 

56751 026763 



P0W4 



56752 
56753 
56754 

56755 
56756 
56757 
56760 
56761 
56762 



063055 
043012 
072755 

000000 

063055 
050373 
027021 
037055 
026745 



P0W6 



LDA POWF 

RAR 

STA POWF 

SSA 

JMP P0W5 

LDA POWI 
ADA CLF0 
STA *+l 
NOP 

LDA POWI 
CPA ,+148 
JMP P0W14 
ISZ POWI 
JMp P0W4 



GET WORD CONTAINING FLAGS. THE 
ONE TO BE TESTED IS IN BIT AND 
I» ITS SELECT CODE. 

FLAG SET, 

PRODUCE CLF INSTRUCTION. 



EXECUTE CLF, 

TEST FOR DONE. 

CHECK FOR CLOCK LOCATION 

DONEt 

OTHERWISE, BUMP I AND LOOP. 



FLAG WAS SET. TEST IF ROUTINE HAD ACTUALLY BEEN 
ENTERED. IF SO, PERFORM A DUMMY INTERRUPT TO PRE- 
VENT IT FROM BEING REENTERED, 



56763 
56764 

56765 
56766 
56767 

56770 
56771 
5677? 
56773 
56774 
56775 

56776 
56777 

57000 



067066 
047056 
164001 
160001 
067066 
047055 
003000 
140001 
002021 
026756 
044364 

140001 
002020 
026756 



P0W5 



AD85 



ldb powtb 

ADB POwJ 
LDB If I 
LDA 1,1 
LDB POWTB 
ADB POWI 
CMA 

ADA 1,1 
SSA,RSS 
JMP P0W6 
ADB .+5 
ADA 1,1 
SSA 
JMP P0W6 



COMPUTE LOCATION 0? RETURN AD- 
DRESS OF HIGHES T PRIORITY ROu<- 
TINE NOT YET TESTED. 
GET ITS RETURN ADDRESS 

POINT TO RET. ADR. OF TEST ROUTIN 
TEST FOR INTERRUPT Out OF tHAt 
ROUTINE, 

NO— INTERRUPT WAS PENDING, 
BUMP INDEX REGISTER 



NOT INTERRUPTED, 
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0381* 

0382* 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399* 

0400* 

0401* 

0402* 

0403* 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424* 

0425 

0426 

0427 

0428 

0429 

0430* 

0431 

0432 

0433 

0434* 

0435 



PERFORM DUMMY INTERRUPT TO PREVENT AN UNWANTED ONE LATER. 



57001 
57002 
57003 
57004 
57005 
57006 
57007 
57010 
57011 
57012 
t\7ai % 

57014 
57015 
57016 
57017 
57020 



062775 
173055 
063055 
043111 
073007 
020520 
102700 
102100 
073013 
103100 
106700 
160001 
173055 
063055 
073056 
026756 



LDA 

sta 

LDA 
ADA 
STA 
XOR 
POWST STC 
STF0 STF 



CLF0 
PQWCL 



STA 

CLF 
n r n 



ADB6 

POWl,I 

POWI 

STC0 

POWST 

B4000 





POWCL 





LDA 
STA 
LDA 
STA 
JMP 



1,1 

POWI, I 
POWI 
POWJ 
P0W6 



PLACE AD85 IN INTERRUPT CELL 



SET UP STC AND CLC, 

CREATE CLC, 

SET DEVICE CONTROL 

ENABLE INTERRUPT CAUSING ADB5 TO 

COMPUTE ADR, Of CORRECT INT, VAL 

DISABLE INTERRUPT. 

DISABLE DEVICE, 

SET CORRECT INTERRUPT CONTENTS 

STORE in INTERRUPT CELL. 

UPDATE INTERRUPT CHAIN 

POINTER, 
GO TEST NEXT DEVICE, 



** have done all dummy interrupts, 
** set control on clock and tty, 
** and restart Interconnect, 



57021 
57021 
57022 

57023 
57024 
57025 
57026 
57027 
57030 
57031 
57032 
57033 
57034 
57035 
57036 
57037 
57040 
57041 
57042 
57043 

** RE 
57044 
57045 
57046 
57047 
57050 
57051 

** RE 
5705? 
57053 
57054 



103710 
060073 

102611 
102111 
063063 
010361 
002003 
103711 

106711 
102714 
102712 

062642 
102612 
037054 
063112 
067062 
114205 
002400 
073054 

STORE RE 
063061 

103101 
000036 
102101 

1042^0 

057057 

SET INjE 

000000 

127062 



p0wl4 EQU 
STC 
LDA 
OTA 
STF 
LDA 
AND 
SZA # 
STC 
CLC 
STC 
STC 
LDA 
OTA 

ISZ 
LDA 
LDB 
JSB 
CLA 
STA 
GISTERS. 

LDA 

CLO 

SLA, 

STO 

DLD 

RRUPT syste 

PQWND NOP 

JMP 

POn40 EQU 



* 

CHi,C 

SyCH2 

CH2 

CH2 

POwFL 

.+2 

RSS 

CH2,C 

CH2 

CLOCK 

?8C 

TBITS 

?SC 

POWFF 

POFFP 

POWP 

DREDPrI 

POWFF 

POWEO 

FLA 

POWAB 



M JO SAMF AS BEFORE FAIL. 

OR STE 0. 
POWP, I RETURN, 



RESTART FIRST CHANNEL 

put word back out on CH2 



LOAD FLAG wORD 

LEAVE BIT 1 
SKIP IF FLAG SET 
OTHERWISE* TELL OTHER MACHINE 
WANT NO INTERRUPT 



RE-ESTABLISH PREVIOUS 
STATE OF ASR35 
SET IN CASE OF ANOTHER Pf 
GET POINTER TO POWFF 
GET POWER FAIL LOCATION 
GO DO DISC STUFF 

SAY NOT RESTARTING 

»E f and overflow 



57rt54 000000 PliwFF NOP 



SET TO 1 DURING DISC RECALL, 
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0436 
0437 

0436 
V»439 
0440 

0441 
0442 

0443 

0444* 

0445 

0446* 

0447*. 

0448* 

0449* 

0450 

0451 

0452 

0453 

0454 

0455 

0456* 

0457* 

045a* 

0459* 
0460* 
0461* 

0462* 

0463 

0464 

0465 

0466 

0467 

0466* 

0469 

0470 

0471 

0472 

0473 

0474* 

0475 

0476 

0477 

0478 



57055 

5705^ 

57057 

57061 

57062 

57063 
57064 

57065 



000000 
000000 

000000 
000000 

000000 
000000 
000000 

000000 



POWI RSS 1 
POWJ 8SS 1 
POwAB BSS 2 
PQWEO BSS 1 
POwP BSS t 
POWFL BSS 1 
POWF BSS t 
POWSW BSS 1 



57066 057060 POWTB OEF *-6 



POINTER TO DEVICE BEING TESTED, 

POINTER TO INTERRUPT CHAIN, 

TEMPS TO HOLD VALUES °? A &B t 

TEMP TO HOLD VALUE OF E&O, 

TEMP TO HOLD vALu& OF P 

TEMP TO HOLD STATE OF I/O FLAGS 

COPY OF POWFL. 

TEMP TO HOLD SWITCH REGISTER 

POINTER TO FOLLOWING TABLE 



THIS TABLE POINTS TO THE ENTRY POINTS FOR 
THE INTERRUPT ROUTINES, 



57067 
57070 
57071 
57072 
57073 
57074 



057062 
062025 
062025 
057133 
000000 
070024 



DEF POWP 
DEF R14CM 
DEF R14CM 
DEF ?TT2 
BSS l 
DEF CLKIN 



POWER FAIL RTN.ADR. 
INTERCONNECT RETURN ADDRESS 

TTY RTN.ADR, 

NO INTERRUPT OCCURS ON THIS CHN 

CLK RTN.ADR, 



THIS SECTION GlyES THE LENGTH OF EACH ROUTINE 

SO THAT POWER FAIL CAN DETERMINE WHETHER 

THAT ROUTINES I N TErrUPT HAD ACTUALLY qCCURREO 

OR W A S STILL PENDING A* THE TIME OF THE POWER FAlLUREt 



57075 000220 

57076 000000 

57077 000166 

57100 000000 

57101 000030 



57102 
57103 
57104 
57105 
57106 



114734 
102011 
114756 
107713 
114630 



57107 121052 
57ii0 177652 

57111 102700 

57112 057054 



POWD1 
POWD? 
STC0 
POFFp 



ABS R14ED-R14CM 

ABS NO SUCH ROUTINE 

ABs TTYED-?TT2*l WITHIN INtErrUPT 

BSS 1 NO INTERRUPT OCCURS ON THIS CHN 

ABS CLKED«CLKIN*1 ROUTINES, 

JSB R14DR,I 
HLT DEATH+11B 
JSB T35DR f I 
CLC 13B,C 
JSB CLKDR#I 

ABS «*PQW1 
ABS POWi«PQW40 
STC 
DEF POWFF 
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0002* 
0003* 
0004* 
0005* 
0006* 
0007* 
0008* 
0009* 

0010* 
0011* 

0012* 
0013* 
0014* 

0015* 
0016* 
0017* 
0018* 
0019* 
0020* 

0021* 
0022* 
0023* 
0024* 
0025* 
0026* 
002;* 

0028* 
0029* 
0030* 
0031* 

0032* 
0033* 
0034* 

0035* 



THE SYSTEM CONSOLE DRIVER CONTROLS ALL TRANSMISSION OF DATA BE* 
TWEEN THE SYSTEM CONSOLE (ASR-35) AND THE SYSTEM, IT HANDLES ALL 
* 10 FOR THE DEVICE AND PROVIDES FOR COMMUNICATION OF MESSAGES TO 
THF SYSTEM, THE FOLLOWING VARIABLES ARE SIGNIFICANT! 

T36F1J «0 DURING INPUT* -1 DURING OUTPUT, 

T35F2S NORMALLY 0, IT IS SET TO «l WHEN A COMPLETE MESSAGE HAS 

BEEN RECEIVED. UNTIL IT IS CLEARED BY THE SYSTEM, ALL FUR* 

THER INPUT IS INHIBITED, 
T3 5 F3j NORMALLY 0, IT IS SET TO *1 WHEN A COMPLETE MESSAGE HAS 

BEEN RECEIVED, UNTIL It IS CLEARED BY THE OUTPUT 

INITIALIZATION SECTION OF THIS DRIVER, LOG AND MESSAGE 

ENTRIES ARE HELD OFF. 
TOG: NOT USED DURING INPUT, DURING OUTPUT, BIT * IF NEXT 

CHARACTER IS ON L^T, 1 IF ON RIGHT, 
TADRj NOT USED DURING INPUT, DURING OUTPUT, TADR(14S0) POINTS TO 

THE WORD FROM WHICH THE NEXT CHARACTER WILL BE TAKEN, 

BIT 15*1 FOR PUNCH & PRINT, FOR PRINT ONLY, 
TCnTJ DURING INPUT, TCnT*# Of C H ARS IN SO F*R# DURING OUTPUT, 

TCNT(14!0)«# OF CHARS REMAINING TO BE OUTPUT, BIT 15*0 

IF a C«LF IS TO BE APPENDED, X IF NOT, 

tbits: Contains current control bits, 

120000 «> PRINT 
130000 ■> PUNCH AND PRINT 
160000 ■> INPUT 
TT A ,TT B ,TTE; USED TO SaVE THE VALUES OF A,B,E REGISTERS DURING 

interrupts, 
calling sequence! 

JSb TTY35,I a*# OF CHARS (BIT 15*0 FOR CRLF, t FOR NONE) 
BiBuFFER ADDRESS (BIj 15»1 FOR PUNCHING) 

INPUT ME SS AGE S A R E stGrED IN T HE 72 CHArACjEr BuFFEr T35BF, 



0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048* 

0049* 

0050* 

0051* 
0052 
0053 
0054 

0055 
0056 



57113 
57114 
57115 
57116 
57H7 
57120 
57121 
57122 
57123 
57124 
57125 



000000 
103100 
070074 
076652 
003400 
070311 
063113 
073133 
002400 
072651 
070313 



?TT35 



NOP 

CLF 

STA TCNT 

STB TADR 

CCA 

STA T35F1 

LDA ?TT35 

STA ?TT2 

CLA 

STA TOG 

STA T35F3 



ENTRY POINT FOR OUTPUT, 

INHIBIT INTERRUPT, 

SET UP INITIAL PARAMETERS, 

SET FLAG TO SAY 

OUTPUT, 
COPY RETURN ADDRESS INTO THAT OF 

INTERRUPT SECTION, 
SET TOG TO SAY LEFT HAND CHAR, 



TEST FOR PENDING INPUT, IF THERE IS ANy, EXIT IMMEDIATELY AND LET 
THE INTERRUPT TRIGGER THE FIRST OUTPUT CHARACTER, 



57126 
57127 
57130 

57131 
57132 



102512 
002021 
027157 
102100 
127113 



LIA ?sC 

SSA,RSS 

JMP TT18 

STF 

JMP ?TT35,I 



NONE PENDING—GO OuTPuT 1ST CHAR 
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0057* 












0058* 


INTERRUPT SECTION 






0059* 












0060 


57133 


000000 


?TT2 


NOP 




0061 


57134 


072646 




STA TTA 


SAVE REGISTERS. 


0062 


57136 


076647 




STB TTB 




0063 


57136 


001500 




ERA 




0064 


57137 


072650 




STA TTE 




0065 


57140 


060311 




IDA T35F1 


TEST FLAG TO DETERMINE IF 


0066 


57141 


002003 




SZA,RSS 


INPUT OR OUTPUT, 


0067 


57142 


027235 




JMP TT17 


INPUT 


006a 


57143 


102512 




LIA ?SC 


LOAD BACK LINE STATUS DURING OU 


0069 


57144 


064276 




LDB T35ST 


GET CONSOLE STATUS 


0070 


57145 


054362 




CPB %OUTW 


IF OUTPUT WAIT 


0071 


57146 


064300 




LOB T35PR 


USE PRIORITY 


0072 


57147 


007004 




CMB, INB 




0073 


57150 


044440 




AOB ,+%SYNT«> 


,+l+R0S*C0M2 


0074 


57151 


006021 




SSBrRSS 


SKIP IF ABORT NOT ALLOWED 


0075 


57152 


050500 




CPA B377 


CHECK FOR A KEY STRUCK 


0076 


57153 


027157 




JMP TT18 


NO INPUT, CONTINUE ON 


^77 


57154 


002400 




CLA 




0078 


57155 


070312 




STA T35F2 


CLEAR CONTINUEING OUTPUT FLAG 


0079 


57156 


070276 




STA T353T 


SET CONSOLE STATUS TO IDLE 


0080* 












0081 


57157 


060074 


TT18 


LDA TCNT 


GET # OF CHARS LEFT, 


0082 


57160 


001265 




RAL,CLE,ERA 


COPY CRLF BIT INTO E, 


0083 


57161 


002002 




SZA 


ANY CHARS LEFT? 


0084 


57162 


027212 




JMP TT5 


YES»-*GO OUTPUT NEXT OWE, 


0085 


57163 


002040 




SEZ 


NO»*WANT CRLF? 


0086 


57164 


027176 




JMP TT6 


NQ*.GQ RESET FOR INPUT, 


0087 


57165 


072651 




STA TOG 


SET UP OUTPUT OF CRLF. 


0088 


57166 


060362 




LOA ,+3 


3 CHARS WITH 


0089 


57167 


031027 




IOR BIT15 


no crlf following. 


0090 


57170 


070074 




STA TCNT 




0091 


57171 


062652 




LDA TAOR 


KEEP PRINT/PUNCH BIT, 


0092 


57172 


011027 




AND BIT15 




0093 


57173 


033321 




IOR TTXCP 




0094 


57174 


072652 




STA TADR 




0095 


57175 


027157 




JMP TT18 




0096* 












0097* 


END OF 


: OUTPUT' 


PRESET FOR INPUT, 




0098* 












0099 


57176 


070074 


TT 6 


STA TCNT 


SET COUNTER TO SAY NO CHARS IN, 


0100 


57177 


070311 




STA T35F1 


SET FLAG TO SAY INPUT. 


0101 


57200 


060222 




LDA B160K 


get control bits for Input. 


0102 


57201 


072642 




STA T8ITS 


SAVE, 


0103 


57202 


102612 


TT 8 


OTA ?SC 


OUTPUT TO CONSOLE. 


0104 


57203 


062650 


TT10 


LDA TTE 


RESTORE REGISTERS, 


0105 


57204 


001600 




ELA 




0106 


57205 


062646 




LDA TTA 




0107 


57206 


066647 


• 


LDB TT8 




0108 


57207 


103712 




STC ?SC,C 


ENABLE DEVICE, 


0109 


57210 


102100 




STF 


ENABLE INTERRUPT, 


0110 


57211 


127133 




JMP ?TT2,I 


EXIT. 


0111* 












0112* 


OUTPUT 


r NEXT CHARACT 


ER 
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0113* 

0114 

0115 

0116 

0117 

0116 
0119 

0120 
0121 
0122 
0123 
0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133* 

0134* 

0135* 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151*' 

0152* 

0153 

0154 

0155* 

0156 

0157 

0158 

0159 

0160 

0161 

0162* 

0163* 

0164* 

0165 

0166 

0167 

016e 



67212 
57213 
57214 
57215 
57216 
57217 
57220 
57221 
57222 
57223 
57224 
57225 
57226 
57227 
57230 
57231 
57232 
57233 
57234 



003400 
040074 
070074 
066652 
062643 
005275 
062644 

072642 

102612 
160001 
066651 
004010 
036652 
006011 
001727 
036651 
010474 
030476 
027202 



TTb 



TT15 



CCA 
AOA 
STA 
LOB 
LDA 
RBL 
LOA 
STA 
OTA 
LOA 
LOB 
SLB 
ISZ 
SLB 
ALF 

ISZ 
AND 
IOR 
JMP 



TCNT 
TCNT 
TADR 
B120K 
,CLE#3LB, 
B130K 
TBITS 
?SC 

1,1 
TOG 

TADR 
,RSS 
,ALF 

TOG 

B177 

B200 

TT8 



CHARACTER HAS BfcEN INPUT. 



57235 
57236 
57237 
57240 
57241 
57242 
57243 
57244 
57245 
57246 
57247 
57250 
57251 
57252 



060312 
102401 

000010 
027203 
102512 
010474 
007400 
050371 
027203 
050474 
027203 
002002 
050402 
027203 



TTi7 



LOA 
MIA 
SLA 
JMP 
LIA 
AND 
CCB 
CpA 
JMP 
CPA 
JMP 
SZA 
CPA 
JMp 



T35F2 
1 

TT10 

?SC 

B177 

.*12B 

TT10 
B177 

TT10 

.♦23B 
TT10 



TEST Fqr 'CONTROL X' 

CPA 



57253 050407 

57254 027310 



57255 
57256 
57257 
57260 
57261 
57262 



052645 
027276 
050374 
074312 
050374 
074313 



, + 30B 
JMP TT11 



CPA BKSPC 
JMP TT12 
CPA ,*15B 
ST B T 35F2 
CPA ,*15B 
STB T35F3 



DECREMENT 
COUNTER. 

GET POINTER TO OUTPUT BUFFER, 
GET BITS FOR PRINT ONLY, 
ERB TEST & CLEAR BIT 15 OF B. 
GET PRINT/PUNCH BITS. 
SAVE CONTROL BITS, 
OUTPUT TO DEVICE. 
GET WORD CONTAINING CHARACTER, 
GET LEFT/RIGHT TOGGLE, 
IF RIGHT CHARACTER* 

BUMP POINTER. 
IF LEFT CHARACTER, 

POSITION ON RIGHT, 
REVERSE TOGGLE SENSE, 
KEEP BITS 6*0 AND 

SET BIT 7 t 
GO OUTPUT CHARACTER, 



IGNORE CHARACTER IF T35F2 IS SET 
OR SWITCH IS SET, 



GET CHARACTER IN At 

PREPARE •! IN B, 

IGNORE l¥, RUBoUT# NULL* XQFF s 



NOW INSERT CHARACTER IN BUFFER, 



57263 064074 

57264 054466 

57265 027203 

57266 004065 



LDB TCNT 
CPB .72 
JMP TT10 
CLE, ERB 



TEST FOR *+* 

TEST FOR CR„ 

8 ET COMMUNICATION FLAG, 



GET COUNT IN B, 
DON'T IF BUFFER IS FULL 

MOVE LEFT/RIGHT BIT TO E, AND 
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0169 

0170 
0171 

0172 

0173 

0174 

0175 

0176* 

0177* 

0178* 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189* 

0190* 

0191* 

0192 

0193 

0194 

0195 

0196 

0197 

0198 
0199 

0200 
0201 
0202 
0203 



57267 
57270 
57271 

57272 
57273 
57274 

57275 



044303 
002041 
001737 
130001 
034074 
170001 
027203 



TT16 



AqB T35B1 
S£Z,RSS 
ALF,SLA#ALF 
IOR 1,1 
ISZ TCNT 
STA 1,1 
JMP TT10 



HANDLE BACKSPACE, 



57276 
57277 

57300 
57301 
57302 
57303 
57304 
57305 
57306 
57307 



064074 
006003 
027203 
044356 
074074 
004065 
044303 
160001 
010316 
027274 



TT12 



LOB 

SZB, 

JMP 

AOB 

STB 

CLE, 

ADB 

LDA 

AND 

JMP 



TCNT 

RSS 

TT10 

TCNT 

ERB 

T35B1 

1,1 

HIMSK 
TT16 



* HANDLE 'CONTROL X» 



57310 
57311 
57312 
57313 
57314 
57315 

57316 
57317 

57320 
57321 
57322 
57323 



074311 
002400 
070074 
072652 
062643 
072642 
102612 
062641 
027232 
057322 
011415 
005000 



TTll 



TTYED 
TTXCP 



STB 
CLA 
STA 
STA 
LDA 
STA 
OTA 
LDA 
JMP 
DEF 
OCT 
OCT 



T35F1 

TCNT 

TADR 

B120* 

TBITS 

?SC 

RVRSL 

TT15 

* + l 

011415 

005000 



compute address of destination, 
left/right test, 

LEFT. 

RIGHT, 

BUMP COUNTER, 

STORE IN BUFFER, 
GO EXIT. 



GET CHARACTER COUNT 
IGNORE IF NO CHARS YET, 

GET NEW TCNT, 

CLEAR RIGHT HALF OF NEW DESTIN, 
ATlON. 



SET OUTPUT FLAG, 

SET TCNT FOR CRLF AFTER »\% 

SET FOR NO PUNCHING, 

SET FOR PRINT ONLY, 



GO OUTPUT "\» 



X-QFF CR 
LF 
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020S SUP 

0206* the teletype tables contain in core information for system users, 

0207* each of the 32 users has 1 table, containing the following 

0208* entries; 

0209* (?flag must be first, and 7cloc through ?plev must 

0210* be contiguous.) 



0212 00000 



0214* 
0215* 
0216* 
0217* 
0218* 
0219* 
0220* 
0221* 
0222* 
0223* 
0224* 
0225* 
0226* 
0227* 
0226* 

0230 

0232* 

0234 

0236* 

0238 

0240* 



7FLAG EQU 

CONTAINS ALL BIT FLAGS FOR USER 



TERR 

CFLAG 

HFLAG 

TApEp 

UNABT 

OUTWT 
C0M14 
ABTRY 
OFCHK 
CHNFG 
PUALT 

MBuST 



e 0001 

» 0002 

« 0004 

■ 0010 
a 0020 
s 0040 
» 0100 
a 0200 
« 0400 
« 1000 

S £000 

■ 4000 



TAPE ERROR 
COMPILE MODE 
HELLO IS RUNNING 
USER IN TAPE MODE 
UNABLE TO ABORT 
OUTPUT BUFFER FULL 
2114 COMMUNICATION 
ABORT ATTEMPT 
DIRTY FIlES CHECK 
CHAIN RUNNING 
PROGRAM UNALTERED 

MBySY positive 



00001 



00002 



00004 



0242 00005 

0244* 

0246 00006 

0248* 

0250 00011 

0252* 

0254 00013 

0256* 

0256 00014 

0260* 



?TNUM EQU ?FLAG*1 

TELETYPE U IN BITS 12*8, 
?DISC EQU ?TNUM+i 

DISC ADDRESS OF THIS USER'S SWAP AREA 
?PpOG Equ ?DIsC+2 

POINTS TO LAST USED WORD q\F CORE PROGRAM, 
?ID EQU ?PROG+l 

USER ID. 
?NAME EQU ?ID*1 

8 CHAR PROGRAM NAME 
7TIME EQU 7NAME+3 

STARTING TIME 
7CL0C EQU 7TIME+2 

USER'S TIMEOUT CLOCK, 
7RSTR EQU 7CLoC+l 

RESTART ADDRESS FOR SUSPENDED PROGRAMS, 
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0262 


00015 


0264* 
0265* 




0267 


00016 


0269* 




0271 


00017 


0273* 
0274* 




0276 


00020 


0278* 

0279* 

0280 

0281* 

0282* 


00021 



?stat equ ?RSTR+1 

USER STATUS— WHEN ON Q INDICATED PROGRAM TYPE! 
WHEN NOT ON INDICATED REASON WHy t 

?LINK EQU 1STAT+1 

POINTS TO LINK POSITION OF NEXT ENTRY ON QUEUE § 

?PLEV EQU 7LINK+1 

FOR PROGRAMS ON q, CONTAINS PRIORITY LEVEL, FOr 
SUSPENDED PROGRAMS ConTAInS PROGRAM TfpE. 

?RTIM EQU ?PLEV*1 

RESPONSE TIME FOR ENTER STATEMENT 
?TeMP EQU ?RTIM*1 

TEMPORARIES FOR LIBRARy ROUTINES 
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0284 


57324 


000000 


TTY00 


OCT 





0285 


57325 


000000 




OCT 





0286 


57326 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0287 


57344 


000000 




OCT 


0,0,0,0 


0288* 












0289 


57350 


000000 


TTY01 


OCT 





0290 


57351 


000400 




OCT 


400 


0291 


57352 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0292 


57370 


000000 




OCT 


0,0,0,0 


0293* 












0294 


57374 


000000 


TTY02 


OCT 





0295 


57375 


001000 




OCT 


1000 


0296 


57376 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0297 


57414 


000000 




OCT 


0,0,0,0 


0298* 












0299 


57420 


000000 


TTy03 


OCT 





0300 


57421 


001400 




OCT 


1400 


0301 


57422 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0302 


57440 


000000 




OCT 


0,0,0,0 


0303* 












0304 


57444 


000000 


TTY04 


OCT 





0305 


57445 


002000 




OCT 


2000 


0306 


57446 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0307 


57464 


000000 




OCT 


0,0,0,0 


0308* 












0309 


5747P 


000000 


TTY05 


OCT 





0310 


57471 


002400 




OCT 


2400 


0311 


57472 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0312 


57510 


000000 




OCT 


0,0,0,0 


0313* 












0314 


57514 


000000 


TTY06 


OCT 





0315 


57515 


003000 




OCT 


3000 


0316 


57516 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0317 


57534 


000000 




OCT 


0,0,0,0 


0318* 












0319 


57540 


000000 


TTY07 


OCT 





0320 


57541 


003400 




OCT 


3400 


0321 


57542 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0322 


5756PI 


000000 




OCT 


0,0,0,0 


0323* 












0324 


57564 


000000 


TTY08 


OCT 





0325 


57565 


004000 




OCT 


4000 


03 2 6 


57566 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0327 


57604 


000000 




OCT 


0,0,0,0 


0328* 












0329 


57610 


000000 


TTY09 


OCT 





0330 


57611 


004400 




OCT 


4400 


0331 


57612 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0332 


57630 


000000 




OCT 


0,0,0,0 


0333* 












0334 


57634 


000000 


TTY10 


OCT 





0335 


57635 


005000 




OCT 


5000 


0336 


57636 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0337 


57654 


000000 




OCT 


0,0,0,0 


0338* 












0339 


57660 


000000 


TTYll 


OCT 
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0340 


57661 


005400 


0341 


57662 


000000 


0342 


57700 


000000 


0343* 






0344 


57704 


000000 


0345 


57705 


006000 


0346 


57706 


000000 


0347 


57724 


000000 


0348* 






0349 


57730 


000000 


0350 


57731 


006400 


0351 


57732 


000000 


0352 


57750 


000000 


0353* 






0354 


57754 


000000 


0355 


57755 


007000 


0356 


57756 


000000 


0357 


57774 


000000 


0358* 






0359 


60000 


000000 


0360 


60001 


007400 


0361 


60002 


000000 


0362 


60020 


000000 


0363* 






0364 


60024 


000000 


0365 


60025 


010000 


0366 


60026 


000000 


0367 


60044 


000000 


0368* 






0369 


60050 


000000 


0370 


60051 


010400 


0371 


60052 


000000 


0372 


60070 


000000 


0373* 






0374 


60074 


000000 


0375 


60075 


011000 


0376 


60076 


000000 


0377 


60114 


000000 


0378* 






0379 


60120 


000000 


0380 


60121 


011400 


0381 


60122 


000000 


0382 


60140 


000000 


0383* 






0384 


60144 


000000 


0385 


60145 


012000 


0386 


60146 


000000 


0387 


60164 


000000 


0388* 






0389 


60170 


000000 


0390 


60171 


012400 


0391 


60172 


000000 


0392 


60210 


000000 


0393* 






0394 


60214 


000000 


0395 


60215 


013000 



OCT 5400 

OCT 0, 0,0,0,0, 0r 0* 0*0*0* 0#0#0*0 

OCT 0,0,0,0 

TTY12 OCT 

OCT 6000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY13 OCT 

OCT 6400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY14 OCT 

OCT 7000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY15 OCT 

OCT 7400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY16 OCT 

OCT 10000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY17 OCT 

OCT 10400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY18 OCT 

OCT 11000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY19 OCT 

OCT 11400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTY20 OCT 

OCT 12000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 

TTy2l OCT 

OCT 12400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0,0 



TTY22 



OCT 
OCT 13000 
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0396 


60216 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0397 


60234 


000000 




OCT 


0,0,0,0 


0396* 












0399 


60240 


000000 


TTy23 


OCT 





0400 


60241 


013400 




OCT 


13400 


0401 


60242 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0402 


60260 


000000 




OCT 


0,0,0,0 


0403* 












0404 


60264 


000000 


TTY24 


OCT 





0405 


60265 


014000 




OCT 


14000 


0406 


60266 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0487 


60304 


000000 




OCT 


0,0.0,0 


0408* 












0409 


60310 


000000 


TTy25 


OCT 





0410 


603li 


014400 




OCT 


14400 


0411 


60312 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0412 


60330 


000000 




OCT 


0,0,0,0 


0413* 












0414 


60334 


000000 


TTY26 


OCT 





0415 


60335 


015000 




OCT 


15000 


0416 


60336 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0417 


60354 


000000 




OCT 


0,0,0,0 


0418* 












0419 


60360 


000000 


TTY27 


OCT 





0420 


60361 


015400 




OCT 


15400 


0421 


60362 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0422 


60400 


000000 




OCT 


0,0,0,0 


0423* 












0424 


60404 


000000 


TTY28 


OCT 





0425 


60405 


016000 




OCT 


16000 


0426 


60406 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0427 


60424 


000000 




OCT 


0,0,0,0 


0428* 












0429 


60430 


000000 


TTY29 


OCT 





0430 


60431 


016400 




OCT 


16400 


0431 


60432 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0432 


60450 


000000 




OCT 


0,0,0,0 


0433* 












0434 


60454 


000000 


TTY30 


OCT 





0435 


60455 


017000 




OCT 


17000 


0436 


60456 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0437 


60474 


000000 




OCT 


0,0,0,0 


0436* 












0439 


60500 


000000 


TTY31 


OCT 





0440 


60501 


017400 




OCT 


17400 


0441 


60502 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0442 


60520 


000000 




OCT 


0,0,0,0 


0443 


60524 




TTY32 


EQU 


* 



0445* THE QUEUE ALWAYS CONTAINS AT LEAST ONE ENTRY, A DUMMY ENTRY, IT 
0446* IS POINTED TO BY THE LAST ACTUAL ELEMENT, AND POINTS TO THE FIRST 
0447* WHEN THE QljEuE IS OTHERWISE EMPTy, THE DuMMy LINK POINTS TO 
0448* ITSELF, 
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0450* 

0451** 

0452*** 

0453** 

0454* 

0455* 

0456* 

0457* 

0458* 



JETTISON PORT 



THIS ROUTINE IS CALLED WHEN A DISC TRANSFER TO OR FROM A 
USER'S SWAP TRACK HAS FAILED, THE ROUTINE SETS THE USER'S 
PORT TO AN UNAVAILABLE STATUS AND CLEARS HIS FuSS TABLE. 
ENTER WITH TTY TABLE ADDRESS IN B t 



0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
04s5 
0486 
0487 
0488 
0489 
0490 
0491 
0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500* 

0501* 

0502* 

0503 

0504 



60524 
60525 
60526 
60527 
60530 
60531 
60532 
60533 
60534 
60535 
60536 
60537 
60540 
60541 
60542 
60543 
60544 
60545 
60546 
60547 
60550 
60551 
60552 
60553 
60554 
60555 
60556 
60557 
60560 
60561 
60562 
60563 
60564 

60565 
60566 
6056 7 
60570 
60571 
60572 
60573 



000000 

064272 
076624 

116623 
066624 
044356 
060353 
170001 
044347 
002400 
070255 
170001 
044352 
170001 
060612 
070204 
060666 
064700 
114206 
017234 
066624 
044342 
160001 
001727 
072624 
001720 
040676 
072625 
002400 
064450 
172625 
036625 
006006 

026562 
060666 
064676 
114206 
017234 
062624 
017477 



JLTPT NOP 
LDB 

STB 

JSB 

LDB 

ADB 

LDA 

STA 

ADB 

CLA 

STA 

STA 

ADB 

STA 

LDA 

STA 

LDA 

LDB 

JSB 

JSB 

LDB 

ADB 

LDA 

ALF, 

STA 

ALF, 

ADA 

STA 

CLA 

LDB 
STA 

ISZ 

INB# 

JMP 

LDA 

LDB 

JSB 

JSB 

LDA 

JSB 



MLINK+1 TAKE THIS 

JETT1 USER OFF 

JDEQU#I THE QUEUE 

JETTl 

„+?STAt-?LINK »> STATUS WORD 

XPUN SET PORT TO 

B,I UNAVAILABLE 

,*?ID*?STAT 



MAIN 

B.I 

, + ?FLAG< 

B,I 

M2000 

MWORD 

FUSS 

LIBdI 

DISCZ,I 

SICK 

JETTl 

,*?TNUM< 

B/I 

ALF 

JETTl 

ALS 

LIBD 

JETT2 

M32 

jETT2,I 

JETT2 

SZB 

**3 

FUSS 

LIBD 

DISCZ,I 

SICK 

JETTl 

TCRIR 



SAY NOBODY IN CORE 
CLEAR ID 
?ID 

CLEAR FLAGS WORD 
READ IN 

THE FUSS TABLE 



IT'S STUCK ON THE P|8C| Si VE UP 
GET TABLE POINTER AGAIN 
>?LINK 

GET THE PORT NUMBER 

SAVE IT 
TIMES 32 



ZERO OUT 

THIS CLOD'S PART 
OF THE FUSS 
TABLE 



WRITE THE FUSS 

TABLE BACK TO 
THE DISC 
DARN. IT'S STUCK IN CORE. 
GET PORT NUMBER 

AND GO INFORM VICTIM 



CROAK 



ALSO INFORM THE SYSTEM OPERATOR WHAT WE'VE DqnE. 



60574 103100 

60575 114200 



CLF 

.JSB GMQBP # I 



GO GET POINTER TO MESSAGE Q 
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0505 


60576 


126622 




JMP JSCHl, I 


NO ROOM, SORRY 


0506 


60577 


072625 




STA JETT2 


save pointer to available 


0507 


60600 


062624 




IDA JETT1 


get port number 


0508 


60601 


006400 




CLB 




0509 


60602 


100400 




OIV .+10 


CONVERT 


0510 


60604 


001727 




ALF,ALF 


IT 


0511 


60605 


040001 




ADA B 


TO 


0512 


60606 


040530 




ADA ASC00 


ASCII 


0513 


60607 


072634 




STA JETNO 


INSERT IT INTO THE MESSAGE 


0514 


60610 


062626 




LDA JETMS 


GET ADDRESS OF 


0515 


60611 


072624 




STA JETT1 


STUFF TO BE MOVED 


0516 


60612 


064337 




LOB .-16 


MOVE 


0517 


60613 


162624 


JET1 


LDA JETT1,I 


IT 


0518 


60614 


172625 




STA JETT2*I 


INTO 


0519 


60615 


036624 




ISZ JETT1 


THE 


0520 


60616 


036625 




ISZ JETT2 


MESSAGE 


0521 


60617 


006006 




INB f SZB 


QUEUE 


0522 


60620 


026613 




JMP JET1 


BUFFER 


0523 


60621 


126622 




JMP JSCh1#I 


DONE, RETURN TO SChEDULAR 


0525 


60622 


070360 


JSCHl 


DEF SCH1 




0526 


60623 


071610 


JDEQU 


DEF DEQUE 




0527 


60624 


000000 


JETT1 


BSS 1 




0528 


60625 


000000 


JETT2 


BSS'l 


., 


0529 


60626 


060627 


JETM3 


DEF *+l 




0530 


60627 


000036 




DEC 30 




0531 


60630 


006412 




OCT 6412 


CR LF 


0532 


60631 


050117 




ASC 3, PORT # 




0533 


60634 


000000 


JETNO 


BSS 1 




0534 


60635 


020115 




ASC 9, HADE 


UNAVAILABLE, 


0535 


60646 


006412 




OCT 6412 


CR LF 
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0002* 
0003* 

0004* 
0005* 

0006* 
0007* 
0008* 
0009* 
0010* 

0011* 
0012* 
0013* 
0014* 
0015* 

0016* 
0017* 
0016* 
0019* 
0020* 
0021* 
0022* 
0023* 
0024* 
0025* 
0026* 
0027* 
0028* 
0029* 

0031 
0032 
0033 
0034 
0035 
0036 
0037 
003s 
0039 
0040 
0041 
0042 
0043 

0044 
0045 

0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 



THE SALVG ROUTINE Is CALLED WHEN A SYSTEM TRACK WITH VITAL 
INFORMATION, SUCH AS A DIRECTORY OR IDT TRACK, CANNOT BE 
WrITTEn BACK TO ITS ASSIGNED DISC ADDrESS, BUT WHEn RECOVERY 
MIGHT BE POSSIBLE IF THE INFORMATION CAN BE SAVED. SALVG 
ASSUMES THE FOLLOWING POINTERS HAVE BEEN SET; 

LIBUS « STARTING CORE ADDRESS OF THE TRACK 
MWORD * NEGATIVE LENGTH OF THE TRACK IN CORE 
STDAP * ADDRESS OF A DOUBLE WORD CONTAINING 
THE TRACK'S DISC ADDRESS 

SALvG READS THE ADT IN PIECES INtO THE UPPER 2K OF THE USER 
AREA AND SEARCHES FOR AN ENTRY LARGE ENOUGH TO HOLD THE TRACK. 
IF AN ENTRY IS FOUND, THE TRACK IS WRITTEN TO DISC AND ITS NEW 
ADDRESS IS STORED InTq THE DqUBlE WqRD LOCATION PORTED TO BY 
STDAP (SYSTEM TABLE DISC ADDRESS POINTER.) THE ADT 18 THEN 
UPDATED BY RETURNING SPACE For ThE QL& TRACK AND CHAINING SPACE 
FOR THE NEW ONE. 

SALvG CALLS CLNOt TO PrINt ANy REMAINING SYSTEM MESSAGES AND 
AN INDICATION OF SALVG'S SUCCESS OR FAlLUREf AND THEN HALTS. 
THE THREE POSSIBLE HALTS HAVE THE FqLLqWInG mEAnInGS* 

328 - RECOVERY POSSIBLE BY BOOTING UP FROM DI8C 
33B - RECOVERY POSSIBLE By LqADING Fr M MAG TApE 
34B m RECOVERY IS OUT OF THE QUESTION 



60647 000000 SALVG NOP 

60650 002400 CLA BLOCK 

60651 170632 STa DCLCWI CLOCK 

60652 060077 LDA STDAP SAVE ADDRESS 

60653 073215 STA SAlAd POINTER *ND 

60654 060204 LDA MWORD DISC LENGTH OF 

60655 073216 STA SALLN TRACK TO BE SALVAGED 

60656 104200 DLD STDAP, I SAVE DISC ADDRESS 
60660 104400 DST SDADR FOR FADT ROUTINE 

60662 060347 LDA .-8 INITIALIZE ADT 

60663 073217 STA sCNTl TRACK CoUNTEr 

60664 063221 LDA SADTP INITIALIZE ADT 

60665 073222 SAL01 STA sADTA ADDRESS POINTER 

60666 040361 ADA .+2 INITIALIZE ADT 

60667 073223 STA SADTL LENGTH POINTER 
6067^ 104200 DLD SADTA, I INITIALIZE 
60672 104400 DST SADA#I CURRENT DISC 

60674 163223 LDA SADTL* I ADDRESS AND 

60675 073227 STA SADL LENGTH 

60676 067227 SAL02 LDB SADL B 1 .# OF WORDS LEFT 

60677 006003 SZB,RSS ANY MORE ON THIS TRACK? 

60700 026744 JMP SAL05 NO 

60701 047231 ADB D1536 REDUCE COUNT BY 6 BLOCKS 

60702 006020 SSB ANY LEFT? 

60703 026706 JMP SAL03 YES 

60704 063227 LDA SADL NO, GET ORIGINAL LENGTH 

60705 006401 CLB,RSS SET ADJUSTED LENGTH TO zERO 
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0056 
0059 
0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069* 

0070* 

0071* 

0072 

0073 

0074 

0075 

0076 

m77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0068* 

0089*i 

0090* 
0091 

0092 

0093 

0094 

0095* 

0096*i 

0097* 

0098 

0099 

0100 

0101 

0102 

0103 



60706 063230 SAL03 LDA M1536 MAXIMUM LENGTH FOR READ 

60707 070204 STA MfcORD SET DISC LENGTH WORD 
60710 077227 STB SADl SAVE ADJUSTED TRACK LENGTH 
607H 007400 CCB COMPUTE ADT 

60712 100400 DIV .+3 ENTRY COuNT 

60714 073220 STA 8CNT2 AND SAVE IT 

60715 063224 LDA SADA ■> DISC ADDRESS 

60716 064674 LDB L8192 « CORE ADDRESS 

60717 045027 ADB BIT15 ADD READ BIT 

60720 114206 JSB DISCZjI READ ADT CHUNK 

60721 026750 JMP DOOM DISC FAILURE • FLUSH SYSTEM 

CHECK ADT FOR A LARGE ENOUGH ENTRY 

60722 064674 LDB L8l92 •> START OF TABLE 

60723 044361 SAL04 ADB ,*2 «> LENGTH WORD 

60724 160001 LDA B,I « LENGTH 

60725 040450 ADA M32 IS THIS ENTRY LARGE ENOUGH 

60726 002021 SSA,R$S FqR THE SYSTEM TRACK? 

60727 026756 JMP SAL06 YES 

60730 006004 INB 

60731 037220 ISz SCNT2 NO, ANY ENTRIES LEFT? 

60732 026723 JMP SAL04 YES 

60733 104200 DLD SADA, I ADJUST 

60735 000040 CLE DISC 

60736 044365 ADB ,+6 ADDRESS 

60737 002040 SEZ FOR NEXT 

60740 002004 INA 6 BLOCK 

60741 104400 DST SADA, I CHUNK 
60743 026676 JMP SAL02 CHECK NEXT CHUNK 

ADJUST POINTERS FOR ChECkinG NEXT ADT TRACK 



60744 063222 

60745 040362 

60746 037217 

60747 026665 



SAL05 LDA sADTA 

ADA ,+3 

ISZ SCNT1 

JMP SAL01 



THIS SYSTEM IS BEYOND HELP 
60750 103100 DOOM CLF 



60751 067156 

60752 017412 

60753 062647 

60754 102034 

60755 026754 



LDB SALFA 
JSB CLNOT 
LDA SALVG 

HLT DEATH+34B 
JMP **1 



ANY TRACKS L^Ft? 
YES 



GET ADDRESS OF FAILURE MESSAGE 

PRINT MESSAGES 

GET THE CALLING ADDRESS 

EXPIRE 

NO CHANCEj 



0105* 

0106** 

0107* 

0108 

0109 

0110 

0111 

0112 



60756 
60757 
60760 

60761 
60763 



NEW TRACK HAS BEEN FOUND 
SAL06 



170001 

044355 
077222 
104200 
104400 



STA 

ADB 
STB 
DLD 
DST 



B,I 
.-2 

SADTA 
B,I 
SALAD, I 



UPDATE ENTRy»S LENGTH WORD 
»> DISC ADDRESS 
SAvE POINTER 

PUT NEW DISC ADDRESS IN SALVAGED 
TRACKiS CORE RESIDENT TABLE 
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0113 


60765 


000040 


CLE 




UPDATE 


0114 


60766 


044417 


ADB 


f +32 


ENTRY'S 


0115 


60767 


002040 


SEZ 




DISC 


0116 


60770 


002004 


INA 




ADDRESS 


0117 


60771 


104400 


DST 


SADTA,I 


WORDS 


0113 


60773 


060204 


IDA 


MWORD 


SAVE LENGTH OF ADT CHUNK 


0119 


60774 


073227 


STA 


SADL 


That entry was found on 


0120 


60775 


063216 


LDA 


3ALLN 


SET TRANSFER LENGTH OF 


0121 


60776 


070204 


STA 


MWORD 


TRACK TO BE SALVAGED 


0122 


60777 


063215 


LDA 


SALAD 


■> NEW DISC ADDRESS FqR TRACK 


0123 


61000 


064676 


LDB 


LIBD 


■> CORE LOCATION 




61001 


114206 


J SB 


DISCZ-I 


SALVAGE THE TRACK 


0125 


61002 


026750 


JMP 


DOOM 


DANG IT-l TUBE THIS SYSTEM 


0127* 












0128** t r ACK HAS 


BEEN SALVAGED - NOw 


UPDATE ADt 


0129* 












0130 


61003 


063227 


LDA 


SADL 


SET TRANSFER LENGTH 


0l3l 


61004 


070204 


STA 


MWORD 


OF UPDATED ADT CHUNK 


0132 


61005 


063224 


L DA 


SADA 


*> DISC ADDRESS OP ADT CHUNK 


0133 


61006 


064674 


LDB 


L8192 


« CORE ADDRESS 


0134 


61007 


114206 


JSB 


DISCZ,I 


WRITE TO DISC 


0135 


61010 


027035 


JMP 


SPSUC 


BLEW IT 


0136 


61011 


117232 


JSB 


5FADT,I 


FIND ADT OF SALVAGED TRACK 


0137 


61012 


160043 


LDA 


SDLPR*I 


SET TRANSFER 


0138 


61013 


070204 


STA 


MWOrD 


LENGTH WOrD 


0139 


61014 


060044 


LDA 


SDAPR 


«> ADT DISC ADDRESS 


0140 


61015 


064700 


LDB 


LIBDI 


READ IN 


0141 


61016 


114206 


JSB 


DISCZ,I 


ADT TRACK 


0142 


61017 


027035 


JMP 


SPSUC 


MORE PROBLEMS 


0143 


61020 


060417 


LDA 


.♦32 


SET AMOUNT TO 


0144 


61021 


070045 


STA 


SDALN 


BE RETURNED 


0145 


61022 


117233 


JSB 


8RBAT,I 


RETURN THE BLOCKS 


0146 


61023 


060044 


LDA 


SDAPR 


WRITE THE 


0U7 


61024 


064676 


LDB 


LIBD 


UPDATED TRACK 


0148 


61025 


114206 


JSB 


DISCZ,I 


TO THE DISC 


0149 


61026 


027035 


JMP 


SPSUC 


FOUR OUT OF FIVE AIN'T 


0150* 










BAD FOR A SICK DISC 


0151* 












0152** THE ADT HAS BEEN UPDATED 




0153* 












0154 


61027 


103100 


CLF 







0155 


61030 


067043 


LDB 


3ALSU 


LOAD ADDRESS OF COMPLETE SUCC 


0156 


61031 


017412 


JSB 


Clnot 


OUTPUT MESSAGES 


0157 


61032 


062647 


LDA 


3ALVG 


LOAD CALLING ADDRESS 


015$ 


61033 


102032 


HLT 


DEATH+32B 


KICK OFF 


0159 


61034 


027033 


JMP 


*-t 




0161* 












0162** THE APT COULD NOT BE UPDATED 




0163* 












0164 


61035 


103100 


SPSUC CLF 







0165 


61036 


067111 


LDB 


SALPS 


LOAD ADDRESS OF PARTIAL SUCCE 


0166 


61037 


017412 


JSB 


CLNOT 


PRINT MESSAGES 


0167 


61040 


062647 


LDA 


SALVG 


LOAD CALLING ADDRESS 
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0168 61041 102033 

0169 61042 027041 



HLT DEATH+33B DIE 
JMP *~1 



0171 61043 061044 SALSU DEF **1 

0172 61044 000110 DEC 72 

0173 61045 006412 OCT 6412 

8174 6^46 <*465i7 ASC 17, MOVED SYSTEM TRACK, EMERGENCY DI8 

0175 61067 041415 OCT 41415 C»CR 

0176 61070 005123 OCT 5123 LF*S 

0177 61971 046105 ASC l6,LEEP AND THEN BOOT UP PROM DISC. 

0179 61111 061112 SALPS DEF * + l 

0180 61112 000106 DEC 70 

0181 61113 006412 OCT 6412 

0182 6HU 046517 ASC lb#MOVED SYSTEM TRACK, EMERGENCY 

0183 61133 006412 OCT 6412 

0184 61134 046501 ASC 18, MAG TAPE SLEEP AND RELOAD FROM jkP£ 9 

0186 61156 061157 sAlFA DEF *+l 

0187 61157 000072 DEC 58 

0188 61160 006412 OCT 6412 

0189 6H6l 041501 ASC 12, CAN'T WRITE 

0190 61175 02701b OCT 27015 # „CR 

0191 6U76 005122 OCT 5122 L,F«R 

0192 61177 042503 A$C l4,EC0yE R Y <>UT 



SYSTEM TRACK 



of the Question, 



0194 

0195 

0196 

0197 

0198 
0199 

0200 
0201 

0202 
020 3 

0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 



61215 
6*^*6 
61217 
61220 
61221 
61222 
61223 
61224 
61225 
6l22 7 
61230 
61231 
00043 
00044 
00045 
0004$ 
61232 
61233 



000000 
000000 

000000 
000000 
000116 
000000 

000000 
061225 

000000 
000000 

175000 
003000 



072357 

072415 



SALAD 
S ALLN 

SCNT1 
SCNT2 
SADTP 

SADTA 
SADTL 
SADA 

SADL 

M1536 

01536 

8DLPR 

SDAPR 

SDALN 

SDADR 
SFADT 
SRBAT 



BSS 
BSS 
OCT 
OCT 
DEF 
BSS 
BSS 
DEF 
BSS 
BSS 
DEC 
DEC 
EQU 
EQU 
EQu 
EQU 
DEF 
DEF 



1 
1 





ADTAT 

1 

1 

**1 

2 

1 

-1536 

1536 

LTEMP+ll 

LTEMP+12 

LTEMP+13 

LTEMP+14 

FADT 

RBADT 



■» ADDR, OF TRACK TO BE SALVAGED 
« LENGTH OF TRACK TO BE SALVAGED 



*> ADT TABLE 

ADT DISC ADDRESS POINTER 

ADT TRACK LENGTH POINTER 

«> address of current adt chunk 

« ADT TRACK REMAINDER'S LENGTH 



■DLPTR 

« OAP.TR 
« DALEN 

9 DADDR 

»> FIND ADT ROUTINE 

«> RETURN BLOCK TO ADT ROUTINE 
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0213* 
0214* 

0216 

0217 

0216 

0219 

0220 

0221 

0222 

0223* 

0224 

0225 

0226 

0227 

0228 



THIS ROUTINE IS CALLED WHEN THE SYSTEM CANNOT CONTINUE 
OPERATING BUT MAY BE ABLE TO BE RESUSCITATED. 

61234 000000 SICK NOP 



6l23 5 
61236 
61237 
61240 
61241 
61242 



103100 
067243 
017412 
063234 
102033 
027241 



61243 061244 

61244 000073 

61245 006412 

61246 041501 
61271 020122 



CLF DISABLE INTERRUPTS 

LDB sICKm GET ADDRESS OF OPTIMISTIC mESSAG 

JSB CLNOT GO PRINT MESSAGES 

LDA SICK A GETS CALLING ADDRESS 

HLT DEATH+33B CROAK 

JMP *»1 



SlCKM DEF **i 



DEC 59 

OCT 6412 

ASC 19,CA N »T ACCESS SYSTE M $EG m EnT OR TABLE, 

A3C 10, RECOVERY POSSIBLE. 



0230* 
0231* 
0232* 
0233* 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243 

0244 

0245 

024 6 

0247 



THIS ROUTINE IS CALLED WHEN THE SYSTEM CANNOT CONTINUE 
OPERATING AND MAs ALjErED Its TABLEs * H SUCH A WAY THAT 
THEY CONTAIN CONFLICTING INFORMATION AND RESUSCITATION I: 
IMPOSSIBLE, 



61303 
61304 
61305 
61306 
61307 
61310 
61311 

61312 
61313 
61314 
6l31 5 
61340 



000000 
103100 
067312 
017412 
063303 
102034 
027310 

061313 

000063 
006412 
5 1 5 31 
044515 



DEAD 



DEADM 



NOP 
CLF 
LDB 
JSB 
LDA 

HLT 
JMP 

DEF 
DEC 
OCT 
ASC 
ASC 





DEADM 

CLNOT 

DEAD 

DEATH+34B 



DISABLE INTERRUPTS 

GET ADDRESS OF PESSIMISTIC MESAG 

GO PRINT MESSAGES 

A GETS CALLING ADDRESS 

PASS AWAY 



* + l 

51 

6412 

19*SYSTEM TABLES 

6, IMPOSSIBLE, 



INCOMPATIBLE. RECOVERY 



0249* 
0250* 
025I* 

0252* 
0253* 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262* 

0263 

0264 

0265 



THIS ROUTINE IS CALLED WHEN THE SYSTEM HAS BLOWN IT WRITING 
ON THE LOCKED BLOCKS TABLE OF ONE OF THE DISCS, THE SITUATION 
IS SIMILAR TO THOSE WHICH CALL "D£AD% BUT SlNcE LOCKED BLOCKS 
TABLES ArE IMMOrtAL, THE OPErAtOr MUST BE INFORMED THAT ONE 
HAS BEEN DAMAGED. 



61346 
61347 
61350 
61351 
61352 
61353 
61354 

61355 
61356 
61357 



000000 
103100 
067355 
017412 
063346 
102034 

027353 

061356 
000066 
006412 



MDEAD 



MDEDM 



NOP 
CLF 
LDB 
JSB 
LDA 
HLT 
JMP 

DEF 
DEC 
OCT 





MDEDM 

CLNOT 

MDEAD 

DEATH+34B 

*-l 

*♦! 

54 

6412 



DISABLE INTERRUPTS 

GET ADDRESS OF WARNING MESSAGE 

GO PRINT MESSAGES 

A GETS CALLING ADDDRESS 

MUERTO 



0266 61360 046H7 



ASC 16#L0CKED BLOCKS TABLE DESTROYED, 
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0269* THIS ROUTINE SENDS A SYSTEM DEATH MESSAGE TO THE USERS, 

0270* NEXT, IT COMPLETES ANY OUTPUT WHICH HAS BEEN STARTED 

0271* BY THE SYSTEM CONSOLE DRIVER, IT THEN PRINTS ANY MESSAGES 

0272* REMAINING IN THE MESSAGE BUFFER. IF IT IS ENTERED WITH (B) 

0273* NONZERO, IT WILL LAST PRINT THE ASCII STRING WHOSE LENGTH 

0274* IS POINTED TO BY (8) AND WHICH STARTS IN THE WORD FOLLOWING 

0275* THIS LENGTH. 



0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

02g2 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301* 

0302* 

0303* 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318* 

0319* 

0320* 

0321 

0322 

0323 



61412 000000 CLNOT NOP 

61413 002400 CLA BLOCK 

61414 170632 STA DCLCltl CLOCK 

61415 077473 STB CLNB SAVE SPECIAL MESSAGE pOINTlR 

61416 003400 CCA INFORM USERS OF 

61417 017477 JSB TCRIR SYSTEM DEATH 

61420 103100 CLF 

61421 0603H LDA T35Fi WAS SYSTEM CONSOLE DRIVER 

61422 002021 SSA,RSS DOING INPUT OR OUTPUT? 

61423 027442 JMp CL N 1 INPUT, Go CHECK FoR MESSAGES 

61424 102312 SFS ?SC OUTPUT, WAIT FOR CURRENT 

61425 027424 JmP *-l CHARACTER TO BE OUTPUT 

6142 6 16^474 LDA CLADR,I GET CHARACTER POINTER 

61427 000066 CLE,ELA DOUBLE FOR SyCON AND LOSE BIT 15 

61430 167475 LDB CLTOG,! GET LEFURIGHT WORD 

61431 004010 SLB WHERE IS NEXT CHARACTER? 

61432 002004 INA ON THE RIGHT! BUMP POINTRE 

61433 073723 STA SYCBA SAVE POINTER FOR SYCON 

61434 064074 LDB TCNT GET REMAINING CHARACTER COUNT 

61435 077722 STB SYCCC AND STORE FOR SYCON 

61436 067476 LDB ClnIP G^T RETURN ADDRESS 

61437 077656 STB SYCON AND STORE IN SYCON 

61440 163 7 24 LDA SYBIT,I GET CURRENT OUTPUT CONTROL BITS 

61441 027664 JMP SYC3 JUMP INTO MIDDLE OF ROUTINE 

COME HERE TO CHECK FOr MOrE MESSAGES IN QUEUE 

61442 003400 CLN1 CCA ARE THERE MESSAGES 

61443 040304 ADA MSQCT IN THE 

61444 050356 CPA ,•! QUEUE? 

61445 027460 JMP CLN2 NO 

61446 070304 STA MSQCT YES, DECREMENT THE COUNT 

61447 064305 LDB MSQPi BUMP POINTER 

61450 044426 ADB ,+MESLN TO NEXT MESSAGE BUFFER 

61451 054307 CPB MSQND WRAP AROUND? 

61452 064310 LDB M3QBG YES 

61453 074305 STB MSQPI SAVE NEW CURRENT MESSAGE POINTER 

61454 160001 LDA B,I GET CHARACTER COUNT INTO A 

61455 006004 INB POINTER TO FIRST WORD INTO B 

61456 017656 JsB SYCON GO OUTPUT IT 

61457 027442 JMP CLNi CHECK FOR MORE 



COME HERE TO PRINT FINAL SPECIAL MESSAGE 



61460 067473 

61461 006003 

61462 027466 



CLN2 



LDB CLNB 
SZB,RSS 
JMP C|_N3 



GET SPECIAL BUFFER POINTER 

IS THERE A MESSAGE? 

NO 
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0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332* 

0333* 

0334 

0335 

0336 

033; 



61463 160001 I.DA B,i 

61464 006004 INB 

61465 017656 JSB SYCON 

61466 002400 CLN3 CLA 

61467 017656 JSB SYCON 

61470 017656 JSB SYCON 

61471 017656 JSB SYCON 

61472 127412 JMP CLNOT,I 



CLNB BSS 1 

CLADR DEF TAOR 

61475 056651 CLTOG DEF TOG 

61476 061442 CLNIP DEF CLNl 



61473 000000 

61474 056652 



YES, GET CHARACTER COUNT 

BUMP POINTER TO FIRST MES, WORD 

GO OUTPUT IT 

FINALLY, 
OUTPUT 3 

"AGONIZING DEATH* 
CRIF»S AND 
RETURN 



B REG, SAVE WORD 
POINTER TO ?TT35«S CHAR POINTER 
POINTER TO ?TT35«S UFT-RIGHT WD 
RETURN ADDRESS FOR FAKE SYCON Ct 
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0339* THIS ROUTINE IS CALLED TO INFORM ALL USERS THAT THE SYSTEM 

0340* IS GOING DOWN BECAUSE OF A HARDWARE FAILURE OR TO INFORM A 

0341* SINGLE USER THAT HIS PORT IS BEING MADE UNAVAILABLE (BECAUSE 

0342* OF A SWAP TRACK ERROR), It must be entered with the affected 

0343* PORT NUMBER IN A IN THE LATTER CASE OR WITH A*~l TO INFORM 

0344* ALL USERS OF SYSTEM DEATH, 



0346 
0347 

0346 
0349 
0350 
0351 

0352 
0353 

0354 

0355 

0356* 

0357 

0358 

0359 

0360 

0361* 

0362 

0363 

0364 

0365 

0366* 

0367 

0368 

0369 

0370 

0371 

0372 

0373* 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

03 8 1 

0382 

0383 

0384 

0385 

0386* 

0387 

0388 

0389 

0390 

0391 

0392 

0393 



61477 000000 TCRIR NOP 

61500 073647 STA TCRPT 

61501 003002 CMA,SZA 

61502 0275H JMP TCR1 

61503 073647 STA TCRPT 

61504 064167 LDB NPORT 

61505 077650 STB TCRPC 

61506 060417 IDA ,4-32 

61507 067626 LDB TCRSD 

61510 027515 JMP TCR2 

61511 003400 TCRl CCA 

61512 073650 STA TCRPC 

61513 060424 LDA .*37 

61514 067602 LDB TCRPU 

61515 003000 TCR2 CMA 

61516 073651 STA TCRCC 

61517 004066 CLE,ELB 
6152P 077652 STB TCRBA 

61521 060374 LDA ,+15B 

61522 017552 JSB TCROT 

61523 060371 LDA ,4128 

61524 017552 JSB TCROT 

61525 060371 LDA ,+12B 

61526 017552 JSB TCROT 

61527 037651 TCr3 I3Z TCrCC 

61530 002001 RSS 

61531 027543 JMP TCR4 

61532 067652 LDB TCRBA 

61533 037652 ISZ TCRBA 

61534 004065 CLE,ERB 

61535 160001 LDA B,I 

61536 002041 SEZ,RSS 

61537 001727 ALF,ALF 

61540 010474 AND B177 

61541 017552 JSB TCROT 

61542 027527 JMP TCR3 

61543 060374 TCR4 LDA t +15B 

61544 017552 JSB TCROT 

61545 060371 LDA t >12B 

61546 017552 JSB TCROT 

61547 060371 LDA .+12B 

61550 017552 JSB TCrOT 

61551 127477 JMP TCRIR, I 



SAVE PORT NUMBER 

IS THIS A SYSTEM DEATH? 

NO, GO SET UP FOR 1 PORT NEWS 

YES# SET FIRST PORT TO ZERO 

GET COUNT OF PORTS TO GET NEWS 

AND SET IT INTO TCRPC 
GET LENGTH OF MESSAGE (CHARS) 

AND POINTER TO MESSAGE 



SINGLE PORT BEING ZAPPED 
SET PORT COUNT TO -»\ 
GET LENGTH OF MESSAGE 
AND POINTER TO IT 

SAyE .MESSAGE 

LENGTH-! 
SAVE MESSAGE 

BUFFER CHARACTER POINTER 

PRECEDE 
MESSAGE 
WITH 
CR 
LF 
LF 

ArE jHErE MOrE CHARACTERS? 

YES 

NO* GO FINISH UP 

GET BUFFER POINTER 

BUMP IT 

CALCULATE WORD ADDRESS 

GET 2 CHARACTERS 

WHICH ONE? 

LEFT ONE? MOVE IT 

ISOLATE CHARACTER 

GO SEND IT 

CHECK FOR MORE 

SEND 
USER(S) 
FINAL 
GASP 
FORM 
FEEDS 
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0394* 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

n,A nK 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

04l6 

0417 

0418 

0419* 

0420* 

0421 

0422 

0423 

0424 

0425* 

0426 

0427 

0428 
0429 
0430 
0431 
0432 



61552 
61553 
61554 
61555 
61556 
61557 
61560 
61561 
61562 
61563 

£. 4 K£ A 

61565 
61566 
61567 
61570 
61571 
61572 
61573 
61574 
61575 
61576 
61577 
61600 
61601 



000000 
073653 
063650 
073654 
063647 
073655 
063655 
001727 
030240 
114736 
102311 
027564 
102511 
002002 
027560 
063655 
001727 
030213 
033653 
114736 
037655 
037654 
027560 
127552 



61602 061603 

61603 044101 

61626 061627 

61627 044101 



61647 
6l65<3 
61651 
6 1652 
61653 
61654 
61655 



000000 
000000 
000000 
000000 
000000 

000000 
000000 



TCR5 



TCROT NOP 
STA 
IDA 
STA 
LDA 
STA 
LDA 
ALF 
IOR 
JSB 
SFS 
J MP 
LIA 

SZA 
JMP 
IDA 
ALF 

IOR 
IOR 
JSB 
ISZ 
ISZ 

JMP 
JMP 



TCR02 
TCRPC 
TCR03 
TCRPT 
TCR04 
TCR04 
,ALF 
IBF 

S14SC # I 
CH2 
*-l 
CH2 

TCR5 
TCR04 
,ALF 
OCR 
TCR02 
S14SC,I 

TCR04 
TCR03 
TCR5 
TCROT,! 



COME HERE TO OUTPUT CHAR IN A 
SAVE CHARACTER 
SAVE NUMBER 
OF PORTS 
AND FIRST 
PORT 
ASK 2114 IF 

THIS USER'S BUFFER 
IS FULL 



GET RESPONSE 

YES, GO ASK AGAIN 

no, get port # 

output Code 
and character 
go send it 
bump port number 
output to another? 

YES 

NO, RETURN 



TCRPU DEF *+i 

ASC 19, HARDWARE FAILURE ** PORT UNAVAILABLE, 

TCRSD DEF *+l 

ASC 16#HARDWARE FAILURE ** SYSTEM DOWN, 



TCRPT BSS 1 
TCRPC BSS 1 
TCRCC BSS 1 
TCRBA BSS 1 
TCR02 BSS 1 
TCR03 BSS i 
TCR04 BSS 1 



NUMBER OF FIRST PORT TO GET NEWS 
TOTAL * OF PORTS TO RECEIVE NEWS 
LENGTH OF MESSAGE 
MESSAGE CHARACTER POINTER 
OUTPUT CHARACTER 
ROUTINE 
TEMPS 
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0434* UPON ENTRY (A) HOLDS THE NUMBER OF CHARACTERS TO BE OUTPUT, 

0435* BIT 15 OF A i FOR X-OFF CR LF AFTER OUTPUT. 

0436* (B) POIN T S tO THE FIRS T WORD OF THE ByFFER TO BE OUTPUT* 



0438 
0439 
0440 
0441 

0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
04gi 

0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 

046^ 

0461 

0462 

0463 

0464 

0465* 

0466* 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476* 

0477* 

0478 

0479 

0480 

0481 

0482 

0483 

0484 



61656 
6*657 
61660 
61661 

61662 
61663 
61664 
61665 
61666 

61667 
61670 
61671 
61672 
61673 
61674 
61675 
61676 
61677 
61700 
61701 
61702 
61703 
61704 
61705 
61706 
61707 
61710 



61711 
61712 
61713 
61714 
61715 
61716 
61717 
61720 
61721 



61722 
61723 
61724 
61725 
61726 
61727 



000000 
073722 
004066 
077723 

060220 
173724 

102612 

063722 

001265 

002003 
027711 
003400 
043722 
073722 

067723 

037723 

004065 

160001 
002041 
001727 
010474 
030476 
102612 
103712 
102312 
027706 
027665 



002040 
127656 
060362 
031027 
073722 
067725 
004066 
077723 
027665 



000000 
000000 
056642 
061726 
011415 
005000 



SYC3 
SYC1 



SYCON NOP 
STA 
CLE, 
STB 
LDA 

STA 

OTA 

LDA 

RAL, 

SZA, 

JMp 

CCA 

ADA 

STA 

LDB 

ISZ 

CLE, 

LDA 

SEZ, 

ALF, 

AND 

IOR 

OTA 

STC 

SFS 

JMP 

JMP 



SYCCC 

ELB 

SYCBA 

SBP 

SYBIT,I 

?SC 

SYCCC 

CLE /ERA 

RSS 

SYC2 

SYCCC 

SYCCC 

SYCBA 

SYCBA 

ERB 

B,I 

RSS 

ALF 

B177 

B200 

?SC 

?sc,c 
?sc 

SYCl 



SyC2 SEZ 

JMP SYCON, I 

LDA ,+3 

IOR BIT15 

STA SYCCC 

LDB SYCCL 
CLE, ELB 

STB SYCBA 

JMP SYCl 



SYCCC BSS 1 

SYCBA BSS 1 

8YBIT DEF TBITS 

SYCCL DEF **1 

OCT 0H415 
OCT 005000 
UNS 



SET CHARACTER COUNT 
INITIALIZE 

CHARACTER PQlNTER 
BITS FOR "PRINT ONLY" 

SAVE THEM 

SEND THEM 
HAVE ALL CHARACTERS 
(COPY CRLF BIT INTO E) 

BEEN OUTPUT? 
YES, Go SEE ABqUT CrLF 
NO, DECREMENT 

CHARACTER COUNT 

compute 
word.character 

ADDRESS 
LOAD WORD 
POSITION 

CHARACTER 
EXTRACT CHARACTER 
ADD IN BIT 7 
OUTPUT IT 

REQyEST CHARACTER TRANSFER 
WAIT FOR 

COMPLETION FLAG 
GO DO NEXT CHARACTER 



W ANT CRLF? 
NO, RETURN 
YES, 3 CHARACTERS 

WITH NO CRLF 
FOLLOWING 
ADDRESS OF 
X«OFF CR LF 

GO OUTPUT THESE 



COUNT OF CHARACTERS TO BE OUTPUT 
CURRENT CHARACTER POINTER 
POINTER TO CURRENT CONTROL BITS 

X-OFF CR 
LF 
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0486* 

0487* 

0488* 

0489* 

0490* 

0491* 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

05H 

0512 

0513 

0514* 

0515* 

0516* 
0517 

0518 
0519 

0520 
0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529* 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 



THESE ROUTINES ARE USED FOR COMMUNICATION BETWEEN THE 2114 
AND 2116 



2116 TO 2114 SEND DRIVER 



62000 
62000 
62001 
62002 

620^3 
62004 
62005 
62006 
62007 
62010 
62011 
62012 
62013 
62014 

62015 
62016 
62017 
62020 
62021 
62022 
62023 
62024 



000000 
103100 
070073 
076245 
164632 
005726 
006400 
174632 
102100 
102311 
026011 
102611 
103711 

106711 
164634 
103100 
002040 
174632 
066245 
102100 
126000 



ORG 
S14SH NOP 
CLF 
STA 
STB 
LDB 
BLF 
CLB 
STB 
STF 
SF8 
JMP 
OTA 
STC 
CLC 
LDB 
CLF 
SEZ 
STB 
LDB 
STF 
JMp 



62000B 


SVCH2 

SVBC2 
DCLC1.I 
,ELB 

DCLC1,I 



CH2 
*«•! 

CH2 

CH2,C 

CH2 

DCLC2,I 



DCuCl,I 
3VBC2 

S14SH,I 



2114 TO 2116 RECEIVE DRIVER 

62025 000000 R14CM NOP 

62026 Q7M7* STA CMA 

62027 074071 STB CMB 

62030 001520 ERA,ALS 

62031 102201 SOC 

62032 002004 INA 

62033 070072 STA CME 

62034 102510 LIA CHl 

62035 001723 ALF,RAR 

62036 010366 AND .+7 

62037 042041 AqA CMTBL 

62040 124000 JMP 0,1 

62041 162042 CMTBl DEF **l,l 

62042 062062 DEF HVL 

62043 062077 DEF ABR 

62044 062145 DEF BFL 

62045 062154 DEF BFE 

62046 062166 D£F ETO 

62047 062204 DEF UHU 

62050 062052 DEF R14RT 

62051 062052 DEF R14RT 



SAVE COMMUNICATION 

GET CLOCK WORD 

IF IT IS A JMP, BIT 12 

WILL BE SET 
BLOCK CLOCK 

WAIT FOR ACKNOWLEDGMENT 

OF PREVIOUS TRANSMISSION 
OUT p UT WORD 
INTERRUPT OTHER MACHINE 



unblock clock unless it was 
blocked when we Entered 



EXIT 



SAVE 

A,B,E 

AND OVERFLOW 

LOAD REQUEST WORD 
OPCODE IN BITS 2*0, 
MASK TO THREE BITS 

add on decode table pointer 
branch to appropriate routine 



HAVE LINE 

USER ABORTED 

BUFFER FULL 

BUFFER EMPTY 

ENTER STATEMENT TIMED OUT 

USER HUNG UP 
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0540* 












0541* 


ALWAYS RETURNS HERE 








0542* 












0543 


62052 060072 


R14RT 


LDA 


CME 


RESTORE 


0544 


62053 103101 




CLO 






0545 


62054 000036 




SLA, 


,ELA 


A,B,E 


0546 


62055 102101 




STO 






0547 


62056 060070 




LDA 


CMA 


AND OVERFLOW 


0548 


62057 064071 




LOB 


CMB 




0549 


62060 103710 




STC 


CHl,C 


ACKNOWLEDGE RECEIPT 


0550 

r%KZKZ 4 • 


62061 126025 




JMP 


Rl4CM,I 


EXIT 


D39 1 W 

0552* 


2114 HAS A LINE 








0553* 












0554 


62062 016227 


HyL 


JSB 


FD T TY 


B»» FIRst WORD OF TTY T*BLE 


0555 


62063 002002 




SZA 




SKIP IF STATUS IS IDLE, 


0556 


62064 050361 




CPA 


%INPT 


NO SKIP IF INPUT WAIT 


0557 


62065 002001 




RSS 




IDLE OR WAITING FOR INPUT 


0558 


62066 026052 




JMP 


R14RT 


IGNORE 


0559 


62067 160001 




LDA 


1,1 


SET 21U 


0560 


62070 030462 




IOR 


C0M14 


COMMUNICATION 


0561 


62071 170001 




STA 


1,1 


BIT 


0562 


62072 102510 




LIA 


CHI 


STORE RESPONSE 


0563 


62073 010500 




AND 


B377 


TIME IN TTY 


0564 


62074 044377 




ADB 


t +?RTIM 


TABLE («0 IF NO 


0565 


62075 170001 




STA 


1,1 


ENTER TIMING) 


0566 


62076 026052 




JMP 


R14RT 


RETURN TO 2114 DRIVER 


0567* 












0566* 


USER'S ABORT 


REQUEST 






0569* 












0570 


62077 016227 


ABR 


JSB 


FOTTy 


B«> FIRST WORD OF TTy TABLE 


0571 


62100 160001 




IDA 


1,1 




0572 


62101 010524 




AND 


B30M 




0573 


62102 050600 




CPA 


PBFLG 


CBFLG.0 AND PBFLG«1? 


0574 


62103 026052 




JMP 


R14RT 


YES, ABORT NOT ALLOWED* 


0575 


62104 160001 




LDA 


B,I 


NO, ABORT POSlBLEt 


0576 


62105 010377 




AND 


UNABT 


UNABLE TO 


0577 


62106 002003 




SZAi 


rRSS 


ABORT? 


0578 


62107 026114 




JMP 


ABR1 


NO 


0579 


62110 160001 




LDA 


1,1 




0580 


62111 030476 




IOR 


ABTRY 


DELAY ABORT 


0581 


62112 170001 




STA 


1,1 


ATTEMPT 


0582 


62113 026052 




JMP 


R14RT 


RETURN TO 2114 DRIVER 


0583 


62H4 


ABR1 


EQU 


* 




0584 


62114 044374 




ADB 


.♦?stat 


B *> STATUS 


0585 


62115 160001 




LDA 


1,1 


A » STATUS 


0586 


62116 050363 




CPA 


XSYNT 


CHECK FOR SYNTAX. 


0587 


62117 026052 




JMp 


R14RT 


CANiT ABORT OUT OF SYNTAX, 


0588 


62120 040344 




ADA 


.♦,-%synt 


-1~C0M3+C0M2 


0589 


62121 002020 




SSA 




SKIP IF LIBRARY PROGRAM, 


0590 


62122 026135 




JMP 


ABR2 


OTHERWISE ABORT ALWAYS ALLOWED, 


0591 


62123 060412 




L DA 


,*%SYNT- t 


♦ 14.CAT-C0M2 


0592 


62124 003004 




CMA, 


,INA 


ABORTABLE 


0593 


6212s 140001 




ADA 


B,I 


LIBRARY 


0594 


62126 002020 




SSA 




PROGRAM? 


0595 


62127 026052 




JMP 


R14RT 


NO 
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0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610* 

0611* 

0612* 

0613 

0614 

0615 

0616 

0617 

061a 
0619 

0620* 

0621* 

0622* 

0623* 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634* 

0635* 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 



62130 
62131 
6213? 
62133 
62134 
62135 
62135 
62136 
62137 
62140 
62141 
62142 
62143 
62144 



160001 
003004 
040420 
002020 
026052 

044342 
160001 
030462 
170001 
044374 
003400 
170001 
026052 



ABR2 



BUFFER IS FULL 



62145 
62146 
62147 
62150 
62151 
62152 
62153 



016227 
050362 
026052 
160001 
030417 
170001 
026052 



BFL 



LDA B,I 


MAYBE 


CMA,INA 




ADA .+XSYNT- 


t +l*8TA*C0M2 


SSA 




JMP R14RT 


NO 


EQU * 




ADB t -?STAT 


B ■> FLAGS 


LDA 1,1 


SET 2114 


IOR C0M14 


COMMUNICATIONS 


STA 1,1 


BIT 


ADB ,+?STAT 


SET 


CCA 


STATUS TO 


STA 1,1 


ABORTING 


,JMP R14RT 


RETRUN TO 2114 DRIVER 


JSB FDttY 


B *»FIRSt WORD OF TTY TABLE 


CPA XOUTW 


IGNORE IF 


JMP R14RT 


ALREADY OUTPUT WAIT 


LDA 1,1 


SET 


IOR OUTWT 


OUTPUT 


STA 1,1 


WAIT BIT 


JMp R14RT 


RETURN TO 2114 DRIVER 



BUFFER IS EMpTY AGAIN 



62154 
62155 
62156 
62157 
62160 
62161 
62162 
62163 
62164 
62165 
ENTER 

62166 
62167 
62170 
62171 
62172 
62173 
62174 
62175 
62176 
62177 
62200 
62201 
62202 
62203 



016227 BFE 

050362 

003701 

003500 

020417 

110001 

002040 

030462 

170801 

026052 



016227 
044373 
160001 
052246 
002001 
026052 
044343 
160001 
030462 
170001 
044374 
060354 

170001 

026052 



*TO 



JSB FDTTY 


B*> FIRST WORD OF TTY TABLE 


CPA XOUTW 


CHECK FOR STATUS OUTPUT WAIT 


CCA,CCE,RSS 


A * m\, E + 1 


CCA,CLE 


A * *1, E *■ 


XOR OUTWT 


CLEAR OUTPUT 


AND 1,1 


WAIT BIT 


SEZ 


IF STATUS * XOUTW, THIN DONI 


IOR C0M14 


SET 2114 


STA 1,1 


COMMUNICATIONS BIT 


JMP RURT 


RETURN TO 2114 DRIVER 


D OUT 




JSB FDTTY 


b»> First word of tty table 


ADB .+7RSTR 


B •> RESTART ADDRESS 


LDA 1,1 


A * RESTART ADDRESS 


CPA DENRT 


WAITING FOR ENTER? 


RSS 


YES, SET COM BIT. 


JMP R14RT 


NO, MUST BE MISTAKE, 


ADB ,-?RSTR 




LDA 1,1 


SET 2114 


IOR C0M14 


COMMUNICATIONS 


STA 1,1 


BIT 


ADB t +?STAT 


SET 


LDA XENTO 


STATUS TO 


STA 1,1 


ENTER TIMEOUT 


JMP R14RT 


RETURN TO 2114 DRIVER 
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0651* 
0652* 


* USER HUNG 


UP 








0653* 














0654 


62204 


016227 


UHU 


JSB 


fdtty 


A * USER'S StAtuS 


0655 


62205 


044375 




ADB 


t +?LINK 




0656 


62206 


050363 




CpA 


XSYNT 


CAN»T DISCONNECT 


0657 


62207 


026213 




JMP 


UHUl 


OUT OF SYNTAX 


0658 


62210 


040344 




ADA 


, + .-.%SYNT*l-C0M3*C0M2 


0659 


62211 


002020 




SSA 




LIBRARY PROGRAM RUNNING? 


0660 


62212 


026215 




JMP 


UHU2 


NO 


0661 


62213 


054272 


UHUl 


CPB 


MLINK+1 


YES, IS USER HEAD OF QUEUE 


0662 


62214 


026225 




JMP 


UHU3 


YES 


0663 


62215 


044356 


UHU2 


ADB 


,+?STAT. 


*?LINK NO 


0664 


62216 


060355 




LDA 


%DISC 


SET STATUS 


0665 


62217 


170001 




STA 


B,I 


TO DISCONNECT 


0666 


62220 


044342 




ADB 


, + ?FLAG«.?STAT 


0667 


62221 


160001 




LDA 


B,J 


SET I/O 


0668 


62222 


030462 




IOR 


C0M14 


COMMUNICATIONS 


0669 


62223 


170001 




STA 


B.I 


BIT 


0670 


62224 


026052 




JMP 


R14RT 


RETURN 


0671* 














0672 


62225 


074260 


UHU3 


STB 


hqdis 


SET DISCONNECT FLAG 


0673 


62226 


026052 




JMP 


R14RT 




0674** 








** 




0675* 


FIND FIRST WORD OF 


TTY TABLE * 




0676** 








** 




0677* 


exit with CB) 


«> FIRS T W ORD OF i 


rELEjYPE TABLE 


0678* 




(A) 


« USERS STATUS 




0679* 














0680 


62227 


000000 


FDTTY 


NOP 






0681 


62230 


102510 




LIA 


CHI 


LOAD REQUEST WORD 


0682 


62231 


001727 




ALF, 


,ALF 


TTy# IN 4«0 


0683 


62232 


010416 




AND 


.♦37B 


MASK TO S BITS 


0684 


62233 
62234 


100200 
000403 




MPy 


.♦TTY01- 


•TTy00 


0685 


62235 


064000 




LDB 





COMPUT LOCATION 


0686 


62236 


044644 




ADB 


DTTY0 


OF FLAG WORD 


0687 


62237 


060001 




LDA 


1 


A «> FLAGS 


0688 


62240 


040374 




ADA 


.♦7STAT 


A »> STATUS 


0689 


62241 


160000 




LDA 


0,1 


A » STATUS 


0690 


6 2242 


050353 




CPA 


%PUN 


CHECK FOR PORT UNAVAILABLE 


0691 


62243 


026052 




JMP 


R14RT 


IGNORE IF SO 


0692 


62244 


126227 




JMP 


FDTTY, 1 




0693 


6224 5 




R14ED 


EQU 


* 




0694 


62245 


000000 


SVBC2 


BSS 


1 




0695 


62246 


041235 


OENRT 


DEF 


ENTRT 


WHERE ENTER WAITS, 


0696* 














0697* 


ROUTINE TO CLEAR PBFLG 


& CBFLG 


BITS AND TO TELL 


0698* 


THE OTHER MACHINE 


ABOUT THE ABORT, 


0699* 














0700 


62247 


000000 


TRNOF 


NOP 






0701 


62250 


044342 




ADB 


t -?STAT 


B»> ?FLAG 


0702 


62251 


103100 




CLF 







0703 


62252 


060524 




LDA 


B30M 


CLEAR P8FLG & CBFLG 


0704 


62253 


003000 




CMA 




BITS, 


0705 


62254 


110001 




AND 


B,I 
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0706 


62255 170001 


STA B,I 




%7%7 


62256 006004 


INB 


B»> 7TNUM 


0708 


62257 160001 


LOA b,i 


A" TTNUM 


0709 


62260 030251 


IOR ABT 


TEU OTHER MACHINE, 


0710 


62261 114736 


JSB S14SC*I 




0711 


62262 126247 


JMP TRNOF,! 




0712* 








0713* 
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0002 


70000 




0003 


70000 


000140 


0004 


70001 


177720 


0005 


70002 


177737 


0006 


70003 


177645 


0007 


70004 


106051 


0008 


70005 


071540 


0009 


70006 


047040 


0010 


7%m7 


043106 


0011 


70010 


020100 


0012 


700U 


030040 


0013 


70012 


072037 


0014 


70013 


057324 


0015 


70014 


000000 


0016 


70015 


177776 


0017 


70016 


000000 


00 le 


70017 


000000 


0019 


70020 


000000 


0020 


70021 


072024 


0021 


70022 


074252 


0022 


70023 


062247 



ORG 700008 
B140 OCT 140 
M60B OCT .60 
M41B pCT -41 
M133B OCT -133 
MC0M2 ABS *C0M2 
M36K ABs »30000«.6000 
ASCIN ASC 1,N 
ASCFF ASC 1,FF 
ASCBA ASC 1, # 
ASC0B ASC 1,0 
DCQM6 DEF C0M6 
TTYCK ABS TTY00 
OUTM1 BSS 1 

X OCT -2 

CTEMP BSS 1 

SMaIN OCT 

FMAIN OCT 

XC0M5 OEF C0M5-2 

INSQA DEF INSEQ 

TRNFP DEF TRNOF 



TEMPS USED BY OUTCH ROUTINE, 



CURRENT SWAPR DRUM TRANSFER FLAG 
OLD TOp OF Q FLAGS POINTER 
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0024* THE clock driver is the central PQlNT through which control is 

0025* passed to the scheduler, entry comes to the driver whenever the 

0026* Clock (real time scalar) Interrupts, this event occurs every 

0027* 100 ms, besides giving control to the scheduler, the clock 

0028* driver also has the task of updating the time or day clqckt 

0029* this clock is a two word entry whose value is as follow*! 
0030* datim«24*day*h0ur 

0031* DATlM+l«600*MlN+10*SEC*36000 



0033 70024 000000 CLKIN NOP ENTRY POINT. 

0034 70025 072016 STA CTEMP SAVE A. 

0035 70026 034172 ISZ DATIM+1 BUMP 100MS COUNTER 

0036 70027 026034 JMP CLC0 NO PROBLEM IF NO SKIP 

0037 70030 062005 LDA M36K RESET 100MS CqUNtER, 

0038 70031 070172 STA DATIM+1 

0039 70032 034171 ISZ DATIM Bu*P HR COUNTER, 

0040 70033 000000 NOP JUST IN CASE, 

0041 70034 036015 CLC0 ISZX ENTER SCHEDULER THIS TIME? 

0042 70035 026042 JMP CLCl+l NO 

0043 70036 060355 LDA ,»2 YES, RESET 

0044 70037 072015 STA X RESET SKIP WORD 

0045 7m^ 062016 LDA CTEMP RESET A 

0047* THE NEXT INSTRUCTION IS NORMALLY A JMP, WHEN THE 

0048* SCHEDULER 1$ RUNNING, HOWEVER, IT PREVENTS ITSELF 

0049* FROM BEING REENTERED BY INSERTING A NOP, 



0051 


70041 


000000 


CLCl 


NOP 




0052 


70042 


062016 




LDA 


CTEMP 


0053 


70043 


103114 




CLF 


CLOCK 


0054 


70044 


126024 




JMp 


CLKIN, I 



0056 70045 026046 CLC2 JMP SChED 



RESET A 

ALLOW ANOTHER CLOCK INTERRUPT, 

RETURN, 

USED TO INSERT IN ClU # 



0058* THE SCHEDULER SECTION OF TSB DETERMINES WHICH 
0059* PROGRAM IS TO RgN NEXT, FIRST IT CLEARS CLCl, 
0060* ALLOWING THE CLOCK TO CONTINUE INTERRUPTING, 



0062 


70046 


071224 


SCHED 


STA 


AREG 


SAVE A-REGISTER, 


0063 


70047 


002400 




CLA 




INSERT NOP IN CLCl TO PREVENT 


0064 


70050 


072041 




STA 


CLCl 


REENTERING SCHED. 


0065 


70051 


062024 




LDA 


CLKIN 


SAVE THE PrOGrAM COUNTER 


0066 


70052 


071227 




STA 


PREG 


ALSO. 


0067 


70053 


103114 


CLKEO 


CLF 


CLOCK 


NOW LET THE CLOCK IN AGAIN, 


0068 


70054 


075225 




STB 


BREG 


SAVE B REGISTER, 


0069 


70055 


001520 




ERA, 


r ALS 


E-REGISTER, 


0070 


70056 


102201 




soc 




AND OVERFLOW REGISTER, 


0071 


70057 


002004 




INA 






0072 


70060 


071226 




STA 


EREG 




0073 


70061 


064272 




LOB 


MLINK-M 


GET POINTER 


0074 


70062 


044341 




ADB 


,-?LlNK 




0075 


70063 


076020 




STB 


FMAIN 


TO FLAG WORD 
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0076 

0077 

0078 

0079 

0080* 

0081* 

0082* 

0083* 

0084* 

0085* 

0086* 

WKJf W 

0088 
0089 
0090 
0091 

0092 
0093 
0094 
0095 
0096 
0097 
0098* 

0100* 

0101*i 

0102* 

0103 

0104 

0105 
0106 

0107 

0108 

0109 

0110 

0111* 

0112* 

0113* 

0114 

0115 

0116 

0117* 

0118* 

0119* 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130* 

0131 



70064 060262 

700g5 002002 

70066 134057 

70067 026360 



LDA TIMEF 

S2A 

ISZ TIMER, I 

JMP SCH1 



GET TIMER FLAG, 

IF 0, THIS IS NOT A TIMED PROG. 
IF NOT 0, BUMP TIMER, 
IF NOT OUT OF TIME* SKIP 
ROTATING THE RUN QUEUE 



AT THIS POINT WE HAVE DISCOVERED THAT THE PROGRAM THAT HAS 
BEEN RUNNING HAS EXHAUSTED ITS TIME LIMIT, THE NEXT STEP IS 
TO ADJUST THE QUEUE SO THAT THIS PROGRAM IS MOVED TO THE 
BOTTOM, THIS IS ACCOMPLISHED BY DELETING THE PROGRAM 
FROM THE QUEUE AND THEN REINSERTING IT WITH ITS NEW PRIORITY, 



7m7^ 
70071 
70072 
70073 
70074 
70075 

?m7b 
7m77 
70100 
70101 



064272 
006004 
060363 
170001 
044356 
160001 

070272 
116022 
017251 
026360 



LDB MLINK+1 

INB 

LDA .+4 

STA 1,1 

ADB t + ?LINK-,?PLEV 



GET THE ADDRESS OF PRIORITY 

FOR THE CURRENT PROGRAM, 
SET IT TO LOW PRIORITY. 



SCH3 



LDA 1,1 

STA MLINK+1 

JSB lNSQA,I 

JSB SWAPR 

JMP SCHl 



test for any tty35 business 

70102 SCHSl FQU * 

70102 064644 lDB DTTY0 

70103 076013 STB TTYCK 

70104 003400 SCH5 CCA 

70105 050311 CPA T35F1 

70106 026271 JMP SCHI5 

70107 050313 CPA T35F3 
70110 026222 JMp SCH16 



get the link from the current 
program and store it in mlink+1 
Insert user In queue 
start early swapping 
check for communication 
from i/o processor 



JUST FINISHED CHECKING TTYS 
REINITIALIZE 

POINTER 
TEST FOR DRIVER BUSY 



DRIVER IS BUSY, 

COMMAND ENTERED BUT NqT STARTED 
WHEN T35Fl«0, THE CONSOLE IS QUIET $0 WE CAN DO LOGGING, 

TEST FOR ANY ENTRIES ON MESSAGE 



70111 040304 

70112 050356 

70113 026126 



ADA MSQCT 

CPA ,»1 

JMP SCH52 MESSAGE QUEUE EMPTY 



output an element of the message queue 



70114 
70115 
70116 
70117 
70120 
70121 
70122 
70123 
70124 
70125 

70126 



070304 
064305 
044426 
054307 
064310 
074305 
160001 
006004 
114760 
026271 



STA MSQCT 
LDB MSQPl 

ADB ,+MESLN 
CPB MSQND 
LDB MSQBG 
STB MSQPl 
LDA B,I 
INB 

JSB TTY35,I 
JMP SCH15 



DECREMENT MESSAGE COUNTER 
ADVANCE MESSAGE POINTER 

IF AT END OF BUFFER 

THEN WRAP AROUND 
SET UP NEW ADDRESS 
GET ADDRESS AND 

LENGTH OF MESSAGE 
AnD OUTPUT IT 



SCH52 EQU * 
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0132 

0133 

0134 

0135* 

0136* 

0137* 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 
0153 
0154 
0155 
0156 

0157 
0158 
0159 
0160 
&161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 

0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 



70126 1340772 

70127 050356 
70130 026222 



ADA LOGCT 

CPA ,-1 
JMP SCH16 



SET UP LOG BUFFER 



70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
7 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 
70 

70 

70 
70 



131 
132 

133 
134 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
163 

164 
165 
166 
167 
170 
17J 
172 
173 
174 
175 
176 
177 



70200 
70201 
70202 
70203 
70204 
70205 



0182 

0183 70206 

0184 70207 
0185 



070772 

060706 
002004 
050704 
060702 
070706 
160706 
066006 
002020 
066007 
076212 
101052 
010416 
042010 
072213 
160706 
010512 
006400 
100400 
000371 
005727 
046011 
076215 
017063 
072214 
034706 
160706 
010416 
017063 
072221 
160706 
006400 
101025 
100400 
000456 
174706 

01706 3 
072216 
160706 
017063 
072217 
060405 
066206 
114760 
026271 



170207 

025052 



STA 
LDA 
INA 

CPA 
LDA 
STA 
LDA 
LDB 

SSA 
LDB 
STB 
LSR 
AND 
ADA 
STA 
LDA 
AND 
CLB 
DIV 

BLF, 

ADB 

STB 

J SB 

STA 

ISZ 

LDA 

AND 

JSB 

STA 

LDA 

CLB 

ASR 

DIV 



LOGCT 
LOGP1 

LOGND 

LOGBG 

LQ&P1 

LOGPi, 

ASCIN 



I 



A3CFF 

LOGBF4.3 

10 

,+37B 

ASCBA 

L0G8F+4 

LGGPl,I 

B1777 

. + 10 

BLF 
ASC0B 

LOGBF+6 
#LTEN 

L0G8F+5 

LOGPI 

LOGPl,I 

.♦37B 

#LtEN 

LOGBF+10 

LOGPI, I 

5 

D60 



STB LOGPI, I 

JSB #LTEN 

STA LQGBF+7 

LDA LOGPi, I 

JSB #LTEN 

STA LOGBF+8 

LDA ,+22 

LDB L0GR2 

SCH21 JSB TTY35,I 

JMP SCH15 



TEST FOR ANY ENTRIES IN LOGTABLE 
LOG TABLE IS EMPTy. 



DECREMENT LOG COUNTER, 
BUMP LOG POINTER 

IF AT END, 
WRAP AROUND, 

TEST FOR LOGON 
OR LOGOUT, 



SHIFT LOG CHAR TO LEAST 5 BITS. 
MASK OFF OTHER STUFF, 
CONVERT TO ASCII, 

GET ACCOUNT NUMBER AGAIN, 
KEEP ONLY * PART. 

GET 1ST 2 DIGITS IN A# LAST IN B 

SET UP LAST DIGIT AS 
ASCII LEFT HALF, 

CONVERT FIRST-2 TO ASCII ALSO 



NOW GET THE TImE. 

GET TERMINAL NUMBER 

CONvErt AND STOrE IN BUFFER, 



SAVE SECOND HALF 

CONVERT FIRST HALF TO ASCII. 



CONVERT 2ND HALF TO ASCII, 



TO PRINT THE 
STUFF, 



LQGR2 
LOGBF 



SUP 
DEF 
ASC 

UNS 



*+i,I BUFFER 
ll,**LOGOFF A123 



ADDRESS (I«»PUNCH) 
0930 #01 
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0187* 














0188** TTY35 I/O 


COMPLETE 






0189* 














0190 


70222 


050312 


SCH16 


CPA 


T35F2 


TEST DRIVER COMMUNICATE FL 


0191 


70223 


002001 




RSS 






0192 


70224 


026271 




JMP 


SCH15 




0193 


70225 


060276 




LDA 


T35ST 


GET CONSOLE STATUS, 


0194 


70226 


064300 




LDB 


T35PR 




0195 


70227 


050362 




CPA 


XOUTW 


IF OUTPUT WAIT, 


0196 


70230 


026254 




JMP 


SCH23 


GO SET HIM UP. 


0197 


70231 


002002 




SZA 




IF NOT IDLE wEVE ALREADY 


0198 


70232 


026271 




JMP 


SCH15 


QUEUED HIM, 


0199* 














0200* 


TTY35 INPUT COMMAND 






0201* 














0202 


70233 


060301 




LDA 


T35B2 


POINTER TO FIRST CHARACTER 


0203 


70234 


070060 




STA 


SBHED 


OF CONSOLE BUFFER. 


0204 


70235 


060302 




LDA 


T35ND 


POINTER TO END OF 


0205 


7023 6 


070061 




STA 


SCHL 


CONSOLE BUFFER, 


0206 


70237 


060417 




LDA 


.+40B 


INITIALIZE COMMAND 


0207 


70240 


070064 




STA 


SCHP 


HOLDER, 


0208 


70241 


017111 




JSB 


SCOM 


GET COMMAND. 


0209 


70242 


026262 




JMP 


SCHJ7 


BLANK LINE 


0210 


70243 


026264 




JMP 


SCHJ8 


ERROR 


0211 


70244 


026264 




JMP 


SCH18 


ERROR 


0212* 














0213* 


SET UP QUEUE 


Entry i 


For console 




0214* 














0215 


70245 


060060 




LDA 


SBHED 


SET POINTER FOR 


0216 


70246 


070054 




STA 


T35CP 


T35CR, 


0217 


70247 


060417 




LDA 


.♦40B 


SET UP THE LAST 


021a 


70250 


070055 




STA 


T35LC 


CHARACTER AS A BLANK 


0219 


70251 


060606 




LDA 


#LIB# 


SET RESTART ADDRESS, 


0220 


70252 


070275 




STA 


T35RS 




0221 


70253 


046261 




ADB 


SCH19 


SET PROGRAM STATUS 


0222 


70254 


074276 


SCH23 


STB 


T358T 


TYPE, 


0223 


70255 


060361 




LDA 


.♦2 


SET PRIORITY, 


0224 


70256 


070300 




STA 


T35PR 




0225 


70257 


064263 




LDB 


T35LN 


GO INSERT IN QUEUE 


0226 


70260 


026077 




JMP 


SCH3 




0227 


70261 


106056 


SCH19 


ABS 


•C0M2*% 


SYNT.,*i 


0229 


70262 


060722 


SCH17 


LDA 


ONEI 


OUTPUT LINE FEED 


0230 


70263 


002001 




RSS 






0231 


70264 


060363 


SCH18 


LDA 


.♦4 


OUTPUT ERROR MESSAGE 


0232 


70265 


006400 




CUB 






0233 


70266 


074312 




STB 


T35F2 




0234 


70267 


064636 




LDB 


DEH 




0235 


70270 


026204 




JMP 


SCH21 
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0237* 

0236* 

0239 

0240* 

0241* 

0242* 



70271 017251 SCH15 JSB SWAPR 



CHECK FOR ANYTHING TO 00, IF NOT 
SWAPR WILL GO TO 8CM1 AGAIN, 
IT WILL RETURN HERE IF THERE 18 
AN EXECUTABLE PROGRAM IN CORE, 



0244* 
0245* 
0246* 
0247* 

0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 

0271 
0272 
0273 
0274 
0275 

0276 
0277 
0278 
0279 

0280 
02el 
0282 
0283 
0284 

0285 
0286 



THE PROGRAM TO RUN IS AT THE HEAD OF THE QUEUE, AND SWAPR HAS 
GUARANTEED THAT IT IS IN CORE. THE FOLLOWING SECTION OF CODE 
SETS IT uP TO RUN, AND ALSO SETS U? THE CLOCK 0*Iv£R SO THAT 
FUTURE INTERRUPTS WILL GO BACK INTO THE SCHEDULER* 



70272 
70273 

70274 
70275 
70276 
70277 
70300 
70301 
70302 
70303 
70304 
70305 
70306 
70307 
70310 
70311 
70312 
70313 
70314 

70315 

70316 
70317 

70320 
70321 
70322 
70323 
70324 
70325 
70326 
70327 
70330 

70331 
70332 
70333 
70334 
70335 
70336 
70337 



103100 
062045 

072041 

060272 
040356 
164000 
044344 
040361 
006020 
026306 
006400 
174000 

040354 
164000 

006002 
075227 

006400 
174000 
074262 
002004 

164000 
040355 

070057 
054364 

034262 
040344 
064000 
16^001 
010520 
070203 

061226 
103101 
000036 
102101 
061224 
065225 
102100 
125227 



SCH2 



CLF 
LDA 
STA 

LDA 
ADA 
LDB 
ADB 
ADA 

SSB 
JMP 

CLB 

STB 

ADA 

LDB 

SZB 

STB 

CLB 

STB 

STB 

INA 

LDB 

ADA 

STA 

CPB 

ISZ 

ADA 

LDB 

LDA 

AND 

STA 

LDA 

CLO 

SLA, 

STO 

LDA 

LDB 
STF 
JMP 



INHIBIT INTERRUPT. 
ClC2 RESTORE A «jMP SCHED> IN THE 
CLCl CLOCK INTERRUPT ROUTINE. 
MLINK*1 GET THE STATUS 

,+?STAT*?LINK OF THIS PROGRAM 
A, I AND CHECK TO SEE 

t 4,-XSYNT*C0M2*C0M3.1 IF IT IS TyPE III 
.♦?PLEV-?STAT 



SCH2 

A, I 

t +?R3TR, 

0,1 

PREG 

0,1 

TIMEF 

0,1 

.+?CL0C< 

TIMER 

%SYNT*1 

TIMEF 

,-?CLOC 

A 

B,I 

M8UST 

MBUSY 

EREG 

ELA 

AREg 
BREG 

PREG, I 



not type iii 
it is, so set this 
user's priority to zero 
,?plev get restart address 
if not 0, put it in preg 
to start up properly, 

put into table in any case 

set to say no timing, 
get program status, 

?stat set timer pointer, 

if status is run, set 
timeflag for clocking, 
save Flags 

POINTER 
RESTORE 
DISC BUSY 
FLAG 
RESTORE E 
AND OVERFLOW 
REGISTERS, 

RESTORE A AND 

B REG, 
ENABLE INTERRUPT AND 
TRANSFER TO PROGRAM, 
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0288* 

0289* 

0290* 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307* 
0308* 

0309* 
0310* 
0311* 
0312* 

0313* 
0314* 

0315* 
0316* 
0317* 
0318* 
0319* 
0320* 
0321* 
0322* 
0323* 
0324* 
0325* 

0326* 
0327* 
0328* 
0329* 
0330* 

0331* 
0332* 
0333* 
0334* 
0335* 
0336* 
0337* 

0338* 

0339* 

0340* 

0341* 

0342 

0343 



START OF SYSTEM 



70340 
70341 
70342 
70343 
70344 
70345 
70346 
70347 
70350 
70351 
70352 
70353 
70354 
70355 
70356 
70357 



060362 
102614 
1037H 
106711 
106712 
060167 
003000 
001727 
030222 
114736 
102311 
026352 
103710 
060365 
064265 
114760 



TS8 



LDA 


.♦3 


OTA 


clock 


STC 


clock, c 


clc 


CH2 


CLC 


?sc 


LDA 


NPORT 


CMA 




ALFi 


,ALF 


IOR 


INI 


J$B 


S14SC,I 


SFS 


CH2 


JMP 


*<•! 


STC 


CH1,C 


LDA 


.+6 


LDB 


READY 


JSB 


TTY35,I 



START CLOCK COUNTING IN 
100 MS UNITS, 
START CLOCK 



a * number of legal ports • i 

PLUG IN INITIALIZATION CODE. 

WE'RE STARTING 
WAIT FOR 2114 

TO FINISH 

START SYSTEM 
TELETYPE BY OUTPUTTING 
READY MESSAGE, 



THIS SECTION *S THE BEGInnInG 0^ THE mAIn PART 0? THE $CHEDU* 
LER. CONTROL ALWAYS COMES HERE TO EXAMINE THE TTQ UNTIL IT'S 
EXHAUSTED, OR W H tN ThERE IS NOTHING TO DO. SWAPR ALWAYS COMES 
TO THIS POINT WHEN THE QUEUE IS EMPTY OR THE FIRST PROGRAM ON 
THE QUEUE IS ABSENT, 
THIS SECTION ACTUALLY PROCESSES A TTQ ENTRY, THERE ARE SEVERAL 
KINDS OF ENTRIES WHICH MAY BE CLASSIFIED AS FOLLOWS* 

1) ABORT • THIS IS INDICATED By THE TElETyPE STATyS BEING 
•U THE ACTION TAKEN IS TO STOP THE PROGRAM (IF IT IS 

IN THE QUEUE), AND TO INITIATE THE ABORT MESSAGE, 

2) OUTPUT TERMINATE • THIS Is INDICATED By THE STATUS BEING 
XOUTW t THE TTQ ENTRY REALLY MEANS THAT THE OUTPUT BUFFER 
IS ALMqST EMpTY, THE PROGRAM Is PLACED BACK ON THE QUEUE 

according to its priority, 

3) Input • this is Indicated by status being %Inpt, it InDI» 
cates that a user program or system program that has 
requested input has gotten it, the program is placed- in 
the queue, 

4) COMMAND * WHEn STATUS iS XjDlE, EjTHER A COMMAND OR 

A SYNTAX STATEMENT HAS BEEN ENTERED, THESE CAN BE DISTIN. 
GUI$HE0 By THE FIrsT NON BLANK INPUT CHArACtEr* WHICH I S 
A DIGIT ONLY IF SYNTAX HAS BEEN ENTERED, 

5) DISCONNECT * -{HIS IS INOlCAyEO By StAtU 8 BEING %DXSC« 
THE ACTION TAKEN IS TO CALL THE BYE ROUTINE 

6) ENTER TIMEOUT « THIS IS INDICATED BY THE STATUS BEING 
%ENTO t THE RESTART ADDrEss IS BUMpED AND THE PROGRAM Is 
PLACED ON THE QUEUE, 

70360 102100 SChI STF 

70361 066013 LDB TTYCK 



PAGE 0305 #25 SCHEDULER 



0344 
0345 
034 6 
0347 

0346 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373* 

0374* 

0375* 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386* 

0387* 

0386* 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 



70362 
70363 
70364 
70365 

70366 
70367 
70370 
70371 
70372 
70373 
70374 
70375 
70376 
70377 
70400 
70401 
70402 
70403 
70404 

70405 
70406 
70407 
70410 
70411 
70412 
70413 
70414 
70415 
70416 



054642 
026102 

160001 
044403 

076013 
010462 
002003 
026360 
044333 
103100 
120001 
170001 
074062 
044364 
074063 
044367 
160001 
040353 
002021 
026360 
042410 
124000 

070420 
026527 

026512 
026431 
026533 
026104 
000000 



CPB DTT32 HAVE ALU TELETYPES BEEN CHECKED? 

JMP SCHS1 YES 

LDA 1,1 LOAD STATUS FOR THIS USER 

ADB .+TTY01-TTY00 GENERATE ADDRESS FOR NEXT 

SjB TTYCK USER 

AND C0M14 COMMUNICATION FROM 2114? 

SZA,RSS SKIP IF SO 

JMP SCH1 NO** CHECK NEXT ONE 

ADB .+TTY00-TTY01 MOVE ADDRESS BACK TO THIS U 

CLF 

XOR 1,1 CLEAR 

STA 1,1 C0M14 BIT 

STB TTQ SAVE TABLE ADDRESS 

ADB ,+?ID STORE ID 

STB SCHID ADDRESS 

ADB ,+?STAT~?ID 

LDA 1,1 A*STATUS 

ADA ,-4 MAKE SyRE 

SSA,RSS 8TATUS<4 

JMP SCHl IGNORE OTHERWISE 

ADA *+2 BRANCH TO SECTION 

JMP 0,1 TO HANDLE REQUEST 

DEF *+8 

JMp sCH4 ENTER TIMEOUT 

JMP SCH8 DISCONNECT 

JMP SCh7 ABORT 

JMP SCH6 COMMAND 

JMP SCH5 ABORTING 

NOp INPUT 



CODF TO HANDLE INPUT Or OUTPUT* 



70417 044361 

70420 160001 

70421 044355 

70422 170001 

70423 102100 

70424 044361 

70425 002400 

70426 170001 

70427 044356 
70430 026077 



ADB ,+?PLEV-?STAT 
SCH5! LDA 1,1 GET ACTUAL STATUS 
ADB f +?STAT-?PLEV 
STA 1,1 SET ACTUAL STATUS 
STF 

ADB ,*?PLEV~?STAT 
CLA SET PRIORITY TO 

STA 1,1 

ADB ,+?LINK«.?PLEV 
JMP SCH3 GO INSERT USER IN QUEUE 



CODE TO HANDLE ABORT 



70431 
70432 
70433 
70434 
70435 
70436 
70437 
70440 
70441 
70442 
70443 



102100 
006004 
017610 
064062 
060417 
003000 
103100 
110001 
170001 
006004 
160001 



SCH7 



STF 




INB 


B«>HNK 


JSB DEQUE 


REMOVE USER FROM QUEUE, 


LDB TTQ 




LDA OUTWT 


CLEAR 


CMA 


OUTPUT 


CLF 




AND 1,1 


WAIT 


STA 1,1 


BIT 


INB 




LDA B,I 


GET TTY NUMBER 
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0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

041g 

0417 

0418 

041g 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427* 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

043 6 

0437 

0438 

0439* 

0440* 

0441* 

0442 

0443 

0444 

044g 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 



70444 
70445 
70446 
70447 
70450 
70451 
70452 
70453 
70454 
70455 
70456 
70457 
70460 
70461 
70462 
70463 
70464 
70465 
70466 
70467 
70470 
70471 
70472 
70473 
70473 
70474 
70475 

70476 
70477 

70500 
70501 
70502 
70503 
70504 

70505 
70506 
70507 
70510 
70511 



030235 
114736 
044356 
060502 
110001 
002003 
026473 
060377 
130001 
170001 
102100 
044376 
002400 
170001 
044355 
060370 

170001 
044356 

042021 
160000 
170001 
044361 
026077 

044374 
170001 
116023 

054253 
017227 

064062 
060347 
017073 
006412 
051524 
047520 
006412 
6 40 6 2 

017711 
026360 



IOR 
JSB 
AOB 
IDA 
AND 
SZA, 
JMP 
IDA 
IOR 
9TA 
STF 
AD6 
CU 
STA 
ADB 
LDA 
STA 
ADB 
ADA 
LDA 
STA 
ADB 
JMP 
SCH75 EQU 
ADB 
STA 
JSB 



KAO 
Si4SC,I 

.-1 
DFCHK 

1,1 
RSS 

SCH75 

UNABT 

8,1 

B,I 



,+?PLEV 

B,I 

,+?STAT< 

.+%SYNL 

B/I 

,*?RSTR< 

XC0M5 

A, I 

B,I 

,+?LINK, 

SCH3 

* 

.+?STAT 

1,1 
TRNFP,I 



CPB PRIST 

JSB SCLPR 
LDB TTQ 
LDA .-8 
JSB TyPE 
OCT 6412 
ASC 2, STOP 

OCT 6412 
LDB TTQ 
JSB HTEST 
JMP SCHl 



KILL OUTPUT 



NEED TO UPDATE CHANGE DATE* 
NO 
YES 

DISALLOW 
ABORTS 



SET PRIORITY TO 
?PLEV 
t +l4UCDAB«COM2 

SET STATUS TO LAST CHANGE DATE 
■7STAT 

FIND POSITION IN TABLE 

GET RESTART ADDRESS 

SAVE IT 
-?RSTR 

GO INSERT IN QUEUE 

SET STATUS 

CLEAR PBFLG & CBFLG BITS 
AND TELL OTHER MACHINE. 

USER HAVE LP? 
YES 
NO, PRINT ABORT 

MESSAGE 

CRLF 



CRLF 
SCRATCH IF SHELLO IS RUNNING 



CODE TO SET u p FORCED DISCONNECT 



70512 
70513 
70514 

70515 
70516 
70517 

70520 
70521 
70522 
70523 
70524 
70525 
70526 



044360 
017610 
064062 
060377 
030476 
030502 
003000 
110001 
170001 
102100 
060001 
040373 
026766 



SCH8 



ADB 
JSB 
LDB 
LDA 
IOR 

IOR 
CMA 
AND 
STA 
STF 
LDA 
ADA 
JMP 



.♦?LINK«?STAT 



DEQUE 

TTQ 

UNABT 

ABTRY 

DFCHK 

1,1 

1,1 



1 

,+?RSTR 

SCH61 



REMOVE 
CLEAR 

ABORT 



FROM QUEUE 



FLAGS 



GO SET UP STARTING INFO, 
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0455* 

0456* 

0457* 

0458 

0459 

0460 

0461 

0462* 

0463* 

0464* 

0465* 

0466 

0467 

0468 

0469 

04 7 

0471 

04/2 

65473 

0474 

0475* 

0476* 

0477* 

0478* 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

04g0 

0491 

0492 

0493 

0494 

04g5 

0496 

0497* 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 



CODE TO HANDLE ENTER TIMEOUT 



70527 044356 

70530 134001 

70531 044362 

70532 026420 



SCH4 ADB ,*?RSTR-?STAT 

I3Z 1,1 BUMp RESTART ADDRESS 

ADB ,+?pLEv-?RSTR 

JMP SCH51 GO RESTORE STATUS 



CODE TO HANDLE COMMANDS, 



70533 102100 SCH6 

70534 002400 

70535 070060 

70536 070064 
7053; 017111 
70540 026566 
705-41 026544 

70542 026611 

70543 026623 



STF 
CLA 

STA SBHED 
STA SCHP 
J SB SCOM 
JMP SCH30 
JMP SCH9 
JMP EHERR 
JMP SCHU 



FLAG BUFFER HEAD TO 

SAY BUFFER IN 2114 
INITIALIZE TO HOLD CHARACTIR8 
INTERPRET COMMAND 
EMPTY LINE, 

FIRST CARACTER A DIGIT 
INVALID COMMAND, 
COMMAND IS OK, 



THE FIRST CHARACTER- IS A DIGIT, THIS MEANS THE LINE IS SyNTAx AND 
WE HAVE TO QUEUE IT AS SUCH, 



70544 
7054b 
70546 
70547 
70550 
70551 
70552 
70553 
70554 
70555 
70556 
70557 
70560 
70561 
70562 
70563 
70564 

70565 

70566 
70567 
70570 
70571 
70572 
70573 
70574 

70575 
70576 

70577 
70600 
70601 

70602 



064062 
060612 
003000 
U0001 
170001 
044376 
002400 
150063 
026627 
170001 
044354 
060446 
170001 
044360 
060363 
170001 
006004 
026077 

064062 
060367 
110001 
006004 
002003 
026603 
160001 
030215 
114736 
160001 
030236 
114736 

026360 



SCH9 



LDB 
LDA 
CMA 
AND 
STA 
ADB 

CLA 
CPA 
JMP 
STA 
ADB 

LDA 
STA 
ADB 

LDA 
STA 

INB 
JMP 



TTQ 
PUALT 

B,I 

B,I 
f *?PLEV 



REMOVE 
PROGRAM 
UNALTERED 
FLAG 
B*> PRIORITY 
SET PRIORITY TO 
IF NO ID, GO LOG IN, 



SET UP STARTING ADDRESS 
FOR SYNTAX 



SCHID,! 
SCH25 

1,1 

.♦?RSTR<-?pLEV 

SYNTA 

1,1 
t +?STAT*?RSTR 

%synt set status to 
1,1 Syntax, 

go insert in queue. 

SCH3 



SCH30 LDB TTQ 

LDA TApEp 

AND B,I 
INB 

S2A,RSS 

JMP SCH31 

LDA 1,1 

IOR GTC 

JSB S14SC,I 

LDA 1,1 

IOR ALI 

JSB S14SC,i 

JMP SCH1 



TEST FOR TAPE MODE IF NULL LINE, 



»> TTY 

NO TAPE - GO EMIT LINE FEED 
SPACE 

PAST 

CARRIAGE RETURN 
INFORM 2114 

THAT MORE INPUT 
IS ALLOWABLE 
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0511* 
0512 
0513 
0514 

0515 

0516 

0517 

0518* 

0519* 

0520* 

0521 

0522 
0523 
0524 
0525 
0526 
0527 



0528 

0529* 

0530* 

0531* 

0532 

0533 

0534 

0535 

0536 

0537 
0538 
0539 



0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 



70604 
70605 

70606 
70607 

70610 



017227 
060371 
064062 
114724 

026360 



SCH20 



COME HERE WHEN ANY 



70611 
70612 
70613 
70614 
70615 
70616 
70617 
70620 
70621 
70622 



064062 
006004 
054253 
017227 
060351 
017073 
005077 
037477 
006412 
026360 



EHERR 



EH 



CPB PRIST 


IF USER HAS LP, 


JSB SCLPR 


RELEASE IT 


LDA ,+12B 


OUTPUT A LINE FEED, 


LDB TTQ 




JSB OUTCH,I 




JMP SCH1 




ILLEGAL INPUT 


IS FOUND, 


LD6 TTQ 




INB 




CPB PRIST 


IF USER HAS LP, 


JSB SCLPR 


RELEASE IT 


LDA ,-6 




JSB TYPE 




OCT 5077,37477,6412 (???) 



JMP SCHl 



COME HERE WHEN A LEGITIMATE COMMAND IS FOUND 



70623 
70624 
70625 
70626 
70627 

70630 
70631 
70632 
70633 
70634 
70635 
70636 
70637 
70640 
70641 
70642 
70643 

70644 
70645 
70646 
70647 
70650 
70651 
70652 
70653 
70654 
70655 
70656 
70657 
70660 
70661 
70662 
70663 



160063 
002003 
056642 
026644 
060337 
017073 
005120 
046105 
040523 
042440 
046117 
043440 
044516 
006412 
026360 
071750 
071734 

064062 
160001 
010367 
002003 
026671 
006004 
160001 
030233 
114736 
102311 
026655 
102511 
002002 
026611 
103100 
044356 



SCHll LDA SCHID,I 
SZA,RSS 
CPB HI 
JMP SCH22 

SCH25 LDA .-16 

jsb type 

OCT 5120 



process CommAnO on^y tf 

ID#0 OR 
HELLO COMMAND, 

PRINT LOG IN MESSAGE 

LF-P 



ASC 6,LEASE LOG IN 



OCT 

JMP 

HI DEF 

DTAPR DEF 

SCH22 LDB 

LDA 

AND 
SZA, 

JMP 
INB 
LDA 
IOR 
JSB 
SFS 
JMP 
LIA 
SZA 
JMP 
CLF 
ADB 



6412 
SCHl 

HELLO 
CTAPR 
TTQ 

1,1 
TAPEF 
RSS 
SCH24 

lfl 
ILI 

S14SC,I 
CH2 

CH2 

EHERR 





TAPE 

MODE? 
NO 

YES»*CHECK 
FOR ADDITIONAL 

INPUT 
WAIT FOR 

ACKNOWLEDGMENT 

ILLEGAL INPUT? 

YES 

NO 
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0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

057! 

0572 

0573 

0574 

0575 

0576* 

^b77 

0578 

0579 

0580* 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600* 

0601 

0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 



70664 
70665 
70666 
70667 
70670 
70671 

70672 
70673 

70674 

70675 
70676 
70677 
70700 
70701 
70702 
70703 

70704 
70705 
70706 

70707 

70710 
70711 

70712 
70713 
70714 
70715 
70716 
70717 
70720 
70721 
70722 
70723 
70724 
70725 
70726 
70727 
70730 
70731 

70732 
70733 
70734 
70735 
70736 
70737 
70740 
70741 
70742 
70743 
70744 
70745 



060367 
003000 
110001 
170001 
102100 
160064 

053750 
026707 
053724 
026707 
053751 
026707 
160001 
010360 
002003 
026713 

062643 
070064 
026713 

060360 
003000 
110001 
170001 
044365 
160001 
002021 
026732 
160064 
053743 
026746 
053744 
026746 
053730 
026746 
053731 
026746 
053732 
026746 

064064 
046004 
006021 
026756 
060062 
002004 
050253 
017227 
064064 
046745 
124001 
100102 



IDA TAPEF 
CMA 

AND 1,1 

STA 1,1 

STF 

SCH24 LDA SCHP, I 

CPA HELLO 

JMP SCH27 

CPA SCR 

JMP SCH27 

CPA BYE 

JMP SCH27 

LDA 1,1 

AND TERR 
SZA,RSS 

JMP SCH26 

LDA DTApR 

STA SCHP 

JMP SCH26 



SCH27 LDA 
CMA 
AND 
STA 

SC H 26 ADB 
LDA 
SSA 
JMP 
LDA 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 



TERR 

1,1 
1,1 

,+?name 

1,1 

,RSS 
SCH28 
SCHP, I 
SAVE 
SCH29 
CSAV 
SCH29 

LIS 

SCH29 

PUN 

SCH29 

XPUN 

SCH29 



SCH28 LDB SCHP 

ADB MC0M2 
SSB,R$S 

JMP SCH12 

LDA TTQ 
INA 

CPA PRIST 

JSB SCLPR 

LDB SCHP 

ADB *+2 

JMP B,I 



CLEAR 
TAPE 
FLAG 



TEST FOR HELLO, BYE# OR SCRATCH 
OK TO PROCEDE IF ANY 
OF THESE, 



TEST FOR ANY TAPE ERRORS 



NO TAPE ERRORS.^CQNTXNUE, 

OTHERWISE, SET UP FOR EXECU< 
TION OF TAPE ERROR 
PRINTOUT ROUTINE, 

IF HELLO, BYE OR SCRATCH, 
CLEAR TAPE 
ERROR BIT 
AND PROCEED 

TEST FOR 

RUN*ONLY PROGRAM, 
NOT RUN.ONLY, 
IF RUN-ONLY, DQN*T 
ALLOW THESE 
COMMANDS, 



test for type i cqmmano, 
not type i, 

** type i command ** 
if user has lp, 

release it 
compute starting adoress 

for command processor 
and go there 



DEF C0M5«C0M1,I 



0614 70746 060345 SCh29 lDA .-10 
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0615 
0616 
0617 



0618 
0619 



70747 
7075(3 
70751 
70752 
70753 
70754 
70755 



017073 
005122 
052516 
020117 
047114 
054415 
026605 



JSB TYPE 

OCT 5122 LF.R 

ASC 3#UN ONL 



OCT 54415 y*CR 
JMP SCH20 



0621* 

0622* 

0623* 

0624 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646* 

0647* 

0648* 

0649 

0650 

0651 

0652* 

0653 

0654 

0655 
0656 

0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0001* 



TYPE II AND III COMMANDS 



70756 
70757 
70760 
70761 
70762 
70763 
70764 

70765 
70766 
70767 
7^77^ 
70771 
70772 
70773 
70774 
7^775 
7Q776 
70777 
71000 
71001 
71002 
71003 



044364 
060062 
040374 
174000 
040356 
044344 

006020 
026777 

064606 
174000 
064361 
040362 
174000 
007400 
044000 
026077 
072037 
046776 
164001 
174000 
006404 
026771 



SCH12 



DETERMINE PROGRAM STATUS, 



SC H 61 



SCH14 



SCH13 



ADB %SYNT*1 

LDA TTQ 

ADA t +?STAT 

STB 0,1 

ADA ,+?RSTR*?STAT A«>RE8TART ADDRESS 

ADB , + ^%S Y NT*C0M2»C0M3«»l TyPE II OR III ?? 

SSB 

JMP SCH13 TYPE II COMMAND 

LDB #LlB# TYPE in COMMANDS H*VE A STAN- 

STB 0,1 DARD STARTING ADDRESS AND 

LDB ,+2 PRIORITY 2, 

ADA i+ ?PLEV-?RSTR 

STB 0,1 

CCB GET LINK POINTER IN & AND GO 

ADB TO INSERT INTO QUEUE, 

JMP SCH3 

DEF C0M3*C0M5*C0Mj 

ADB *-l GET STARTING ADDRESS F0R TYPE 

LDB 1,1 II COMMANDS, 

STB 0,1 

CLB,INB GO SET PRIORITY TO 1 

JMP SCH14 



"SCRATCH" COMMAND 
#SCR 



71004 
71005 
71006 

71007 
71010 
71011 
71012 
71013 
71014 
71015 
71016 
71017 
71020 
71021 

71022 
71023 
71024 



064062 
017007 
026605 

000000 
060612 
003000 
110001 
170001 
060726 
054255 
070056 
044363 
170001 
044361 
002400 
170001 
127007 



LDB TTQ 

JSB scrat 

JMP SCH20 



SCRAT NOP 

LDA PUALT 
CMA 

AND B,I 

STA B,I 

LDA PBUFF 

CPB MAIN 

STA PBPTR 

ADB ,+?PROG 

STA 1,1 



ADB ,4.?NAME-?PRQG CLEAR 
CLA PROGRAM NAME 

STA 1,1 
JMP SCRAT, I 



B«>TTY TABLE, 

PERFORM SCRATCH FUNCTION, 

TERMINATE, 

SCRATCH A PROGRAM CB»>USERS TTY) 
REMOVE 
PROGRAM 
UNALTERED 
FLAG 
IF MAlNiB, SET PBPTR, 



8*»PROGEND 

RESET TABLE(PROG) 
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0002* 


"TAPE' 


1 COMMAND 








0003* 












0004 


71025 


103100 *TAp 


CLF 







0005 


71026 


064062 


LDB 


TTQ 


B •> ?FLAG 


0006 


71027 


006004 


INB 




B«> ?TNUM 


0007 


71030 


160001 


IDA 


B,l 


A* 7TNIJM 


0006 


71031 


030252 


IOR 


WTP 


ASK WHAT TYPE, 


0009 


71032 


114736 


JSB 


S14SC,I 




0010 


71033 


103100 


CLF 







0011 


71034 


102311 


SFS 


CH2 




0012 


71035 


027034 


JMP 


♦ •1 




0013 


? 4 n1£ 


102511 


LIA 


CH2 




0014 


71037 


002003 


SZA, 


,RSS 




0015 


71040 


027051 


JMP 


#TAP1 


TYPE #1, OK 


0016 


71041 


060345 


LDA 


.-10 




0017 


71042 


017073 


JSB 


TYPE 




0016 


71043 


005111 


OCT 


5111 


LF, I 


0019 


71044 
71045 
71046 


046114 
042507 
040514 


ASC 


3,LLEGAL 




0020 


71047 


006412 


OCT 


6412 


CR, LF 


0021 


71050 


0263^0 


JMP 


SCHl 


PRINT MESSAGE & TERMINATE^ 


0022 


71051 


064062 #jAPl 


LDB 


TT Q 


B »> FLAG wORD 


0023 


71052 


160081 


LDA 


l'l 




0024 


71053 


030367 


IOR 


TAPEF 


SET TAPE BIT 


0025 


71054 


170001 


STA 


1,1 




0026 


71055 


102100 


STF 







0027 


71056 


006004 


INB 






0028 


71057 


160001 


LDA 


1*1 


TELL 


0029 


71060 


030232 


IOR 


TPO 




0030 


71061 


114736 


JSB 


S14$C,I 


2114 


0031 


71062 


026605 


JMP 


SCH20 


TERMINATE, 


0032* 












0033* 












0034 


71063 


000000 #LtEN 


NOP 




CONvERj A # FROM 0.99 T° * 


0035 


71064 


006400 


CtB 




GET FIRST DIGIT IN A, 


0036 


71065 
71066 


100400 
000371 


DIV 


, + 10 


SECOND IN B. 


0037 


71067 


001727 


ALF, 


,ALF 


POSITION FIRST ON LEFT/ 


0038 


71070 


040001 


ADA 


1 


ADD IN SECOND, 


0039 


71071 


040530 


ADA 


ASC00 


ADD IN ASCII BITS, 


0040 


71072 


127063 


JMP 


#LTEN,I 


RETURN, 



0042* 

0043** TYPE 

0044* 

0045* 

0046* TyPE sends an entire STRING to a teletype, it is called as follows 

0047* A»»#OE CHARS-«MUST END ON RIGHT HALF OF WORD 

0048* JSB TYPE 

0049* <CHAR STRING> 

0050* RETURN 



0052 71073 000000 

0053 71074 073110 



TYPE 



NOP 

STA TYPET 



SAVE COUNTER 
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0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0865 

0067* 
0068* 
0069* 
0070* 
0071* 

0072* 
0073* 
0074* 
0075* 
0076* 
M77* 
0078* 
0079* 
0080* 
0081* 

0083 
0034 

0085 
0086 

0087 

0088 
0089 

0090 
0091 
0092 
00 9 3 
0094 
0095 
0096 
0097 
0098 
0099 

0100 

0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 



71075 163073 TYPEL LQA TYPE, I 

71076 067110 LDB TYPET 

71077 006011 SLB,RSS 
71100 001727 ALF,ALF 
7U01 004010 SIB 

71102 037073 ISZ TYpE 

71103 064062 LDB TTQ 

71104 114724 JSB OUTCH,I 

7H05 037110 ISZ TYPET 

71106 027075 JMP TYPEL 

71107 127073 JMP TYPE, I 
71110 000000 TYPET NOP 



GET WORD CONTAINING CHAR, 

GET COUNT IN B, 

IF COUNT IS EVEN, TAKE HIGH 

CHAR; 
IF COUNT IS ODD, 

BUMp TYPE, 
OUTPUT CHARACTER TO TTY 

ANY MORE? 

YES. 

NO, 



SCOM 

SCOM SCANS A COMMAND INPUT BUFFER TO DETERMINE WHAT 
THE COMMAND IS. THE CALLING SeQUeNCe TO SCOM ISI 

JSB SCoM 

<RETURN IF BLANK LINE> 

<RETURN IF FIRST CHARACTER A DIGIT> 

<RETURN IF NO L EGA L CQMMAnD> 

<RETURN IF COMMAND FOUNE— ,B«COMMAND ADDRESS* 

SCOM ASSUMES THAT BEFORE IT IS CALLED, SBhED AND 
SCHL ARE INITIALIZED AS REQUIRED BY SqHAR,, AND 
SCHP«0 FOR NORMAL USERS AND OCT40 FOR CONSOLE, 



111 
112 

113 
114 
115 
116 
117 

120 
121 
122 
123 
124 

125 
126 
127 
130 
131 
132 
133 
134 
135 
136 
137 
140 
141 
142 
143 



000000 
064354 
074065 
017540 
127111 
037111 
042001 

002020 
037111 
040345 
002021 
027136 
064064 
006002 
127111 
064062 
006004 
160001 
030245 
114736 
127111 
037111 
042002 
002021 
127111 
040411 

002020 



sc m n p 

LDB 

STB 

JSB 

JMP 

ISZ 

ADA 

SSA 

ISZ 

ADA 

SSA, 

JMP 

LDB 
SZB 
JMP 
LDB 
INB 
LDA 
IOR 
JSB 
JMP 

SCOME ISZ 
ADA 

SCOMB SSA, 
JMP 
ADA 
SSA 



t *3 
SCNT 
SCHAR 
3COM, I 

SCOM 
M60B 

SCOM 

M *10 

RSS 

SCOME 

SCHP 

SCOM, I 
TTQ 

1,1 

BKS 

S14SC,I 

SCOM, I 

SCOM 

M4IB 

RSS 

SCOM, I 

.+32B 



ENTRY POINT, 

INITIALIZE CHAR, COUNT TO *3 

GET A CHARACTER, 
NOT THERE-BLANK LINE, 
BUMP SCOM TO POINT AT DI©IT RET. 
TEST FOR FIRST CHAR A DIGIT, 
AUTOMATIC FAILURE IF 
< ASCB 

IF <*ASC9f RETURN TO P+2 IF a 
DIGIT, P*3 IF NOT 

CONSOLE? 

YES 

NO 

TELL 2114 

TO BACKSPACE 



TEST FOR LETTER, 
NOT ALETTER, 



PAGE 0313 #26 SCHEDULER 



0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120* 

0121* 

0122* 

01 2 3 

0124 

0125 

0126 

012; 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0U0 



71144 

71145 
71146 
71147 
71150 
71151 
71152 
71153 
71154 
71155 



127111 

030064 
034065 
001732 
027156 
070064 
017540 
127111 
042003 
027140 



JMP 

IOR 

ISZ 

ALF, 

JMP 

STA 

JSB 

JMP 

ADA 

JMP 



SCOM,I 

SCHP 

3CNT 

SLA^RAL 

SCOMA 

SCHP 

SCHAR 

SCOM,I 

M133B 

SCOMB 



NOT A LETTER, 

TEST FOR 3 LETTERS IN, 
NO—ROTATE FOR NEXT ONE. 
YES*-GO TO SEARCH TABLE. 

GET NEXT CHARACTER 
FAIL. 



search Command table 

71156 064746 scoma ldb scoml b»*table 

71157 002020 SSA 

71160 044431 ADB ,+C0M4*C0Ml 

71161 150001 SCOMD CPA 1,1 

71162 027167 JMP SCOMC 

71163 054760 CPB SC0M5 
7H64 127111 JMP 3COM, I 

71165 006004 INB 

71166 027161 JMP SCOMD 

71167 037111 SCOMC ISZ SCOM 

71170 074064 STB SCHP 

71171 017540 JSB SCHAR 

71172 027176 JMP #+4 

71173 050434 CPA , + 55B 

71174 002001 RSS 

71175 027171 JMP *-4 

71176 064064 LDB SCHP 

71177 127111 JMP -3COM, I 



COMMAND FOUND 
ILLEGAL COMMAND 



RETURN O.K. 

SAVE ADDRESS OF COMMAND, 

SCAN 

FOR CR 
OR DASH, 
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0142* 












« 


0143** 












0144*** 


RELEASE LINE 


PRINTER 




0145** 












0146* 














0147* 














0148** SCRLP » USER BUFFER 


MAY BE FULL 


0149* 




MLINK*i 


• POINTER TO 


USER 


0150* 














0151** sCLrr - USER BUFFER 


EMpTY 




0152* 




TTO * POINTER TO USER 




0153* 














0155 


71200 


000000 


SCRLP 


NOP 






0156 


71201 


064272 




ldb 


MLINK+l 


INITIALIZE 


0157 


71202 


044341 




ADB 


f »?LINK 


POINTER TO 


0158 


71203 


077246 




STB 


RLPFW 


USER'S FLAG WORD 


0159 


71204 


060351 




LDA 


t «*6 




0160 


71205 


073247 




STA 


RLPCT 


SET COUNTER 


0161 


71206 


063245 




LDA 


LPMES 


INITIALIZE POINTER 


0162 


71207 


073250 




STA 


RLPTR 


TO MESSAGE BUFFER 


0163 


71210 


163250 


RLP 


LDA 


RLPTR, I 


LOAD NEXT WORD FROM THE BUFFER 


0164 


71211 


001727 




H.F, 


,AlF 


A»lEFT CHARACTER 


0165 


71212 


067246 




LDB 


RLPFW 


«> FLAG WORD 


0166 


71213 


114724 




JSB 


OUTCH,I 


OUTPUT CHARACTER 


0167 


71214 


163250 




LDA 


RlPTR,I 


A«rIGHt CHARACTER 


0168 


71215 


067246 




LDB 


RLPFW 


■>FLAG WORD 


0169 


71216 


114724 




JSB 


OUTC H #I 


OUTPUT CHARACTER 


0170 


71217 


037250 




ISZ 


RLPTR 


INCREMENT POINTER 


0171 


71220 


037247 




ISZ 


RLPCT 


DONE? 


0172 


71221 


027210 




JMP 


RLP 


NO 


0173 


71222 


060243 




LPA 


LPD 


YES, TELL I/O PROCESSOR 


0174 


71223 


114 7 36 




JSB 


S14SC#I 


TO REMOVE USER FROM LP 


0175 


71224 


002400 




CLA 




REMOyE u s ER FR OM 


0176 


71225 


070253 




STA 


PRIST 


SYSTEM INDICATOR 


0177 


71226 


127200 




JMP 


SCRLP, I 




0179 


71227 


000000 


SCLPR 


NOP 






0180 


71230 


060343 




LDA 


,*12 


A 9 «# OF CHARACTERS 


0181 


71231 


017073 




JSB 


TYPE 


OUTPUT MESSAGE 


0182 


71232 


011423 


lpm 


OCT 


11423 


X-OFF, X-OFF 


0183 


71233 


005114 




OCT 


5114 


LF, L 


0184 


71234 
71235 
71236 


050040 
043122 

042505 




ASC 


3#P FREE 




0185 


71237 


006412 




OCT 


6412 


CR, LF 


0186 


71240 


060243 




LDA 


LPD 


TELL I/O PROCESSOR TO 


0187 


71241 


114736 




JSB 


S14SC,I 


REMOVE USER FROM LP 


0188 


71242 


002400 




CLA 




REMOVE USER FROM 


0189 


71243 


070253 




STA 


PRIST 


SYSTEM INDICATOR 


0190 


71244 


127227 




JMP 


SCLPR, I 




0192 


71245 


071232 


LPMES 


def 


LPM 




0193 


71246 


000000 


RLPFW 


BSS 


1 




0194 


71247 


000000 


RLPCT 


BSS 


1 
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0197* 
0198* 
0199* 
0200* 
0201* 
0202* 
0203* 
0204* 
0205* 

0206* 
0207* 

0206* 
0209* 
0210* 
0211* 



* 
** 



SWAPr 



THE SWAPr rOutINE I S CALLED FrOM VARIOUS POINTS IN THE SCHEDULER 
IN ORDER To DETERMINE IE A PROGRAM 13 READY TO RUN. IT IS Al8Q 
CALLED WHENEVER THE QUEUE IS UPDATED, THE FUNCTION OF SWAPR IS TO 
DETERMINE IF THERE IS A PROGRAM ON THE QUEUE, AND IF SO, IS THE 
PROGRAM AT THE HEAD OF THE QUEUE READY TO RUN, IF SAID PROGRAM IS 
NOT READY, SWaPR INITIATES THE NECESSARY DRUM TRANSFERS, SWAPR IN« 
DICATES WHETHER A PROGRAM CAN BE RUN OR NOT AS FOLLOWS? 

REApY t NORMAL RETURN 
NOT READY* TRANSFER TO SCHl 



0213 
0214 
0215 
0216 
0217 

021* 
0219 

0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 

0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 



71251 
71252 
71253 
71254 
71255 
71256 
71257 

71260 
71261 
71262 
71263 
71264 
71265 
71266 
71267 
71270 
71271 

71272 
71273 
71274 
71275 
71276 
71277 
71300 
71301 
71302 
71303 
71304 
71305 
71306 
71307 
71310 
71311 
71312 
71313 
71314 
71315 
71316 
71317 



000000 
060203 

002020 
026360 
066017 

006002 
027324 

066020 
006003 

027276 

060520 
003000 
103100 

11202® 
064203 

006002 
030520 
172020 
102100 
006400 

076020 
064272 
054271 
026360 
060313 
050356 
027335 
060772 
030311 
054263 
002003 
027335 
060276 
003004 
040440 

002020 
027335 
017610 
060276 



SWAPR NOP 

L DA 
SSA 

JMP 

LDB 

SZB 

JMP 

LDB 

SZB, 

JMP 

LDA 

CMA 
CLF 
AND 
LDB 
SZB 
IOR 
STA 
STF 
CLB 
STB 
SW A P7 LDB 
CPB 
JMp 
LDA 
CPA 
JMP 
LDA 

IOR 
CPB 

SZA, 

JMP 

LDA 

CMA, 

ADA 

SSA 

JMP 
JSB 
LDA 



mBusy 

SCHl 

SMAIN 

SWAPS 

FMAIN 

RSS 

SWAP7 

MBUST 



FMAIN, I 
MBuSY 

MBUST 
FMAIN, I 


FMAIN 

MLINK+1 

MLINK 

SCHl 

T35F3 

• •1 

8WAP4 

LOGCT 

T35F1 

T35LN 

RSS 

SWAP4 

T35ST 

INA 

,+%SYNT< 

SWAP4 
DEQUE 
T35ST 



TEST FOR 
DISC BUSY 

wait for transfer completion 

was swapr doing a transfer? 
yes, go check success 
no, have we saved 

driver flags for this user? 
yes, don't save current ones 
no, save disc 

"NOT BUSY" 

FLAG IN 

THIS USER'S 

FLAGS WORD 
SAY DRIVER 

FLAGS SAVED 
GET FIRST QUEUE ENTRY 
TEST FOR QUEUE EMPTY, 
EMpTY*«NOTHlN& To DO. 
HAS A COMMAND BEEN 

ENTERED BUT NOT STARTED? 
YES • GO START IT 
NO, IS THERE 

CURRENT OR 
IMMINENT 

OUTPUT TO TTY35? 
NO 
GET THE STATUS 

f +l*R0S*CQM2 

CHECK TO SEE IF THIS IS 
A ROUTINE THAT CAN'T BE DEQUED 
SUSPEND UNTIL ITS DONE, 
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0252 

0253 

0254 

0255 

0256* 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 



71320 070300 

71321 060362 

71322 070276 

71323 027252 



71324 
71325 
71326 
71327 
71330 
71331 
71332 
71333 
71334 



002400 
072017 
050203 
027276 
070203 
006020 
i 14207 
124210 
026360 



STA T35PR 

IDA XOUTW 

STA T35ST 

JMP SWAPR+1 

3WAP5 ClA 

STA SMAIN 

CPA MBUSY 

JMP SWAP7 

STA MBUSY 

SSB 

JSB SICKP f I 

JMP PTZAP#I 

JMP SCHi 



CLEAR "8WAPR invoked 

TRANSFER" FLAG 
WAS DISC TRANSFER SUCCESSFUL? 
YES, CONTINUE 
NO, CLEAR MBUSY FOR KICKS 
WERE WE SWAPPING A USER? 
NO, GO FOLD CQN GRACIA 
YES, GO FLUSH HIM OR HER 



0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281* 

0282* 

0283* 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0299* 

0300** 

0301* 

0302 

0303 

0304 

0305 

0306 



71335 
71336 
71337 
71340 
71341 
71342 
71343 
71344 
71345 
71346 
71347 
71350 
71351 
71352 



044356 
160001 
050355 
060406 
040344 
002021 
027406 
044342 
054255 
127251 
060255 
002002 
027372 
074255 



SWAP4 ADB ,*?STAT*?LINK *> STATUS OF FIRST ENTRY 
LDA 1,1 A*STATUS 



CPA 



TEST FOR SPECIAL DISCONNECT, 



LDA %SYNm*BYE«-C0M2 

ADA f *5*COM2*C0M3 TEST FOR TYPE II OR III, 

SSA,RSS 

PROGRAM IS OF TYPE III, 
TEST FOR PROGRAM IN CORE, 



JMP SWAP3 
ADB ,-?STAT 
CPB MAIN 
JMP SWAPR,I 
LDA MAIN 
SZA 

JMP 8WAP1 
STB MAIN 



PROGRAM PRESENT, 

FIND OUT WHAT PROGRAM IS, 

IS ANy PROGRAM PRESENT? 

YES, 

SET MAIN TO NEW PROGRAM, 



INITIATE DISC TO CORE TRANSFER 



71353 
71354 
71355 
71356 
71357 
71360 
71361 
71362 
71363 
71364 
71365 
71366 
71367 
71370 



076017 
044363 
160001 
070056 
003000 
041213 
070204 
044355 
060001 
065214 

114201 
102030 
102031 
026360 



STB SMAIN 



SAVE TABLE OF USER IN QUESTION 



ADB ,+?PROG B**PROGRAM END LOCATION, 

LDA 1,1 COMPUTE NUMBER QF 

STA PBPTR 

CMA WORDS IN PROGRAM, 

ADA USE 

STA MWORD SAVE ^LENGTH 

ADB ,+?DISC~?PROG 

LDA B A *> DISC ADDRESS 

LDB USEI B*CORE ADDRESS 

SWAP8 JSB DISCA,I CALL DISC DRIVER 

HLT DEATH+30B DRIVER BUSY 

HLT DEATH+31B DISC NOT PRESENT 

JMP SCHI RETURN BUSY, 



INIjIAtE CORE TO DISC TRANSFER 



71371 
71372 
71373 
71374 
71375 



060255 
072017 
006400 
074255 
040363 



SWAP2 
SWAP1 



LDA 
STA 
CLB 

STB 
ADA 



MAIN 
SMAIN 

MAIN 
,+?PRQG 



SAVE TABLE *> OF 
SET MAIN TO SAY 

NO USER IN CORE 
SAVE PROGRAM 



USER 
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0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 



71376 
71377 
7M00 
71401 
71402 
71403 
71404 
71405 



064056 
174000 
007000 
045213 
074204 
040355 
065213 
027365 



lob pbptr end location 

STB A, I 

CMB COMPUTE AND 

ADB USE SAVE .TRANSFER 

STB MWORD LENGTH 

ADA ,+?DISC~?PROG «> DISC ADDRESS 

LDB USE p CORE ADDRESS 

JMP SWAPS GO START DISC WRITE 



0316* 

0317** 

0318* 

0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 

0330 
0331 

0332 
0333 
0334 
0335 
0336 
0337 
033s 
0339 
0340 
0341 
0342 

0343 
0344 

0345 
0346 
0347 
0348 

0349 
0350 
0351 



TYpE III PROGRAMS 



71406 
71406 
71407 
71410 
71411 
71412 
71413 
71414 
71415 
71415 

71416 
71417 

71420 
71421 
71422 
71423 
71424 

71425 
71426 
71427 
71430 
71431 
71432 

71433 
71434 
71435 
71436 
71437 
71440 
71441 
71442 
71443 



160001 
050425 
002401 
027415 
044361 
170001 
044355 

044356 
160001 
050606 

070264 
044360 
160001 
050355 
060406 
040344 
064255 
006002 
027371 
001000 
042012 
050256 
127251 
070256 
064315 
074204 
007400 
076017 
064610 
027365 



SWAP3 EQU 
L DA 
CPA 
CLA, 
JMP 
ADB 
STA 
ADB 

SWAP6 EQU 
ADB 
IDA 
CPA 
STA 
ADB 
LDA 
CPA 
LDA 
ADA 
LDB 
SZB 
JMP 
ALS 
ADA 
CPA 
JMP 
STA 
LDB 
STB 
CCB 
STB 
LDB 
JMP 



* 

B,I GET STATUS 

,+%SYNT-» t 4l*OPE»COM2 

RSS SET PRIORITY TO IF OPEN 

S.WAP6 

.+?PLEV»?STAT 

B,I 

t +?STAT^?PLEV 

* 

,+?RSTR^?STAT B i> RESTART ADDRESS 

8,1 

#LIB# IF THIS A FRESH CAUf 

LCHCR ZAP THE LCHCR FLAG 

,+?STAT*?RSTR 

B,I 

.-2 

XSYNT+1+BYE-C0M2 

t *5*C0M2»C0M3 

MAIN TEST FOR MAIN PROGRAM IN CORE 



SWAP2 

DC0M6 

LIB 

SWAPR,I 

LIB 

M512 

MWORD 

SMAIN 
#LIBI 
SWAPS 



GO TO WRITE OUT MaIN PROGRAM, 

MULTIPLY BY 2 

A«> LIBRARY PROGRAM DISC ADDRESS 

IS IT IN CORE? 

YE3«*RETURN PRESENT. 

IF NOT, INITIATE READ IN, 

LENGTH OF PROGRAM » 512 

SMAIN « -1 SEZ 

READING LIBRARY PROGRAM 

INITIATE DISC READ 



0353* 

0354** 

0355* 

0356 

0357 

0358 

0359 

0360 



ENTRY POINT FOR INPUT REQUEST 



71444 000000 

71445 103100 

71446 064272 

71447 044342 
71450 130001 



SCHIQ NOP 

CLF 

LDB MLINK-fl 

ADB t +?TNUM««?LINK 

IOR i # I TELL 2114 



INTERRUPT INHIBIT. 
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0361 


71451 


114736 


JSB 


Sl4SC,I 


ABOUT INPUT WAIT 


0362 


7U52 


103100 


CLP 







0363 


71453 


044372 


ADB 


,*?RSTR* 


• ?TNUM 


0364 


71454 


063444 


LDA 


SCHIQ 




0365 


71455 


170001 


8TA 


1,1 




0366 


71456 


006004 


INB 




get program type 


0367 


71457 


160001 


IDA 


1,1 




0368 


71460 


002020 


SSA 




QUIT IF ABORT REQUEST, 


0369 


71461 


027662 


JMP 


SUSP 




0370 


71462 


044361 


ADB 


t +?PLEV- 


»?STAT 


0371 


71463 


170001 


STA 


1,1 


SET INTO PLEV. 


0372 


71464 


044355 


ADB 


S +?STAT« 


>?PLEV 


0373 


71465 


060361 


LDA 


XINPT 


CHAN6E STATUS TO 


0374 


71466 


170001 


STA 


1,1 


INPUT WAIT, 


0375 


71467 


027662 


JMP 


SUSP 


GO REMOVE FROM QUEUE. 


0377* 












0378** ENTRY POINT FOr TERMINATION 




0379* 












0380 


71470 


103100 


SCHEQ CLF 







0381 


71471 


060260 


LDA 


HQDIS 


DID THIS GUY TRY TO 


0382 


71472 


002003 


SZA, 


,RSS 


DISCONNECT? 


0383 


71473 


027507 


JMP 


SCHQ1 


NO 


0384 


71474 


002400 


CLA 




YES 


0385 


71475 


070260 


STA 


HQDIS 


RESET DISCONNECT FLAG 


0386 


71476 


064272 


LDB 


MLINK+1 




0387 


71477 


044341 


ADB 


,«?LINK 




0388 


71500 


160001 


LDA 


1,1 


SET 


0389 


71501 


030462 


IOR 


COM14 


COMMUNICATIONS 


0390 


71502 


170001 


STA 


1,1 


BIT 


0391 


71503 


044374 


ADB 


,+?STAT 




0392 


71504 


060355 


LDA 


XDISC 


SET STATUS 


0393 


71505 


170001 


STA 


1,1 


TO DISCONNECT 


0394 


71506 


027662 


JMP 


SUSP 




0395 


71507 


060272 


SCHQ1 LDA 


MLINK+1 


DOES THIS 


0396 


71510 


040342 


ADA 


,+?TNUM« 


•?LINK USER HAVE 


0397 


71511 


050253 


CPA 


PRIST 


THE LINE 


0398 


71512 


002001 


RS8 




PRINTER? 


0399 


71513 


027523 


JMP 


SCHQ3 


NO 


0400 


71514 


060254 


LDA 


LFLAG 


YES - IS THE LPR 


0401 


71515 


002002 


SZA 




COMMAND FLAG SET? 


0402 


71516 


027521 


JMP 


SCHQ2 


YES 


0403 


7l5l7 


072»4l 


STA 


CLC1 


NO, BLOCK CLOCK 


0404 


71520 


017200 


JSB 


SCRLP 


REMOyE ySER FROM IP 


0405 


71521 


002400 


SCHQ2 CLA 




CLEAR 


0406 


71522 


070254 


STA 


LFLAG 


FLAG 


0407 


71523 


064272 


SCHQ3 LOB 


MLINK+1 


SCRATCH IF 


0408 


71524 


054263 


CPB 


T35LN 




0409 


71525 


027531 


JMP 


*+4 




0410 


71526 


044341 


ADB 


,«?LINK 


THIS IS 


0411 


71527 


017711 


JSB 


HTEST 


$HELLO t 


0412 


71530 


064272 


LDB 


MLINK+1 


CHANGE 


0413 


71531 


044356 


ADB 


t +?STAT" 


>?LINK STATUS 


0414 


71532 


160001 


LDA 


1,1 




0415 


71533 


0503*56 


CPA 


,-1 


QUIT IF ABORT REQUEST. 


0416 


71534 


027662 


JMP 


SUSP 
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TO IDLE 



0417 


71535 


002400 


CLA 




0418 


71536 


170001 


STA 


1,1 


0419 


71537 


027662 


JMP 


SUSP 
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0421* 
0422* 
0423* 
0424* 
0425* 
0426* 
0427* 
042B* 
0429* 
0430* 
0431* 
0439* 
0433* 

0435 
0436 
043/ 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 

0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 



SCHAR 

SCHAR FETCHES THE NEXT CHARACTER FROM A BUFFER. BUFFER 

POINTERS FOR SCHAR ARE INITIALIZED AS FOLLOWS: 

S BHED«> FIRST CHArACtEr IF TTY35I «0 OtHErWIsE 

SCHL,I«> END OF TTY35 BUFFER 

SChAR CALLING SEQUENCE* 

JSB SCHAR 

RETURN HERE IF CR 

RETURN HERE if ANY OThER CHARACTER 



71540 
71541 
71542 
71543 
71544 

71545 
71546 
71547 
71550 
71551 
71552 
71553 
71554 
71555 
71556 
71557 
71560 
71561 
71562 
71563 
71564 
71565 
71566 
71567 
71570 
71571 
71572 
71573 
71574 
71575 
71576 
71577 
71600 
71601 
71602 
71603 
71604 
71604 
71605 
71606 
71607 



000000 
064060 
006003 
027562 
0040$5 
160001 
005610 
002001 
001727 

010500 
050374 

127540 
006004 
074060 
050417 
027542 
037540 
127540 
064062 
006004 
160001 
030215 
114736 
102311 
027567 
102511 
050417 
027564 
050374 
027604 
040317 
002021 
040450 
042000 
037540 
127540 

160001 
030245 
114736 
127540 



SC H AR NOP 
LD8 
SZB, 
JMP 
CLE, 
LDA 
£LB, 
RSS 
ALF, 
AND 

CPA 
JMP 
INB 
STB 

CPA 
JMP 

ISZ 

JMP 
SCHR1 LDB 
INB 
LDA 
' IQR 
JSB 
SFS 
JMP 
LIA 
CPA 
JMP 
CPA 
JMP 

ADA 
SSA, 
ADA 
ADA 
ISZ 
JMP 
SCHR2 EQU 
LDA 
lOR 
JSB 
JMP 



SBHED 
RSS 
SCHRl 
ERB 

SLB 

ALF 
B377 
# + 15B 
SCHAR, I 

SBHED 
, + 40B 
SCHAR+2 
SCHAR 
SCHAR, I 
TTQ 

l'l 
GTC 

S14SC,I 

CH2 

CH2 
,* 4 0B 

SCHRU2 
. + 15B 

SCHR2 

M96 

RSS 

M32 

B140 

SCHAR 

SCHAR, I 

* 

1,1 
BKS 

S14SCI 
SCHAR, I 



GET POINTER, 
TTY35? 
NO 

YES—POSITION AS WORD POINTER 
GET WORD CONTAINING CHARACTER, 
REPOSITION POINTER AND TEST 
FOR UPPER OR LOWER, 

MASK OUT CHARACTER, 
RETURN IMMEDIATELY IF CR 

BUMP CHARACTER POINTER, 
SKIP BLANKS 



FETCH 

character 

From 2114 
wait for response 



BLANK? 

YES»*IGNORE IT 

NO, CARRIAGE RETURN? 

YES 

CHECK FOR CODES 

GREATER THAN 140, 
CODE IS LOWER CASE, MAKE UPPER, 
RESTORE ASCII CODES, 
NO»«EXIT 
TO (P+2) 

B»>TTY U 
TELL 2114 

TO BACKSPACE 
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Q477* 

0478*- 

0479* 

0480* 

0481* 

0482* 

0463 

0484 

0485 

0486 

0487 
0488 
0489 
0490 
0491 
0492 
0493 



DEQUE 

DEQUE REMOVES A USER FROM THE QUEUE, IT IS CALLED WITH THE USERtS 
LINK ADDRESS IN B, 



71610 000000 DEQUE NOP 

71611 060271 IDA MLINK 

71612 154000 DEQi CPB 0,1 

71613 027620 JMP DEQ2 

71614 160000 LDA 0,1 

71615 050271 CPA MLINK 

71616 127610 JMP DEQUE, I 

71617 027612 JMP DEQl 

71620 164001 DEQ2 LDB 1,1 

71621 174000 STB 0,1 

71622 127610 JMP DEQUE,! 



GET POINTER TO FIRST ENTRY. 
TEST FOR ENTRY FOUND, 

LINK TO NEXT ENTRY, 

TEST FOR END OF QUCUI S 

NOT ON QUEUE*«RETURN, 

LOOP, 

LINK AROUND THIS USlR. 
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0495* 
0496* 
0497* 
0498* 
0499* 
0500* 
0501* 
0502* 
0503* 
0504* 
0505* 



THE OUTCH ROUTINE OUTPUTS A CHARACTER TO A USERt8 
BUFFER IN THE 2^4, THE CALLING SEQUENCE IS* 



JSB OUTCH, I 



A*CHARACTER 
B»TTY TABLE 



TO BE OUTPUT 
ADDRESS. 



OUTCH FIRSt CHECKS tO MAKE SuRE THAT THE 2114 CAN ACCEPT 
CHARACTERS, IF NOT, THE USER IS PLACED IN OUTPUT WAIT STATUS 
AND A TrAN S FEr Is MADE INTO THE SYSTEM TO DELETE THE USER 
FROM THE QUEUE 



0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 

0515 
0516 
0517 

0518 

0519 

0520 

0521* 

0522* 

0523* 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546* 

0547 

0548 



71623 

71624 

71625 
71626 

71627 
71630 
71631 
71632 
71633 
71634 
71635 
71636 
71637 
71640 



000000 

103100 
010500 
072014 

160001 
010417 

002002 
027641 
006004 
160001 
032014 

030213 
114736 
127623 



#OUTC NOP 
CLF 
AND 
STA 
LDA 
AND 
SZA 
JMP 

INB 
LDA 
IOR 
IOR 
JSB 
JMP 



B377 

OUTMl 

1,1 

OUTWT 

OUTCl 

l'l 

OUTMl 
OCR 

SHLPfl 
#OUTC,I 



MASK AND 

SAVE CHARACTER 

CAN 2114 

TAKE THIS 
CHARACTER? 
NO 
YES 
BUILD OUTPUT WORD 

WITH USER'S TTY 
CHARACTER AND 
CALL 2114 DRIVER 



OPCODE, 



TAKE CARE OF FULL BUFFER IN 2114 



71641 
71642 
71643 
71644 
71645 
71646 
71647 
71650 

71651 
71652 

71653 
71654 

71655 
71656 
71657 
71660 
71661 
71662 
71663 
71664 
71665 
71666 

71667 
71670 



044374 

160001 

002020 

027662 

044361 

170001 
044355 

060362 
170001 
003400 
043623 
044356 
170001 
062014 
071224 
044343 
075225 
160272 
070272 
002400 
072041 
026360 

000000 
103100 



OUTCl ADB 
LDA 

SSA 
JMP 
ADB 
STA 
ADB 
LDA 
STA 
CCA 
ADA 
ADB 
STA 
LDA 
STA 
ADB 
STB 
LDA 
StA 
CLA 
STA 
JMP 



SUSP 



,+?STAT 
ltl 

SUSP 
,*?PLEV. 

1,1 

,+?STAT' 
XOUTW 
1,1 

#OUTC 
,+?RSTR- 

1,1 
OUTMl 

AREg 

t ~?RSTR 

BREG 

MLINK+1, 

MLINK+1 

CLCi 
SCH1 



IF ABORTED GO DIRECTLY 
TO SUSPEND, 
7STAT MOVE STATUS TO 

PLEV AND SET 
»?PLEV STATUS TO 
OUTWAJT, 

SET RETURN ADDRESS TO 
RECALL OUTC 
?STAT 



SCHOQ NOP 

CLF 



LOCK 

CLOCK 
JUMP TO SCHEDULER 

OUTPUT SUSPEND REQUEST ENTRY, 
TURN OFF INTERRUPT, 
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0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 

0557 

0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 



71671 
71672 
71673 
71673 
71674 
71675 
71676 
71677 

71700 
71701 
71702 

f 4 ia-\ 

r t, r w v 

71704 
71705 
71706 
71707 
71710 



063667 

002004 

073623 
064272 
044341 
160001 
030417 

170001 
006004 
160001 
030237 
114736 
103100 
064272 
044356 
027642 



SCHSQ 



LDA 
INA 
EQU 
STA 
LDB 
AOB 
LDA 
IOR 
STA 
IN8 
LDA 
IQR 
JSB 

CLF 
LDB 
ADB 
JMP 



SCHOQ 

#OUTC 

MLINK+1 

,»?LINK 

1,1 

OUTWT 

1,1 



SET UP RETURN ADDRESS, 



1,1 

OWT 

S14LP, I 



MLINK+1 

, + ?STAT«*?LINK 

OUTC1+1 



SET OUTPUT WAIT BIT 



PUT USER 



IN OUTPUT WAIT 
NO INTERRUPTS DURING SUSPEND 
FOOL QUTCR INTO DOING THE WORK, 



0567* 
0568* 
0569* 
0570 

0571 
0572 

0573 
0574 
0575 
0576 
0577 
0578 

0579 
0580 



HTEST SCRATCHES A PROGRAM IF THE ASSOCIATED HFLAG BIT \% SET t 
B POINTS TO THE USER'S TTY ADDRESS, 



71711 000000 HTEST NOP 

71712 160001 LDA 1,1 

71713 010363 A ND HFLAG 

71714 002003 SZA,RSS 

71715 127711 JMP HTEST, I 

71716 103100 CLF 

71717 120001 XOR 1,1 

71720 170001 STA 1,1 

71721 102100 STF 

71722 017007 JSB SCRAT 

71723 127711 JMp HTEST,! 



GET HFLAG BIT, 

RETURN IF HFLAG BIT *0, 

CLEAR HFLAG BIT 

RETURN. 
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0002* 

0003** 

0004** 

0005** 

0006* 

0007* 

0008* 

0009* 

0010* 
0011* 
0012* 
0813* 
0014* 
0015* 
0016* 
0017* 

0018* 
0019* 
0020* 
0021* 
0022* 
0023* 

0024* 
0025* 
0026* 
0027* 
0028* 
0029* 
0030 

0031 

0032 

0033 

0034* 

0035* 

0036* 

0037 

0038 

0039 

0040 

0041 

0042 

0043* 

0044* 

0045* 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



COMMAND TABLE 



THIS TABLE CONSISTS OF T W PARTS, PART 1 CONTAINS THE ENCODED 
SYMBOLIC COMMANDS. THESE ARE CODED AS THREE BYTES, EACH BYTE 
BEING OF LENGTH 5 BITS AND OF OcTaL VALUE 101 LESS THAN THE 
OCTAL vALuE OF THE CHARACTER, THE THREE BYTES ARE IN BIT P03I» 
TIONS l4~10,9*5# AND 4*&* RESPECTIVELY, BIT 15 IS SET TO 1 FOR 
C MMA N DS THAT ARE LEGAL FoR THE SYSTEM CONSOLE. 

part i is itself divided into 3 sections, commands in section 1 

ArE THOSE CoMMA N DS WHICH ARE HANDLED IMMEDIATELY BY THE EXECUTIVE 
WITHOUT ANY DISC ACCESS, THOSE IN SECTION 2 ARE COMPILER COMMANDS 
WHICH ARE RESIDENT BUT WHICH REQUIRE THE PROGRAM TO BE LOADED 
FROM DISC. COMMANDS IN SECTION 3 ARE SYSTEM COMMANDS WHICH ARE 
DISC RESIDENT. A L L SYSTEm COMMANDS ARE Q? THIS TYPE AND MUST BE 
LOCATED AFTER COM4, 

Part 2 OF THE COMMAND TABLE C0N T AIN S THE CO R E STArT^ ADDRESSES 

for t h ose commands in sections t and 2, and The two word disc 

ADDRESSES OF THOSE IN SECTION 3 t 
PART I 



SECTION I 



71724 

71724 
71725 
71726 



044121 

046017 
024230 



C0M1 
SCR 



OCT 
EQU 
OCT 
OCT 



44121 
C0M1 
46017 
24230 



SECTION II 



71727 
71730 
71731 
71732 
71733 
71734 



043215 
026422 
037215 

05g76 4 
\77777 

±77777 



COM2 OCT 43215 

LlS OCT 26422 

PUN OCT 37215 

XPUN OCT 056764 

UCDAB OCT *1 

CTaPR OCT »1 



SECTION III 



71735 
71736 
71737 

71740 
71741 

71742 
71743 
71744 
71745 
71746 
71747 
71750 



\77777 
[77777 
X77777 
±77777 
177777 
X77777 
044025 
005100 

177777 
014223 
000757 
016213 



COM3 



COMFL 

ASGNA 

COMCH 

SAVE 

CSAV 

SAVO 



HELLO 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



m I 
•1 
-1 
•1 
•1 
*1 

44025 

5100 

-1 

14223 

757 

16213 



SCRATCH 

TAPE 
KEY 



RUN 

LIST 

PUNCH 

XPUNCH 

FOR ABORT UPDATE CHANGE DATE 

USED FOR TAPE ERROR PRINTOUT, 



FOR LENGTH SECTION 
FOR TWO HALVES 

OF FUSS TABLE 
FOR FILES 
ASSIGN 
FOR CHAIN 
SAVE 
CSAVE 

FOR SAVE OVERLAY 
GET 

APPEND 
HELLO 
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0058 


71751 


003404 


BYE 


OCT 


3404 


BYE 


0059 


71752 


024413 




OCT 


24413 


KILL 


0060 


71753 


042215 




OCT 


42215 


RENUMBER 


0061 


71754 


032014 




OCT 


32014 


NAME 


0062 


71755 


004023 


CAT 


OCT 


004023 


CATALOG 


0063 


71756 


026401 




OCT 


26401 


LIBRARY 


0064 


71757 


015056 




OCT 


15056 


GROUP 


0065 


71760 


006421 




OCT 


6421 


DIRECTORY * USER CONSOLE 


0066 


71761 


042217 




OCT 


42217 


REPORT • USER CONSOLE 


0067 


71762 


045140 




OCT 


45140 


STATUS • USER CONSOLE 


0068 


71763 


\77777 


STA 


OCT 


• 1 


STATUS OVERLAY * USER CONSOLE 


0069 


f - f V ' 


006213 




OCT 


6213 


DELETE 


0070 


71765 


046414 




OCT 


46414 


TIME 


0071 


71766 


037056 




OCT 


37056 


PROTECT 


0072 


71767 


050657 




OCT 


50657 


UNPROTECT 


0073 


71770 


034744 


OPfc 


OCT 


34744 


OPEN 


0074 


71771 


026215 




OCT 


26215 


LENGTH 


0075 


71772 


010107 




OCT 


10107 


ECHO 


0076 


71773 


030222 




OCT 


030222 


MESSAGE 


dd77 


71774 


026761 




OCT 


26761 


lprinter 


0078 


71775 


036721 




OCT 


36721 


PORT*USER CONSOLE 


0079 


71776 




COM4 


EQU 


# 




0080 


71776 


142217 




OCT 


142217 


REPORT • SYSTEM CONSOLE 


0081 


7X777 


106421 




OCT 


106421 


DIRECTORY • SYSTEM CONSOLE 


0082 


72000 
72001 


145140 
177777 




OCT 


145140, *1 


STATUS ■• SYSTEM CONSOLE 


0083 


72002 


136721 




OCT 


136721 


PORT-SySTEM CONSOLE 


0084 


72003 


142722 


R08 


OCT 


142722 


ROSTER 


0085 


72004 


100655 




OCT 


100655 


ANNOUNCE 


0086 


7200fi 


142222 




OCT 


142222 


RESET 


0087 


72006 


104340 




OCT 


104340 


CHANGE 


0088 


72007 


144544 




OCT 


144544 


SLEEP 


0089 


72010 


116401 




OCT 


116401 


HIBERNATE 


0090 


72011 


132226 




OCT 


132226 


NEWID 


0091 


72012 


124413 




OCT 


124413 


KILLID 


0092 


72013 


131215 




OCT 


131215 


MUNLOCK 


0093 


72014 
72015 


130556 
\77777 




OCT 


130556, M 


MLOCK 


0094 


72016 


104717 




OCT 


104717 


COPY 


0095 


72017 


102222 




OCT 


102222 


BESTOW 


0096 


72020 


137221 




OCT 


137221 


PURGE 


0097 


72021 


130006 




OCT 


130006 


MAGTApE 


0098 


72022 


136356 




OCT 


136356 


PHO 


0099 


72023 


137050 




OCT 


137050 


PRINTER 


0100 


72024 


144744 




OCT 


144744 


SPEED 


0101 


7202g 


103044 




OCT 


103044 


BREAK 
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0103* 

0104* 

0105* 

0106* 

0107* 

0108 

0109 

0110 

0111* 
0112* 

0113* 

0114 

0115 

0116 
0117 
0118 

0119 

0120* 

0121* 

0122* 

0123* 

0124* 

0125* 
0126 



PART II •• STARTING ADDRESSES 
SECTION I 



72026 071004 

72027 071025 
72030 070605 

SECTION II 



COM5 



72031 
72032 
72033 
72034 
72035 
72036 



036006 
052143 
052142 

052140 
073506 

044737 



DEF #sCR 
DEF #TAP 
DEF SCH20 



DEF Cmpi^E 
DEF LIST 
DEF PUNCH 
DEF XPNCH 
DEF ABUCD 
DEF TAPER 



KEY 



SECTION III 

THIS SECTION CON T AIN S THE TWO wO R D DIsC ADDrE$sE$ OF THE 
LIBRARY ROUTINES, THIS T AB LE 13 FILLED BY THE LOADER. 



72037 000000 C0M6 BSS C0M5~C0M3+CQM5*C0M3 



0128 72045 

0129 72051 

0130 72047 



FILIB EQU COM6-COM3+COMFL~C0M3*C0MFL 
CHLIB EQU CQM6»C0M3+CQMCH«CQM3*C0MCH 
ASNIB EQU COM6»COM3+A3GNA«'C0M3+ASGNA 



FILES 
CHAIN 
ASSIGN 



0132 72221 000000 DSERA BSS 8 



ERROR MESSAGE DISC ADDRESSES 



0134 72231 000000 LOGGR BSS 64 



HOLDS INFO FOR LOGGING 
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0136* 












0137** LIBRARY SUBROUTINE POINtERs * 


0138* 












0139 


72331 


000000 


LSTP1 


BSS 


1 


0140 


72332 


000000 


LSTP2 


BSS 


t 


0141 


72333 


000000 


LSTP3 


BSS 


1 


0142 


72334 


000000 


LSTP4 


BSS 


1 


0143 


72335 


000000 


LS T P5 


BSS 


1 


0144 


00035 




TECNT 


EQU 


LTEMP+5 


0145 


00043 




DLPTR 


EQU 


LTEMP*H 


0146 


00044 




OAPTR 


EQU 


LTEMP+12 


ai 47 


00045 




DALEN 


EQU 


LTEMP+13 


0148 


00046 




DAODR 


EQU 


ITEMP+14 


0149* 








EQU 


LTEMP+15 


0151 


72336 


000116 


ADTAP 


DEF 


ADTAT 


0152 


72337 


000113 


IDECL 


DEF 


IDEC+11 


0153 


72340 


025130 


DFNAH 


DEF 


LIBUS+10 


0154 


72341 


000000 


LCDFC 


BSS 


1 


0155 


72342 


000000 


OFCNT 


BSS 


1 


0156 


72343 


000000 


LCDID 


BSS 


1 


0157 


72344 


000000 


LCDBS 


BSS 


1 


0158 


72345 


074434 


MOVFB 


DEF 


MOVEB 


0159 


72346 


074450 


MOVFW 


DEF 


MOVEW 


0160 


72347 


031073 


DLOKA 


DEF 


DLOOK 


0161 


72350 


074561 


LOUTA 


DEF 


LOUT 


0162 


72351 


074516 


LEN2A 


DEF 


LEND2 


0163 


72352 


070431 


DSCH7 


DEF 


SCH7 


0164 


72353 


000161 


DSYIO 


DEF 


SYSID 


0165 


72354 


160002 


M8190 


DEC 


*8190 


0166 


72355 


005040 


LFSPA 


OCT 


5040 


0167 


72356 


03^057 


ZERSL 


ASC 


1,0/ 



COUNT (NEGATIVE) 
LENGTH 

ADDRESS 



* TABLE ENTRY 
«> TO A TRACK 
«> TO A TWO WORD DISC 
» DISC ADDRESS LENGTH 
CONTAINS A 2 WORD 
DISC ADDRESS 



•> TO ADT ADDRESS TABLE 
«> LAST IDEC ENTRY TRACK LENGTH 
'6 DIRTY FILE NAMES BUFFER 
COUNT OF FlL£3 TO BE CHECKED 
COUNT OF CHANGED (DIRTY) FILES 
POINTER TO USER ID 
POINTER FOR LCD«S SEARCHES 
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0169* 

0170* 

0171* 

0172* 

0173* 

0174* 

0175* 

0176* 

0177* 

0178* 

0179 

180 

0181 

0182 

0183 

0184 

0185 

0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 



** 



FIND ADT 



THIS ROUTINE 

OADDR SHOULD 

DAPTR 

DLPTR 



72357 
72360 
72361 
72362 
72363 
72364 
72365 
72366 
72367 
72370 
72371 
72372 

72373 
72374 

72375 
72376 
72377 

72400 
72401 



000000 
360346 

072331 
060177 
040437 

070044 

104200 
100044 
000065 
005500 
016611 
002021 
026402 
060044 

040351 
036331 
026364 
102037 
026400 



FINDS THE ADT THAT THE DISC ADDRESS CONTAINED IN 
GO INTO, THE RETURNED RESULTS AREf 
«> ADT DISC ADDRESS 
»> ADT LENGTH 



FADT NOP 

LDA .-9 

STA LSTPl 

LDA MHAD 

ADA ,4.48 
FADT1 STA DAPTR 

OLD DAPTR, I 

CLE, ERA 
ERB 

JSB DASUB 
S8A,RSS 
JMP FADT3 
LDA DAPTR 
ADA ,*6 
ISZ LSTPl 

JMP FADTl GO TRY NEXT DISC 
FADT2 HLT DEATH+37B BETTER FIND DISC 
JMP *M 



SET COUNT FOR 

NUMBER OF ADTS 
A »> DISC TABLES 
START WITH LAST ENTRY 
A ■> DISC TABLE ENTRY 
AB » FIRST ADDRESS ON THIS DISC 

CONVERT 
TO BLOCKS 



RESULT POSITIVE, FOUND THE DISC 
RESULT NEGITIVE, MOVE 
TO PRECEEDING ENTRY 



0198 72402 062331 FADT3 

0199 72403 003000 

0200 72404 050367 

0201 72405 026400 

0202 72406 100200 
72407 000362 

0203 72410 042336 

0204 72411 070044 

0205 72412 040361 

0206 72413 070043 

0207 72414 126357 



LDA LSTPl 
CMA 

CPA f +8 
JMP FADT2 

MPY .+3 

ADA ADtAP 
STA DAPTR 
ADA ,+2 
STA DLPTR 
JMP FADT, I 



CHECK FOR BAD 

DISC ADDRESS 
GENERATE TABLE 

ADDRESS FOR DlgC 
POINTER ■«• AND 
POINTER FOR 
DISC LENGTH 
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0209* 
0210* 
0211* 
0212* 
0213* 
0214* 
0215* 
0216* 
0217* 
0218* 
0219* 
0220* 
0221* 
0222* 
0223* 
0224* 
0225* 
0226* 



• 
** 

* 



RETURN BLOCK TO AOT 



THIS ROUTINE ADDS A BLOCK OF DIsC SPACE BACK INtO THE AOT, 
THE ROUTINE ASSUMES THE FOLLOWlNGi 

DADDR * 2 WORD DISC ADDRESS OF BLOCK TO BE ADDED 

DALEN * LENGTH OF THE BLOCK 

DApTR »> 2 WORD DISC ADDRESS Of ADT TRACK 

DLPTR m> LENGTH OF ADT TRACK 

the correct adt track is in core 

THE ROUTINE RETljRNs WItH THE LENGTHS IN MWORD AND DLPT*#I BOtH 
UPDATED, BUT THE TRACK IS NOT WRITTEN OUT, 



0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247* 

0248* 

0249* 

0250* 

0251 

0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 



72415 
72416 
72417 
72420 
72421 
72422 
72423 
72424 
72425 
7 242 6 
72427 
72430 
72431 
72432 
72433 
72434 
72435 
72436 
72437 
72440 



72441 

72442 
72443 
72444 
72445 
72446 
72447 
72450 
72451 
72452 
72453 
72454 
72455 



000000 rbadt nop 

060045 LDA DALEN 

002003 SZA,RSS 

126415 JMP RBADT,I 

160043 LDA DLPTR, I 

003004 CMA,INA 

040676 ADA LIBD 

072331 STA LSTPl 

064676 LDB LIBD 
076332 RADT1 STB LSTP2 

056331 CPB LSTPl 

026532 JMP RADT3 

104200 DLD LSTP2,I 
172332 

0166U JSB DASUB 

002020 SSA 

026441 JMP RADT2 

066332 LDB LSTP2 

044362 ADB ,+3 

026426 JMP RADTl 



DONtT WASTE 
TIME ON 

ZERO LENGTH 
GET ADT LENGTH 



«> END OF ADT TRACK 

«> BEGINNING OF ADT TRACK 

B m> CURRENT ENTRY 

check for end of track 

yes, insert entry at end 

get disc address for this entry 

sub t from address being returned 
far Enough? 

yes, found next entry greater 
no, advance 
adt pointer 
to next entry 



check to see if the new entry is 
adjacent to the following entry 



104200 RADT2 DLD DADDR 
000046 

000040 CLE 

044045 ADB DALEN 

002040 SEZ 

002004 INA 

I52332 CPA LSTP2,I 

002405 CLA,INA,RSS 

026532 JMP RADT3 

042332 ADA LSTP2 

154000 CPB A, I 

002001 RSS 

026532 JMP RADT3 



get current disc address 



ADD LENGTH OF RETURNED BLOCK 
CHECK FOR 

OVERFLOW 
CHECK FOR MATCH 
FIRST WORDS ARE EQUAL 
NO MATCH 
CHECK SECOND 

WORD FOR MATCH 
YES, COMBINE THE TWO ENTRIES 
NO, ENTRIES CAN'T BE COMBINED 
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0263* 
0264* 
0265* 
(9266 

0267 

0268 

0269 

0270 

0271 

0272 

0273* 

0274* 

0275* 
0275* 

0277* 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296* 

0297* 

0298* 

0299 

0300 

0301 

0302 

0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315* 



COMBINE THIS ENTRY WITH THE NEXT ENTRY 



72456 
72457 
72460 
72461 
72462 
72463 
72464 
72465 
72466 



72467 
72470 
72471 
72472 
72473 
72474 
72475 
72476 
72477 
72500 
72501 
72502 
72503 
72504 
72505 
72506 
72507 
72510 
72511 



72512 

725*3 
72514 
72515 

72516 
72517 

72520 
72521 
72522 
72523 
72524 
72525 
72526 
72527 
72530 
72531 



104200 
000046 
104400 
172332 
066332 
044361 
060045 
140001 
170001 



DID DAOOR 
DST LSTP2,I 



LDB 
ADB 
IDA 
ADA 
STA 



LSTP2 

DALEN 

BrI 
B,I 



REPLACE THE NE*T ENTRY WITH 

DISC ADDRESS OF RETURNED BLOCK 



B ■> LENGTH OF ENTRY 
A * RETURNED LENGTH 
ADD RETURNED LENGTH 
TO CURRENT LENGTH 



CHECK TO SEE if THE NEW ENTRY IS 
ADJACENT TO THE PREVIOUS ENTRY 
(DID RETURNED BLOCK BRIDGE THE GAP) 



062332 
050676 
126415 
040356 
072331 
040355 
104200 
100000 
000040 
146331 
002040 
002004 
152332 
002405 
126415 
042332 
154000 
002005 
126415 



LDA LSTP2 
CPA LIBD 
JMP RBADT,I 
ADA f -i 
STA LSTP1 
ADA t -2 
OLD A, I 

CLE 

ADB LSTPl,I 

SEZ 

INA 

CPA LSTP2,I 

CLAf INA*RSS 

JMP R8ADT,I 

ADA LSTP2 

CPB A, I 

INA,RSS 
JMP RBADT,I 



CHECK FOR NO 

PREVIOUS ENTRY 
NONE 

«> PREVIOUS ENTRY LENGTH 

« PREVIOUS ENTRy DISC ADDRESS 



ADD PREVIOUS LENGTH 
TO PREVIOUS ADDRESS 

CHECK FOR FIRST WORD MATCH 
FIRST WORDS ARE EQUAL 
NO MATCH 
CHECK SECOND 

WORD FOR MATCH 
«> LENGTH OF COMBINED ENjRy 
NO MATCH 



COMBINE PREVIOUS ENTRy WITH THE COMBINED ENTRy 



164000 

04^354 
144000 
174000 

066332 
074051 
044362 
074050 
044774 
144043 
116346 
160043 
040362 
170043 
070204 
126415 



L.DB A, I B « LENGTH QF COMBINED ENTRY 

ADA „-3 A »> LENGTH OF PREVIOUS ENTRY 

ADB A, I SUM AND THEN 

STB A, I UPDATE LENGTH 

LDB LSTP2 NOw SET UP FOR MOVE 

STB MOVED COMBINED 

ADB ,+3 ENTRY IS TO 

STB MOVES BE REMOVED 

ADB MLIBD COMPUTE LENGTH 

ADB DLPTR,I OF MOVE 

JSB MOVFW f I MOVE TABLE DOWN 

LDA DLPTR,I A « CURRENT ADT LENGTH 

ADA ,+3 SHORTEN AND 

STA DLPTR,I UPDATE ADT 

STA MWORD UPDATE LENGTH WORD 

JMP RBADTfl 
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0316* 

0317* 

0318* 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340* 

0341* 

0342* 

0343* 

0344* 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 



NOT ADJACENT TO THE FOLLOWING ENTRY - 
CHECK FOR COMBINABILlTY WITH PREvIOyS ENtRY 



72532 
72533 
72534 
72535 
72536 
72537 
72540 
72541 
72542 
72543 
72544 

72545 
72546 
72547 
72550 
72551 
72552 
72553 
72554 
72555 
72556 
72557 



72560 
72561 
72562 
72563 
72564 
72565 
72566 
72567 
72570 
72571 
72572 
72573 
72574 
72575 
72576 
72577 
72600 
72601 
72602 
72603 
72604 
72605 
72606 
72607 
72610 



062332 RADT3 LDA LSTP2 

050676 cP* LIBO 

026560 JMP RADT4 

040356 ADA .-1 

072331 STA LSTP1 

040355 ADA .-2 

104200 OLD A, I 
100000 

000040 CLE 

146331 ADB LSTPi.I 

002040 $EZ 

002004 INA 

050046 CPA DADDR 

002001 RSS 

026560 JMP RADT4 

054047 CPB_j)ApDR«-l 

002001 RSS 

026560 JMP RADT4 

060045 LDA DALEN 

142331 ADA LSTP1,I 

172331 STA LSTP1,I 

126415 JMP RBADT,! 



CHECK FOR NO 

PREVIOUS ENTRY 
NONE 

«> PREVIOUS ENTRY LENGTH 

« PREVIOUS ENTRY DISC ADDRESS 



ADD PREVIOUS LENGTH 
TO PREVIOUS ADDRESS 

CHECK FOR FIRST 

WORD MATCH 
NO MATCH 

DO SECOND WORDS MATCH? 
YES, ENTRIES CAN COMBINE 
NO MATCH 
COMPUTE NEW 

LENGTH AND 
UPDATE ENTRY 



THE NEW ENTRY IS NOT ADJACENT TO 
THE FOLLOWING OR PRECtEDING ENTRY 
MOVE TABLE IF POSSIBLE AND INSERT 



164043 
056354 
126415 
007000 
044676 
074050 
044362 
074051 
007004 
044361 
046332 
116345 

104200 
000046 
104400 
172332 
066332 
044361 
060045 
170001 
160043 
040354 
170043 
070204 
126415 



RADT4 



LDB 
CPB 
JMP 
CMB 
ADB 
STB 
ADB 
STB 



DLPTR,I 

M8I90 

RBADT,! 



LIBD 

MOVES 

,♦3 

MOVED 

CMBf INB 
ADB .+2 
ADB LSTP2 
JSB MOVFB,I 
DLD DADDR 

DST LSTP2,I 

LDB LSTP2 
ADB ,+2 
LDA DALEN 
STA B,I 
LDA DLPTR,I 
ADA ,-3 
STA DLPTRFI 
STA MWORD 
JMP RBADT, I 



IF THERE IS NO RROM 
TO EXPAND THE ADT, 
THE SPACE IS LOST 



SET UP FOR 
THE MOVE 



MOVE TABLE UP TO MAKE ROOM 
GET DISC ADDRESS AND 



SET INTO THE ADT 



GET LENGTH OF 
NEW ENTRY AND 
SET INTO ADT 
INCREASE ADT 
TRACK LENGTH 
THREE WORDS 
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0369* 

0370** 

0371** 

0372** 

0373* 

0374* 

0375* 

0376* 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
0384 
0385 
0386 



DISC address subtraction 



THE TwO wORD DISC ADDRESS IN AB IS SUBTRACTED 
FROM THE DISC ADDRESS IN DADDR AND DADDR+1 



72611 
72612 
72613 
72614 
72615 
72616 
72617 
72620 
72621 
72622 



000000 
007104 
003040 
002004 
000040 
044047 
002040 
002004 
040^46 
126611 



dasub nop 

cmb,cle,inb 

CMArSEZ 
INA 



CUE 
ADB 

SEZ 

INA 
ADA 
JMP 



DADDR+1 ADD LOWER ADDRESS WORDS 



DADDR 
DASUB,I 



ADD UPPER ADDRESS WORDS 
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0388* 
0389* 
0390* 
039U 
0392* 
03g3* 
0394* 

0395* 

0396* 

0397* 

0398* 

0399* 

0400* 

0401* 

0402* 

0403* 

0404* 

0405* 

0406* 

0407* 

0408 

0409 

0410 

0411 

0412 
0413 
0414 
0415 
04 la 
0417 
0418 
0419 

0420 
0421 
0422 
0423 
0424 

0425 

0426 
0427 

0428 
0429 

0430 
0431 

0432 
0433 

0434 
0435 
0436 
0437 
0438 
0439 



* 



RETURN TABLE TO ADT 



THIS ROUTINE SCANS A TABLE AND PUTS DISC SPACE BACK INTO 
THE ADTS. THE ROUTINE RETURNS ALL SPACE ON ONE ADj BEFORE 
WRITING IT BACK, THE DISC ADDRESS OF EACH ENTRY IS ZEROED 
As THE SPACE Is RETURNED, THE F RHAT oF THE TABLE 1st 

LIBUS+8192 / (ID) 

/ LENGTH 

/ DISC 

/ ADDRESS 



T ECN T - CONTAINS THE NEGATE NyMBER OF ENtRIES 



72623 
72624 

72625 
72626 
72627 
72630 
72631 
72632 
7 2 6 33 
72634 
7263s 
72636 
72637 
72640 

7^641 
72642 
72643 
72644 
72645 
72646 
72647 
72650 
72651 
72652 

72653 
72654 
72655 
72656 
72657 
72660 
72661 
72662 
72663 
72664 
72665 
72666 



000000 
060035 

072333 

002003 
126623 
064674 
006004 
160001 
070045 
006004 
076334 
104200 

100001 
002003 
006002 
002001 
026734 

104400 
000046 
002400 
006400 
104400 

172334 
016357 
104200 
100044 
030001 
002003 
026734 
160043 
070204 
060044 
072335 
064700 
114206 
026727 



RTADT NOP 

RTaDI IDA TECNT 
STA LSTP3 
SZArRSS 
JMP RTADT, I 
LDB L8192 
INB 

RTAD2 LDA B,I 

STA DALEN 

INB 

STB LSTP4 

DLD B,I 

SzA,RSS 

SZB 

RSS 

JMP RTNUL 

DST DADDR 

CLA 
CLB 
DST l-STP4,I 

JS8 FADT 
DLD DAPTR,I 



IOR 

SZA, 

JMP 

LDA 

STA 

LDA 

STA 

LDB 

JSB 

JMP 



B 

RSS 

RTNUL 

DLPTRfl 

MWORD 

DAPTR 

LSTP5 

LlBDl 

D1SCZ,I 

RTDER 



GET ENTRY COUNT 

AND SAVE IT 
DON'T WASTE TIME 

ON A NULL TABLE 
LOAD TABLE BASE 
»> DISC LENGTH OF FIRST ENTRY 
GET UNGTH AND $AyE 

FOR FADT AND RBADT 
«> DISC ADDRESS 
SAVE POINTER 
GET THE DISC ADDRESS 

CHECK FOR 

NULL ENTRY 
NON»ZERO ENTRY, RETURN SPACE 
NULL ENTRY 
SAVE DISC ADDRESS FOR FADT, RBADT 

PREvENT SECOND 
RETURN OF 
SPACE 

FIND THE CORRECT ADT TRACK 
CHECK FOR 

EXISTANCE 

OF ADT TRACK 
DOESNiT EXIST 

get the adt's length and 

set up for disc transfer 
«> djsc address 
save pointer 

READ IN 

ADT TRACK 
DISC ERROR 
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0440 


72667 


016415 


JSB 


RBADT 


RETURN BLOCK TO ADT 


0441 


72670 


036333 


RTA03 isz 


LSTP3 


CHECK COUNTER 


0442 


72671 


026677 


JMP 


RTAD4 


more entries 


0443 


7267? 


060044 


LOA 


DAPTR 


WRITE ADT 


0444 


72673 


064676 


LDB 


L1BD 


BACK TO 


0445 


72674 


114206 


JSB 


DISCZ,I 


DISC 


0446 


72675 


026727 


JMP 


RTDER 


DISC ERROR 


0447 


72676 


026624 


JMP 


RTAD1 


SCAN TABLE UNTIL EMPTY 


0449 


72677 


066334 


RTA04 LDB 


LSTP4 




0450 


72700 


044362 


ADB 


.♦3 


»> NEXT DISC LENGTH 


0451 


72701 


160001 


LDA 


B,I 


GET LENGTH AND SAVE 


0452 


72702 


070045 


STA 


r\Ai FN 


ena itaht awh dbaht 

1 »i» ? nir 1 n '" w » •» w « •*■ » 


0453 


72703 


006004 


INB 




a> DISC ADDRESS 


0454 


72734 


076334 


STB 


LSTP4 


SAVE UPDATED POINTER 


0455 


72705 
72706 


104200 

100001 


DLO 


B,I 


GET DISC ADDRESS 


0456 


72707 


002003 


SZA, 


,RSS 


CHECK FOR 


0457 


72710 


006002 


SZ8 




NULL ENTRY 


0453 


72711 


002001 


RSS 




NON-ZERO, RETURN SPACE 


0459 


72712 


026670 


JMP 


RTAD3 


NULL, GO TRY NEXT ENTRY 


0460 


72713 
72714 


104400 
000046 


DST 


DADDR 


SAVE ADDRESS 


0461 


72715 


016357 


JSB 


FADT 


FIND THE CORRECT ADT TRACK 


0462 


727I6 


060044 


LDA 


DAPTR 


DOES THIS ENTRY GO 


0463 


72717 


052335 


CPA 


LSTP5 


ON THE ADT TRACK 


0464 


72720 


002401 


CLA, 


,RSS 


CURRENTLY IN CORE? 


0465 


72721 


026670 


JMP 


RTAD3 


NO » - DEFER 


0466 


72722 


006400 


CUB 




YES *• PREVENT 


0467 


72723 
72724 


104400 
172334 


DST 


LSTP4,I 


DOUBLE RETURNS 


0466 


72725 


016415 


JSB 


RBADT 


RETURN BLOCK TO ADT 


0469 


72726 


026670 


JMP 


RTAD3 


PROCESS NEXT ENTRY 


0471 


72727 


002400 


RTDER CLA 




DISC ERROR DURING ADT I/O 


0472 


72730 


006400 


CLB 




REMOVE ADT 


0473 


72731 


170043 


STA 


DLPTR,I 


TRACK FROM 


0474 


72732 
72733 


104400 
100044 


DST 


DAPTR, I 


ADTAT 


0476 


72734 


036333 


RTNUL ISZ 


LSTP3 


CHECK THE 


0477 


72735 


002001 


RSS 




COUNTER 


0478 


72736 


126623 


JMP 


rtadt,i 


DONE, NO MORE ENTRIES 


0479 


72737 


066334 


LDB 


LSTP4 


GET THE TABLE POINTER 


0480 


72740 


044362 


ADB 


t + 3 


•> NEXT DISC LENGTH 


0481 


72741 


026632 


JMP 


RTAD2 


TRY THIS ENTRY 
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0483* 

0484** 

0485** 

0486** 

0487* 

0488* 

0489* 

0490* 

0491* 

0492* 

0493* 

0494* 

0495* 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514* 

0515 

0516 

0517 
0518 
0519 
0520 
0521 

0522 



FIND IOT 



this routine finos which id 
reAoS that track into core, 
returned results are* 

idtad »> disc address 
idtln «> length of id 

MWORD = LENGTH Of ID 
LSTP1 30 IF ID NOT ON 



TRACK THE SPECIFIED ID 
ENTER WITH THE IdCOdE 



OF IDT 
TRACK 
TRACK 
ANY TRACK 



IS 
IN 



ON 
ID. 



AND 

the 



72742 
72743 
72744 
72745 
72746 
72/47 
72750 
72751 

72752 
72753 
72754 
72755 
72756 
72757 
72760 

72761 
72762 
72763 

72764 
72765 
72766 
72767 
72770 
72771 
72772 
72773 



000000 
060354 

072331 
062337 

070076 

16 4 000 
040354 
006003 

026760 
164000 

007004 
044052 
006021 
026764 
040356 

«3633* 
026746 
002004 

002004 
070075 
164076 
074204 
064700 
114206 
114207 

126742 



FIDT 



FlDTl 



FIDT2 



FIDT3 



NOP 




LDA .-3 


INITIALIZE 


STA LSTPl 


COUNTER 


LDA IDECL 


«> LAST IDEC ENTRY TRACK LENGTH 


STA IDTLN 


STORE IN POINTER 


LDB A, I 


SKIP THIS ENTRY 


ADA ,~3 




SZB,RSS 


IF THE TRACK 


JMP FIDT2 


LENGTH IS ZERO 


LDB A, I 


. FIRST ID ON THIS TRACK 


CMB,INB 




ADB ID 


> OR < ? 


SSB,RSS 




JMP FIDT3 


FOUND THE TRACK 


ADA .-1 


» NEXT TRACK LENGTH 


1SZ LSTPl 


ANY MOPE TRACKS? 


JMP FIDTl 


YES 


!NA 


NO, READ IN 1ST TRACK AS DEFAULT 


INA 


*> DISC ADDRESS 


STA IDTAD 


STORE IN POINTER 


LDB IDTLN, I 


SET DISC DRIVER 


STB MhORD 


TRANSFER LENGTH 


ldb LIBdI 


READ IDT 


JSB DISCZ,I 


FROM DISC 


JSB SICKP,I 


BAD NEWS 


JMP FIDT, I 


RETURN 
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0524* 
0525* 
0526* 
0527* 
0528* 
0529* 
0530* 
0531* 
0532* 
0533* 
0534 



** 



SEARCH IDT 



THIS ROUTINE SEARCHES THE 10 TRACK IN CORE FOR THE IDCODE 
SPECIFIED BY ID, AND RETURNS WITH 8 POINTING TO IT t IF 8 s 0, 
THEN THE IDCODfc WAS NOT FOyND. MwQRD MyST EQgAL THE NEGATIVE 
TRACK LENGTH, 

72774 000000 SIDT NOP 



0535 72/75 064204 



0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545* 

0546 

0547 



72776 
72777 

73000 
73001 
73002 
73003 
73004 

73005 
73006 



007004 
044676 
060052 
054676 
027007 
044347 
150001 
126774 
027001 



7im7 006400 
73010 126774 



SIDT1 



LOS 


Mynon 




CM8, 


,INB 




ADB 


LIBO 


•> eom 


LDA 


ID 


GET THE ID 


CPB 


LIBO 


START OF TABLE? 


JMP 


SIDT2 


YES, NO SUCH ID 


A06 


v <*& 


a> NEXT ENTRY 


CPA 


8,1 


CHECK FOR 10 


JMP 


SIDT, I 


FOUNO IT 


JMP 


SIDT1 


TRY NEXT ENTRY 


CLB 




10 DOES NOT 


JMP 


SIDT, I 


Exist, b«0 



0549* 






0550** 




0551*** GET CURRE 


0552** 




0553* 






0554* 


GCIDT READS 


555* 


THE current 


0556* 


IF Bs 


50, THE 


0557* 






0558 


73011 


000000 


0559 


73012 


064272 


0560 


73013 


044346 


0561 


73014 


164001 


0562 


73015 


074052 


0563 


73016 


006003 


0564 


73017 


127011 


0565 


73020 


016742 


0566 


73021 


066331 


0567 


73022 


006003 


0568 


73023 


127011 


0569 


73024 


016774 


0570 


7302b 


127011 


0001* 







NT USER'S IOT 



THE PROPER ID TRACK INTO CORE, SEARCHES IT FOR 
USER f S ID* AND RETURNS WlTh B POINTING TO IT. 
USER LOGGED OFF OR HIS 10 DOES NOT EXIST, 

GCIDT NOP 

LDB MLINK+1 
ADB ,+?ID-?LINK 



LDB B f I 
STB ID 
SzB,RSS 
JMP GCIDT, I 
JSB FIDT 
LDB LSTP1 
SZB,RSS 
JMP GCIDT, I 
JSB SIDT 
JMP GCIDT, I 



GET USER'S ID 

AND SAVE IT 
RETURN WITH B»0 IF 

USER NOT LOGGED ON 
FIND ID TRACK 
RETURN WITH 

B*0 IF TRACK 
NOT FOUND 
SEARCH ID TRACK 
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0003* 

0004** 

0005** 

0006** 

0007* 

0006* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0018* 

0019* 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047* 

0048 

0049 

0050 

0051 

0052 
0053 
0054 
0055 
0056 



RETURN TABLE TO IDT 



THIS ROUTINE SCANS A TABLE AND UPDATES THE AMOUNT OF DISC SPACE 

IN USE FOR THE SPECIFIED IDS, THE FORMAT OF THE TABLE I3| 

LIBUS+8192 / (ID) 

/ LENGTH 

/ DISC 

/ ADDRESS 

• 

t 



TECNT «. CONTAINS THE NEGATIVE NUMBER OF ENTRIES 



73026 
73027 
73030 
73031 

73032 
73033 
73034 
73035 
73036 
73037 
73040 
73041 
73042 
73043 
73044 
73045 
73046 
73047 
73050 

73051 
73052 
73053 
73054 
73055 
73056 
73057 
73060 

73061 
73062 
73063 
73064 
73065 
73066 
73067 
73070 
73071 



000000 
060035 
072332 
002003 
127026 
064674 
076333 
160001 
070052 
016742 
016774 
006003 
027061 
044366 

062333 
002004 
160000 
003004 
140001 

170001 
066333 
044363 
076333 
160001 
070052 
036332 
027040 

060075 
064676 
114206 
114212 
062332 
002003 
127026 
066333 
027035 



RTIOt NOP 
LDA 
STA 
SZA, 
JMP 

LDB 
STB 

RTlOl LDA 
STA 
JSB 

RTID2 JSB 

SZBf 

JMP 

ADB 
LDA 
INA 
LDA 

cma, 

ADA 
STA 
LDB 

ADB 
STB 

LDA 
STA 

ISZ 
JMP 



TECNT 

LSTP2 

RSS 

RTIDT,I 

L8192 

LSTP3 

B,I 

ID 

FIDT 

SIDT 

RSS 

RTID3 

.+7 

LSTP3 

A, I 
INA 
B,I 
B,I 
ISTP3 

• ♦4 
LSTP3 

BrI 
ID 

LSTP2 
RTID2 



RTID3 LDA IDTAD 

LDB LIBD 

JSB DISCZ,I 

JSB DEADP#I 

LDA LSTP2 
SZA, RSS 

JMP RTIDT,I 

LDB LSTP3 

JMP RTID1 



GET CHARACTER 
COUNT AND SAVE 

DON»T WASTE TIME 

ON A NULL TABLE 
*> HEAo OF TABLE 
SAVE IN POINTER 
GET AND SAVE 

NEXT IDCODE 
FIND ID TRACK 
SEARCH FOR ID 

WAS ID FOUND? 

NO 

»> SECTORS USED 

»> TABLE ENTRy 

« LENGTH TO BE RETURNED 
UPDATE 

DISC SPACE 
USED 
SET POINTER 

TO NEXT 
ENTRY 
GET AND 

SAVE ID 
DONE? 
NO 

«> DISC ADDRESS 
WRITE OUT 

ID TRACK 
BAD NEWS 
WORK ALL DONE? 

YES • RETURN 
NO, PROCESS 
NEXT ENTRY 
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0058* 

0059* 

0060* 

0061* 

0062* 

0063* 

0064* 

0065* 

0066* 

0067 

0068 

0069 

0070 

0071 
0072 
0073 
0074 
0075 
0076 
QQ77 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 

0088 
0089 
0090 

0091 
0092 
0093 

0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 



** 



SET UP HEADING 



HDBUF SETS UP THE HEAD 
ON THE SYSTEM CONSOLE. 
ID, DATE, AND TIME, 



ING FOR DIRECTORY, STATUS, AND REPORT 
THE HEADING CONSISTS OP THE SYSTEM 



73072 
73073 
73074 
73075 
73076 
73077 



73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 

73 
73 

73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 



00 
01 
02 
03 
04 
05 
06 
07 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 

2b 
26 
27 
30 
31 
32 
33 
34 

35 
36 

37 

40 

41 
42 
43 
44 
45 
46 
47 
50 



000000 
060303 
070041 
062355 
170041 
060532 

034041 
170041 
060303 
040361 
070051 
062353 
070050 
064352 
116346 
060532 
064041 
044365 
170001 
044361 
074041 
060171 
006400 
100400 
000407 
074042 
006400 
100400 
000371 
005727 
046356 
174041 
017165 
007400 
044041 

170001 
044361 

074041 

060170 

017165 
170041 
060532 
034041 
170041 
060042 
017165 
034041 



HD8UF NOP 
IDA 

OTA 

u i n 

LDA 
8TA 

LDA 
ISZ 
STA 
LDA 
ADA 
STA 
LDA 
STA 
LDB 
JSB 
LDA 
LDB 
ADB 
STA 
ADB 
STB 
LOA 
CLB 
DIV 

STB 
CLB 
DIV 

BLF 
ADB 
STB 
JSB 

CCB 
ADB 

STA 
ADB 
STB 
LDA 
JSB 
STA 
LDA 
ISZ 
STA 
LDA 
JSB 
ISZ 



T35B1 
LTEMP+9 
LFSPA 
LTEMP+9, I 
ASCBB 
LTEMP+9 
LTEMP+9, I 
T35B1 

MOVED 
DSYID 
MOVES 

»5 
MOVFW,I 

ASCBB 
LTEMP+9 

,+6 
B,I 
• ♦2 

LTEMP+9 
DATIM 

,+24 

LTEMP+10 

.♦10 

,BLF 
ZERSL 
LTEMP+9, I 
TDNUM 

LTEMP+9 
B,I 

.♦2 

LTEMP+9 
YEAR 
TDNUM 

LTEMP+9* I 
ASCBB 

LTEMP+9 
LTEMP+9, I 
LTEMP+10 

TDNUM 

LTEMP+9 



INITIALIZE TTY 

BUFFER POINTER 
LP-SPACE 

TWO SPACES 



MOVE 

SYSTEM 

ID TO 

BUFFER 
TWO SPACES 



GET HOUR OF YEAR 
CONVERT 
TO DAY 

SAVE HOUR REMAINDER 
GET LAST 
DIGIT 



MERGE IN SLASH 

FIRST TWO DIGITS OF DAY 



YEAR OF CENTURY 



TWO SPACES 



HOUR OF DAY 
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0112 


73151 


170041 


STA LTEMP+9,1 




0113 


73152 


060172 


tOA DATIM+i 


CONVERT 


0114 


73153 


040526 


ADA 036K 


100 MS 


0115 


73154 


006400 


CUB 


UNITS TO 


0116 


73155 
73156 


100400 
000510 


DIV D600 


MINUTES 


0117 


73157 


017165 


JSB TDNUM 


OF HOUR 


0118 


73160 


034041 


ISZ LTEMP+9 




0119 


73161 


170041 


STA LTEMP+9,1 




0120 


73162 


060413 


LDA .+28 


28 CHARS IN HEADING 


0121 


73163 


064303 


LDB T35B1 




0122 


73164 


127072 


JMP HDBUF,I 




0123* 










0124* 


CONVERT A NUMBER <100 TO ASCII 




0125* 










0126 


73165 


000000 


TDNUM NOP 




0127 


73166 


006400 


CUB 




012S 


73167 
73170 


100400 
000371 


DIV ,+10 




0129 


73171 


001727 


AlF f ALF 


FIRST DIGIT 


0130 


73172 


040001 


ADA B 


SECOND DIGIT 


0131 


73173 


040530 


ADA ASC00 


ASCII OFFSET 


0132 


73174 


127165 


JMP TDNUM, I 
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0134* 

0135* 

0136* 

0137* 

0138* 

0139* 

0140* 

0141* 

0142* 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

»161 

0162 

0163 

0164 

0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 

0174 
0175 
0176 

0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 



* 
** 

* 



PRINT HEADING 



UHDBF PRINTS THE HEADING FOR DIRECTORY, STATUS, AND REPORT 
ON JHE USER TERMINAL. THE HEADING CONsIsTS OF THE SYSTEM 
ID, DATE, AND TIME, 



73175 
73176 

7TI77 
r <* I r r 

73200 
73201 
73202 
73203 
73204 
73205 
73206 
73207 
73210 
73211 
73212 
73212 
73213 

73214 
73215 
73216 
73217 
73220 
73221 
73222 
73223 
73224 
73225 
73226 
73227 
73230 
73231 
73232 
73233 
73234 
73235 
73236 

73237 
73240 
73241 

73242 
73243 
73244 
73245 
73246 
73247 
73250 
73251 
73252 



000000 
060371 

X J. v<J >ju 

060417 
116350 
060417 
116350 
060417 
116350 
062353 
070040 
060352 
070041 

160040 
001727 

010500 
116350 
160040 
010500 
116350 
034040 
034041 
027212 
060417 

116350 
060417 

116350 
060171 
006400 
100400 
000407 
074041 
006400 
100400 
000371 
074040 
017274 
060040 
040437 
116350 
060436 

116350 
060170 
017274 
060417 
116350 



UHDBF NOP 
LDA 
J SB 
LDA 
JSB 
LDA 
JSB 
LDA 
JSB 
LDA 
STA 

LDA 
STA 

UHDB1 EQU 
LDA 
ALF, 
AND 
JSB 
LDA 
AND 
JSB 

isz 

ISZ 
JMP 
LDA 
JSB 

LDA 
JSB 
LDA 

CLB 

Ply 



. + 12B 
LOUTA,! 

,+40B 
LOUTA,! 
,♦408 
LOUTA, I 
,+40B 
LOUTA, I 

DSYID 

LTEMP+8 

a »5 

LTEMP+9 

* 

LTEMP*8,I 

ALF 

8377 

LOuT*#I 
LTEMP+8, I 
B377 
LOUTA, I 
LTEMP+8 
LTEMP+9 
UHDB1 
• +40B 
LOUTA, I 

.+40B 
LOUTA, I 
DA T IM 

.+24 



STB LTEMP+9 

CLB 

OIV .+10 

STB LTEMP+8 
JSB UTDNM 
LDA LTEMP+8 
ADA ,+60B 
JSB LOUTA, I 
LDA .+57B 
JSB LOUTA, I 
LDA YEAR 
JSB UTDNM 
LDA .+408 
JSB LOUTA,! 



LF 

BLANK 
BLANK 
BLANK 

»> SYSTEM ID 
5 WORDS 
OUTPUT 

SYSTEM 
ID 

BLANK 

BLANK 

GET HQuR OF YEAR 

CONyERT TO DAY 

SAVE HOUR REMAINDER 

1ST 2 DIGITS IN A, LAST IN 8 

OUTPUT 1ST 2 



OUTPUT LAST ONE 
»/» 

GET YEAR 

AND OUTPUT 
BLANK 
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0isa 


73253 


060417 




LDA 


9 + 408 


BLANK 


0169 


73254 


116350 




JSB 


LOUTA,I 




0190 


73255 


060041 




LDA 


LTEMP+9 


HOUR OF DAY 


0191 


73256 


017274 




JSB 


UTDNM 




0192 


73257 


060172 




LDA 


DATIM+1 


CONVERT 


0193 


73260 


040526 




ADA 


D36K 


100MS 


0194 


73261 


006400 




CLB 




UNITS TO 


0195 


73262 
73263 


100400 
000510 




DIV 


D600 


MINUTES 


0196 


73264 


017274 




JSB 


UTDNM 


OF HOUR 


0197 


73265 


060402 




LDA 


,♦238 


X^OFF 


0198 


73266 


116350 




JSB 


LOUTA* J 




0199 


73267 


060374 




LDA 


.♦15B 


CR 


0200 


73270 


116350 




JSB 


LOUTA, I 




0201 


73271 


060371 




LDA 


, + 12B 


LF 


0202 


73272 


116350 




JSB 


LOUTA,I 




0203 


73273 


127175 




JMp 


UHDBF,I 




0204* 














0205* 


CONVERT A #<100 TO 


AsCI] 


[ AND OUTPUT IT 


0206* 














0207 


73274 


000000 


UTDNM 


NOP 






0208 


73275 


006400 




CLB 






0209 


73276 
73277 


100400 
000371 




DIv 


.♦10 




0210 


73300 


074043 




STB 


LTEMP+n 




0211 


73301 


040437 




ADA 


,♦608 




0212 


73302 


116350 




JSB 


LOUTA,I 




0213 


73303 


060043 




LDA 


LTEMP+11 




0214 


73304 


040437 




ADA 


,♦608 




0215 


73305 


116350 




JSB 


LOUTA,I 




0216 


73306 


127274 




JMP 


UTDNM, I 
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0218* 












0219* 


UPDATE LAST CHANGED 


DATES IF 


NECESSARY 


0220* 












0221 


73307 




*LCDL EQU 


* 




0222 


73307 


064272 


LDB 


MLINK+l 


IS THERE 


0223 


73310 


044341 


AD8 


,.?LINK 


A NEED TO 


0224 


73311 


160001 


LDA 


B,I 


CHECK PILES 


0225 


73312 


010502 


AND 


DFCHK 


FOR POSSIBLE 


0226 


73313 


002003 


SZA, 


rRSS 


LCD UPDATE 


0227 


73314 


027361 


JMP 


EXIT7 




0226 


73315 


044376 


ADB 


.♦?PLEV 






73316 


002400 


CIA 






0230 


73317 


103100 


CLF 







0231 


73320 


170001 


STA 


B,I 


SET PRIORITY TO 


0232 


73321 


070262 


STA 


TIMEF 


NO TIMING 


0233 


73322 


044355 


ADB 


f +?STAT- 


■ TPLEV 


0234 


73323 


060363 


LDA 


%SYNT 


SET STATUS TO SYNTAX SO 


%} d£» «3 v? 


73324 


170001 


STA 


B,I 


WE WON«T GET SWAPPED 


0236 


73325 


044346 


ADB 


,*?PRQG« 


>?STAT 


0237 


73326 


060056 


LDA 


PBPTR 


BOUND INTO 


0238 


73327 


170001 


STA 


B,I 


TTy TABLE 


0239 


73330 


003000 


CMA 




CALCULATE LENGTH 


0240 


73331 


041213 


ADA 


USE 


FOR WRITE 


0241 


73332 


070204 


STA 


MWORD 


TO DISC 


0242 


73333 


044355 


ADB 


,+?DISC* 


-?PROG 


0243 


73334 


060001 


LDA 


B 


*> SWAP TRACK DISC ADDRESS 


0244 


73335 


065213 


L.DB 


USE 


OUTPUT USER 


0245 


73336 


114206 


JSB 


DISCZ,I 


TO DISC 


0246 


73337 


124210 


JMP 


PTZAP f I 


blew it, go zap user 


0247 


73340 


061550 


LDA 


FRMAT 


GET FILE COUNT (•) 


0246 


73341 


064272 


LDB 


MLINK+l 


GET POINTER 


0249 


73342 


044346 


ADB 


,+?ID*?LINK TQ ID WORD 


0250 


73343 


017367 


JSB 


LCD 


GO UPDATE LAST CHANGED DATES 


0251 


73344 


027361 


JMP 


EXIT7 


CORE INTACT, EXIT 


0252 


73345 


002400 


CLA 




BLOCK 


0253 


73346 


170632 


STA 


DCLCi,I 


CLOCK 


0254 


73347 


060272 


LDA 


MLINK+1 


RESTORE 


0255 


73350 


040345 


ADA 


,+?PRQG* 


'?LINK 


0256 


73351 


164000 


LOB 


A, I 


USER 


0257 


73352 


007000 


CMB 






0258 


73353 


045213 


ADB 


USE 




0259 


73354 


074204 


STB 


MWORD 


SWAP 


0260 


73355 


040355 


ADA 


,*?DISC«. 


>?PROG 


0261 


73356 


065214 


LDB 


USEI 




0262 


73357 


114206 


JSB 


DISCZf I 


AREA 


0263 


73360 


124210 


JMP 


PTZAPfI 


BLEW IT, GO ZAP USER 


0264 


73361 




EXIT7 EQU 


* 




0265 


73361 


002400 


CLA 




BLOCK 


0266 


73362 


170632 


STA 


DCLCi,I 


CLOCK 


0267 


73363 


114614 


JSB 


ABCK,I 


CHECK FOR ABORTS 


0268 


73364 


160634 


LDA 


DCLC2,I 


UNBLOCK 


0269 


73365 


170632 


STA 


DCLCl,I 


CLOCK 


0270 


73366 


125556 


JMP 


LCDLP,I 
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0272* 
0273* 
0274* 

0275* 
0276* 
0277* 
0276 

0279 

0280 
0281 

0282 

0283 

0284 

02a5 

0286 

0287 

0288 

0289 

0290* 

0291 

2 92 
0293 
0294 
0295 
0296 

0297 

0298 

0299 

0300 

0301* 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321* 

0322 

0323 

0324 

0325 



THIS ROUTINE ASSUMES THAT THE USERIS SWAP AREA IS IN CORE, 
THAT THE B REGISTER POINTS TO Hl$ ID WORD IN THE TELETYPE 
TABLE, AND THAT A CONTAINS THE NEGATIVE OF THE NyMfiER OF FILES 



73367 
73370 
73371 
73372 
73373 
73374 
73375 
73376 
73377 
73400 
73401 
73402 

73403 

73404 
73405 
73406 
73407 
73410 
73411 
73412 
73413 
73414 

73415 
73416 
73417 
73420 
73421 
73422 
73423 
73424 
73425 
73426 
73427 
73430 
73431 
73432 
73433 
73434 

73435 
73436 
73437 

73440 
73441 



000000 
072341 
076343 
002021 
027452 
002400 
072342 
062340 
070051 
065502 
006004 
076344 

160001 
010215 
002002 
027462 
044376 
036341 

027403 

062342 
002003 
027452 

037367 

003004 
072342 
066340 
076344 
162343 
070030 
160001 
070031 
006004 
104200 
100001 
104400 

000032 
116347 
027472 
066344 
044362 
076344 
036342 
027424 



LCD 



LCD1 



LCD3 



LCD6 



LCD7 



NOP 

STA 

STB 

SSA, 

JMP 

CLA 

STA 

LDA 

STA 

LDB 

INB 

STB 



LCDFC 
LCDID 
RSS 
LCD9 

DFCNT 
DFNAM 
MOVED 
FILTB 

LCDBS 



73442 060257 

73443 002003 

73444 027452 

73445 006400 



LDA B,I 

AND BIT14 
SZA 

JMP LCD2 
ADB ,4-FTEL 
ISZ LCDFC 
JMP LCD! 
LDA DFCNT 
SZA, RSS 
JMP LCD9 

ISz LCD 
CMAflNA 
STA DFCNT 
LDB DFNAM 
STB LCDBS 
LDA LCDID, I 
STA LTEMP 
LDA 8,1 
STA LTEMP+l 
INB 
OLD B,I 

DST LTEMP+2 

JSB DLOKA,I 
JMP LCD5 
LDB LCDBS 
ADB ,+3 
STB LCDBS 
ISZ DFCNT 
JMP LCD6 

LDA DIRWD 
SZA, RSS 
JMP LCD9 
CLB 



ENTRY POINT 
SAVE FILE COUNT 

AND ID POINTER 
MAKE SURE THERE REAUY ARE 

SOME FILES 
INITIALIZE DIRTY 

FILE COUNT TO ZERO 
GET ADDRESS FOR FIRST 

DIRTY FILE'S NAME 
GET START OF FILE TABLE 
BUMP POINTER TO WORD i 

OF ENTRy AND SAVE 

GET DIRTY FlLl BIT 
HAS THIS FILE 

BEEN CHANGED? 
YES 

NO, POINT TO NEXT ENTRY 
ARE THERE MORE FILES? 
YES, CHECK NEXT ONE 
NO, WERE 

ANY DIRTY? 
NO, RETURN 

Y E8, BUMP RETURN (CORE 18 DIFF) 
SAVE NEGATIVE OF 

DIRTY FILE COUNT 
GET ADDRESS OF FIRST 

DIRTY FILE*S NAME 
STICK 10 IN LTEMP 

FOR DLOOK 
MOvE DIRTY 
FILE'S 

NAME 
INTO 

LTEMPS 

GO HUNT FOR DIRECTORY ENTRY 

FOUND IT 

BUMP 

POINTER TO 
NEXT NAME 
MORE DIRTY FILES? 
YES, PROCESS NEXT ONE 

NO, WRITE DIRECTORY TO 

DISC IF ANY IS IN CORE 
ELSE, RETURN 
TELL DLOOK 
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0326 

0327 

0326 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338* 

0339* 

0340* 

0341 

0342 
0343 
0344 
0345 
0346 
0347 
0348 

0349* 

0350* 

0351* 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 



73446 074257 

73447 064676 

73450 114206 

73451 114211 

73452 066343 

73453 044352 

73454 060602 

73455 103100 

73456 120001 

73457 170001 

73460 102100 

73461 127367 



STB DIRWD 

LDB LIBD 

JSB DISCZ,I 

JSB 8LVAG,I 

LCD9 LDB LCDID 

ADB t *?ID 

LDA DFCHK 

CLF 

XOR B,I 

STA B,I 

STF 

JMP LCD, I 



THERE ISN'T 
WRITE TRACK 

TO DISC 
BAD NEWS, TRY TO 3ALVAGE 
CLEAR 
CHECK 
FOR 
DIRTY 
FILES 
BIT 

RETURN 



MOVE NAME OF DIRTY FILE TO SAFE PLACE 



73462 036342 

73463 076344 

73464 044371 

7 3465 7 4050 

73466 064354 

73467 116346 

73470 066344 

73471 027407 



LCD2 ISZ DFCNT 
STB LCDBS 
ADB ,+10 
STB MOVES 
LDB t -3 
JSB MOVFW,i 
LDB LCDBS 
JMP LCD3 



BuMp DIRTY FILE COUNT 

SAVE POINTER TO FILE TABLE ENTRY 

GET POINTER TO FILE NAME 

AND SET IN MOVERS SOURCE ADR 
MOVE THE 3 

NAME WORDS 
GET ENTRY POINTER BACK 
RETURN TO SCAN OF FILE TABLE 



PROCESS A FOuND DIRECTORY ENTRY 

73472 060034 LCDS LDA LTEMP4.4 TELL DLOOK WHICH 

73473 040364 ADA ,+5 DIRECTORY TRACK 

73474 070257 STA DIRWD IS IN CORE 

73475 064035 LDB LTEMP+5 GET 

73476 044361 ADB t +2 WORD 

73477 160001 LDA B,I 2 

73500 002021 SSA,RSS IS THE ENTRY A FILE? 

73501 027435 JMP LCD7 NO, GO PROCESS NEXT NAME 

73502 044363 ADB .+4 YES, UPDATE LAST 

73503 060171 LDA DATIM CHANGED DATE IN 

73504 170001 STA B,I DIRECTORY ENTRY 

73505 027435 JMP LCD7 GO PROCESS NEXT NAME 
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0,565* 
0366* 


THIS 


ROUTINE 


SETS 


UP THINGS TQ 


UPDATE THE LAST CHANSt DATE 


0367* 


WHEN 


A USER 


HAS ABORTED 




0368* 












0369 


73506 


060255 


ABUCD 


IDA MAIN 




0370 


73507 


040363 




ADA .+7PR0G 




0371 


73510 


064056 




LDB PBPTR 


SET BOUND IN 


0372 


73511 


174000 




STB A, I 


TTY TABLE 


0373 


73512 


007000 




CMB 




0374 


73513 


045213 




ADB USE 


COMPUTE AND SET 


0375 


73514 


074204 




STB MWORD 


TRANSFER LENGTH 


0376 


73515 


040355 




ADA .♦?DISC« 


?PROG ■> DISC ADDRESS 


0377 


73516 


065213 




LDB USE 


WRITE SWAP 


0378 


73517 


114206 




JSB DISCZ#I 


TRACK TO DISC 


0379 


73620 


124210 




JMP PTZAPfl 


BLEW IT, FLUSH USER 


0380 


73521 


061500 




LDA FCNTR 




0381 


73522 


003004 




CMA,INA 


«* OF FILES 


0382 


73523 


064255 




LDB MAIN 




0383 


73524 


044364 




ADB ,+?ID 


»» ID WORD IN TTY T*!lE 


0384 


73525 


017367 




JSB LCD 


UPDATE LAST CHANGE DATE 


0385 


73526 


000000 




NOP 




0386 


73527 


103100 




CLF 




0387 


73530 


064255 




LDB MAIN 


, 


0388 


73531 


074062 




STB TTQ 


FOR SCHEDULER 


0389 


73532 


060377 




LDA UNA8T 




0390 


73533 


030476 




IOR ABTRY 




0391 


73534 


003000 




CMA 




0392 


73535 


110001 




AND B,I 




0393 


73536 


170001 




STA B,I 


CLEAR ABORT FLA6S 


0394 


73537 


002400 




CLA 




0395 


73540 


070255 




STA MAIN 


USER NO LONGER IN CPRE 


0396 


73541 


170632 




STA DCLCi,I 


BLOCK CLOCK 


0397 


73542 


044374 




ADB .♦fSTAT 


*> STATUS WORD 


0398 


73543 


126352 




JMP DSCH7,I 


ENTER ABORT CODE IN SCHEDULER 


0399* 












0401 








SUP 




0402 


73544 




MLKFL 


EQU * 




0403 


73544 


060410 




LDA .+25 




0404 


73545 


067547 




LDB *+2 




0405 


73546 


126351 




JMP LEN2A,I 




0406 


73547 


073550 




DEF **1 




0407 


73550 


005114 




OCT 5114 




0408 


73551 


047503 




ASC 12,0CKED 


1 BLOCKS TABLE FULL 


0410 


73565 




DDERt 


EQU * 




0411 


73565 


005104 




OCT 5104 




0412 


73566 


044523 




ASC 11, ISC ERRORl CAN'T DO IT 


0413 








UNS 




0415 


73601 


000000 


FILBF 


BSS 131 


FILE BUFFER 


0416 


74004 






BSS 
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0002 

0003 

0004 

0005 

0006 

0007 

0006 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026* 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034* 

0035 

0036 

0037 

0038 

0039 

0040 

0041 



00040 
00041 
00045 
74004 
74005 
74006 
74007 
74010 
74011 
74012 
74013 
74014 

74f»l5 
74016 
74017 
74020 
74021 
74022 
74023 
74024 
74025 
74026 
74027 
74030 

74031 
74032 
74033 
74034 
74035 
74036 
74037 

74040 
74041 
74043 
74045 
74046 
74047 
74050 



025055 
030055 
177645 
001400 
005040 
000000 
000000 
000000 
000000 
000000 
074532 
031073 
072357 
072742 
073011 
073072 
061346 
073544 

07*671 
072415 
116 



072623 
073026 
071667 
070360 
072774 
071662 
073175 

000000 
000000 
000000 
000000 
000000 

074050 
000000 



LIBSC EQU 
LlBSP EQU 
LlBpB EQU 
ASCAH A8C 
ASC0H ASC 
M133, OCT 
PRTMK OCT 
PLFBK OCT 

LTYP1 bss 
UTYP2 BSS 
STABF BSS 
STAyl BSS 
STAV2 BSS 
OLCHR DEF 
DLOKP DEF 
FADTP DEF 
FIpTP DEF 
GCID DEF 
HDBFA DEF 
MDEDP DEF 
MLFLA DEF 
PCRLF DEF 
RBAD DEF 
RKcYP DEF 

RTAD DEF 
RTID DEF 
SCHOU DEF 
SCHR DEF 
SIDTP DEF 
SU8PP DEF 
UHDBA DEF 

MLKCT BSS 
MLKLB BSS 
HLKlN BSS 
MLKLN BSS 
MLKRD BSS 
MlKRP DEF 
BSS 



LTEMp+8 
LTEMP+9 
LTEMp+13 

• 133 

1400 

5040 

1 

1 

1 

1 

1 

LCHAR 

DLOOK 

FADT 

FIDT 

GCIDT 

HDBUF 

MDEAD 

MUKFL 

CRLF 

RBADT 

ADTAT 

RTADT 

RTIDT 

SCHOQ 

SCHl 

SIDT 

SUSP 

UHDBF 

1 
2 

2 
1 
1 

# + 1 
6 



SEMI-CoMPlt-ED FLAG 

START OF PROGRAM POINTER 

£ND OF PROGRAM POINTER (P0PTR) 



USED BY STATUS 
USED By 

STATUS WHILE SUSPENDED 

LINK TO DIRECTORY SEARCH ROUTINE 

«> FIND ADT 

•> FIND IDT 

«> GET CURRENT US|Ri$ IDT 



*> RETURN BLOCK TO ADT 
CYCLIC POINTER TO CURRENT 
DISK ADT TRACK ADDRESS 
m> RETURN TABLE TO ADT 
«> RETURN TABLE TO IDT 

■> SCHEDULER 
■> SEARCH IDT 



THESE 

WORDS 
ARE 
USED 
BY 

MLOCK 
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0043* 

0044* 

0045* 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
0054 
0055 
0056 
0057 
0058 

0059 
0060 

0061 

0062 

0063* 

0064* 

0065* 

0066* 

0067* 

0068* 

0069* 

0070* 
0071* 

0072* 
0073* 
0074* 
0075* 
0076 

m?7 

0078 
0079 

0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 



RDPRG READS THE CURRENT USER INTO CORE, 



74056 
74057 
74060 
74061 
74062 
74063 
74064 

74065 

74066 
74067 
74070 
74071 
74072 

74073 
74074 

74075 

74076 

* 
** 

* 



000000 
060272 
040345 
164000 
074056 
007000 
045213 

074204 
006430 
174632 
040355 
065214 
114206 

124210 
160634 

170632 

126056 



GETID 



RDPR6 NOP 
LOA 
ADA 
LDB 
STB 
CMS 
AOB 
STB 
CLB 
STB 
ADA 
LDB 
JSB 
JMP 
LOA 
STA 
JMP 



MLINK+1 
,+?PRQG< 

A, I 
PBPTR 

USE 
MWORD 

DCLC1*I 

.♦?DISC 

USEI 

DI8CZ,I 

PTZAP,I 

DC L C2,i 

DCLClfl 

RDPRG, I 



■?LINK 

GET PROGRAM BOUND 

COMPUTE 

TRANSFER 
LENGTH 
BLOCK 

CLOCK 
-?PROG 9> DISC ADDRESS 
READ IN 

USER 
BLEW IT, ZAP THIS USER 
UNBLOCK SCHEDULER. 

RETURN 



GETID SCANS THE INPUT BUFFER FOR AN ID NUMBER, IF NOT FOUND, IT 

OUTPUTS A MESSAGE AND TERMINATES, 

IF FoUnD, THE RESULT IS PLACED In ID, -RESULT 

IN MID, IF THE FOLLOWING CHARACTER IS A CR, GETID SKIPS ON THE 

WAY BA C K, IN ANY cASE# THE NEXT cHARA C TER IS IN A, 

GETID USES LTEMP*12, 13, 14,15, 



00044 
00045 
00046 
00047 

74077 
74100 
74101 

74102 
74103 
74104 
74105 
74106 
74107 
74110 
74111 
74112 
74U3 
74114 
74115 
74116 
74117 
74120 



GETCH EQU LTEMP+12 
GETH EQU LTEMP4.13 
GETI2 EQU LTEMP+14 
GE T I3 EQy LtEMP*15 



000000 
060272 
066016 
050263 
064754 
074044 
114044 
026616 
042006 
002021 
026616 
040411 
002024 
026616 
100032 
070045 
060354 
070046 



GEtID NOP 
LDA 
LDB 
CPA 
LOB 
STB 

JSB 
JMP 

ADA 

SSA, 

JMP 

ADA 

SSA, 

JMP 

ASL 

STA 

LDA 

STA 



MLINK+1 

DLCHR 

T35LN 

T35CH 

GETCH 

GETCH, I 

GTFER 

M133, 

RSS 

GTFER 

,*32B 

INA 

GTFER 

10 

GETU 

,*3 

GETI2 



DETERMINE WHICH SCANNER TO USE 
USE LCHAR IF USER TELETYPE* 
T35CH IF SYSTEM, 



SCAN INPUT BUFFER FOR FIRST 

CHARACTER, 
TEST FOR LETTER 



SAVE FOR LATER, 
SET DIGIT 
COUNTER, 
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0099 



100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124* 

125* 

126* 

127* 

128* 

129* 

130* 

131* 
132* 

133* 
134* 
13 5 * 
136* 
137* 
138* 
139 

1*0 
Ul 
142 
143 
144 
145 
146 

H7 
148 
149 

150 
151 
152 
153 
154 



74121 
74122 
74123 
74124 
74125 
74126 
74127 
74130 
74131 
74132 
74133 
74134 
74135 
74136 
74137 
74140 
74141 
74142 
74143 
74144 
74145 
74146 
74147 
74150 
74151 



006400 
074047 
114044 
026616 
040322 
002021 
026616 
040371 
002020 
026616 
064047 
005222 
044047 
005200 
044000 
034046 
026122 
044045 
074052 
007004 
074053 
116021 
114044 
036077 
126077 



CLB 
GETI4 STB 
JSB 
JMP 
ADA 

SSA, 
JMP 

ADA 

SSA 

JMP 

LOB 

R8L, 

ADB 

RBL 
ADB 
ISZ 
JMP 
ADB 
STB 

CM8, 

STB 

JSB 

JSB 

ISZ 

JMP 



GETI3 

GETCH,I 

GTFER 

M72B 

RSS 

GTFER 

,♦10 

GTFER 
GETI3 
R6L 
GETI3 



GETI2 

GETI4 

GETI1 

ID 

INB 

MID 

FIDTP,I 

GETCH,I 

GETID 

GETID,I 



SET NUMBER 

TO 0, 
GET NEXT CHAR, 
FAIL, 
TEST FOR DIGIT 

FAIL, 



FAIL. 

GET PARTIAL VALUE, 

MULTIPLY BY IB, 



ADD IN NEw DIGIT, 
TEST FOR DONE, 

MERGE IN LETTER, 



FIND ID TRACK 

GET NEXT CHARACTER, 

SKIP RETURN IF CR, 



** SCHEDULE LIBRARY ROUTINE FOR EXECUTION 

* 

THIS ROUTINE IS CALLED By THE COMPILER WHEN IT WANTS TO E*ECUTE 
ONE OF THE FOLLOWING LlgRARY ROUTINES! cH*IN, FILES, OR AS8IGN, 
THESE LIBRARY ROUTINES ARE ALWAYS EXECUTED WITH A PRIORITY OF 0, 
AS ALL LIBRARY ROUTINES ARE, THE CALLING SEQUENCE *8| 

JSB SCHLB,I 

DEF <POINT£R TO DISC ADDRESS OF ROUTINE* 

<pARAMETERS IF DEslRED> 

<RETURN> 



74152 
74i53 

74154 
74155 
74156 
74157 
74160 
74161 
74162 
74163 
74164 
74165 
74166 
74167 
74170 
74171 



000000 
103100 
064272 
044341 
160001 
010462 
002002 
126036 

160001 
030377 
170001 
044376 
002400 
070262 
170001 
044355 



SCHLQ 



NOP 






CLP 







LDB 


MLINK+1 




ADB 


•«?LINK 




LDA 


B,I 


SUSPEND 


AND 


C0M14 


IF USER 


SZA 




TRIED TO 


JMP 


SUSPP,I 


ABORT 


LDA 


M 


SET UNABLE 


IOR 


UNABT 


TO ABORT 


STA 


1,1 


BIT 


ADB 


,+?PLEV 




CLA 






STA 


TIMEF 


NO TIMING, 


ST* 


1,1 


set priority 


ADB 


♦?STAT«? 


PLEV SET STAT 



TO 



TO SYNTAX 
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0155 
0156 
0157 

0iba 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

01 77 

0178 

0179* 

0180* 

0181* 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 
0203 
0204 
0205 
0206 



74172 
74173 

74174 
74176 
74176 
74177 
74200 
74201 
74202 
74203 
74204 
74205 
74206 
74207 
74210 

74211 
74212 
74213 
74214 
74215 
74216 
74217 
74220 
74221 



060363 
170001 
044346 
060056 
170001 
003000 
041213 
070204 
044355 
060001 
065213 
114206 

124210 
162152 
036152 
050256 
027000 
070256 
064315 
074204 
064610 
114206 
114207 
027000 



IDA XSYNT 
STA 1,1 
AOB t +?PROG< 
LOA PBPTR 
STA B,I 
CMA 

ADA USE 
STA MWORD 
AOB t +?DI8C< 
IDA B 
LDB USE 
J3B DI3CZ,I 
JMP PTZAP,I 
LDA sCHLq,I 
ISZ SCHU 
CPA LIB 
JMP LIBRA 
STA LIB 
LDB M512 
STB MWORD 
LDB #LIBI 

JsB DI S CZ,I 
JSB SICKP,I 
JMP LIBRA 



80 SCHEDULER DOESN*T KNOW 
WHAT WE'RE DOING, 
?STAT 

SET PBPTR IN TABLE. 

COMPUTE 
TRANSFER 
LENGTH 
?PROG 

»> SWAP AREA DISC ADDRESS 
SWAP USER 

OUT OF CORE 
NO GOOD, REMOVE THIS BUM 
»> LIBRARY ROUTINE DISC ADDRESS 

IF ROUTINE IS ALREADY 
IN CORE, TRANSFER TO IT 

SET POINTER 

SET TRANSFER 
LENGTH 

READ IN 

LIBRARY ROUTINE 

BAD NEWS 



COMPILER CALLED ROUTINES ALwAyB RETURN HERE 



74222 
74223 
74224 
74225 
74226 
74227 
74230 
74231 
74232 
74233 
74234 
74235 
74236 
74237 
74240 
74241 
74242 
74243 
74244 
74245 
74246 
74247 
74250 
74250 
74251 



103100 
064272 
044356 
134001 
034262 
044355 
134001 
026250 
044363 
060363 
170001 
044354 
062152 
170001 
002400 
170632 
102100 
064272 
160001 
070272 
016252 
126034 

102100 
126152 



sc h bl 



SCHBl 



CLF 
LDB 
AOB 

ISZ 
ISZ 
ADB 
ISZ 
JMP 
ADB 

LDA 
STA 
ADB 
L DA 

STA 
CLA 
STA 
STF 

LDB 
LDA 

STA 
JSB 
JMP 
EQU 
STF 
JMP 



MLINK+i 

+ ^STAT' 
1,1 
TlMEF 
t + ?CLOC< 
1*1 
SCHBl 
t +?PLEV< 

.♦4 

B,I 
,+?RSTR< 

SCHLQ 
6,1 

DCLC1,I 


MLINK-U 
B,I 

MLINK+l 
INSEQ 

SChR,I 

* 



SCHLQ, I RETURN TO LANGUAGE PROCESSOR 



•?LINK 

TRUE STATUS IS RUN 

SET FLAG FOR TIMING 
»?STAT 

TIMED OUT? 

NO 
>?CLOC 

SET PRIORITY TO 4 

.?PLEV 

SET RESTART ADDRESS 

BLOCK CLOCK 

REMOVE 

USER FROM 
QUEUE 
INSERT AGAIN AT END 
RETURN TO SCHEDULER 
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0206* 

0209** 

0210** 

0211** 

0212* 

0213* 

0214* 

0215* 

0216* 

0217* 

0218* 

0219* 

0220* 

0221 

0222 

0223 

0224 

0225 

0226 

0227 
0228 
0229 
0230 
0231 

0232 
0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252* 

0253** 

0254** 

0255** 

0256* 

0257* 

0256* 

0259* 
0260 
0261 
0262 



INSERT USER INtO THE QUEUE 



THIS SUBROUTINE INSERTS A US** INTO THE QUEUE IN ORDER OF His 
PRIORITY. WHEN WE ARRIVE HERE, THE B REGISTER PqInTS TQ THE LInK 
WORD FOR THE USER, INSEQ TRANSFORMS THE USERS ENT&RINQ PRIORITY 

(EP) TO anew priority (NP) by the following alGorithmi 

np * ep*np0rt/4 
where nport is the negative maximum number of ports. 



74252 
74253 
74254 

74255 
74256 
74257 
74260 
74261 
74262 
742 6 3 
74264 
74265 
74266 
7 4 267 
74270 
74271 
74272 
74273 
74274 
74275 
74276 
74277 
74300 
74301 
74302 
74303 
74304 
74305 
74306 
74307 
74310 
74311 



000000 
074061 
044360 
074067 
160001 
100200 
000167 

001121 
170067 
003004 
070067 
064271 
074064 
164001 
054271 
026303 
060001 
040360 
070066 
160000 
040067 

002021 
026266 
134066 
000000 
174061 
060061 
170064 
040354 
064345 
174000 
126252 



INSEQ NOP 

STB SCHL SAVE LINK ADDRgSS 

ADB t +?PLfcV«*?LlNK 

STB SCHPR SAVE PRIORITY ADDRESS 

LDA Btl COMPUTE AND 

MPy NPORT SAyE PRIORITY 



INS1 



INS2 



ARS, 
STA 

CMA, 

STA 

LDB 

STB 

LDB 

CPB 

JMP 

LDA 

ADA 

STA 

LDA 

ADA 

SSA, 

JMP 

IS2 

NOP 

STB 

LDA 

STA 

ADA 

LDB 

STB 

JMP 



ARS 

SCHPR, I 

INA 

SCHPR 

MLINK 

SCHP 

B,I 

MLINK 

INS2 

B 

.♦7PLEV' 
SCHT 
A, I 
SCHPR 
RSS 
INS1 
SCHT, I 

SCHL, I 

SCHL 
SCHP, I 

.♦?CLQC 
.•10 

INSEQ, I 



based upon the 
* of available ports 
save positive 

value for test 
«> phony user 
save link pointer 
b «> next user 
did we reach end of queue? 

YES 
NO 
'?LINK 

SAVE THIS USER»S PRIORITY ADDR, 
GET THE PRIORITY AND 

ADD THE TEST VALUE , 

IF >* TRY THE 

LINK TO NEXT USER 
INCREMENT PRIORITY 

OF PREVIOUS ENTRY 
SET NEW ENTRY TO POINT TO USER 

SET PREVIOUS ENTRY «> NEW ENTRY, 
•?LINK SET NEW USERS CLOCK TO »i0 9 



ABORT CHECK 



TEST FOR ABORT ATTEMPT W HEN THEY wERENiT ALLOWED, IF SO, LET 
THE SCHEDULER KNOW TO ABORT HIM 

74312 000000 ABCHK NOP 

74313 064272 LDB MLP'K + l CLEAR 

74314 044341 ADB ,*?LINK 
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0263 
0264 
0265 
0266 
0267 
0266 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 

0285* 
0286* 
0287* 
0288* 
0289* 
0290* 
0291* 
0292* 
0293* 
02g4* 

0295* 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 



74315 
74316 
74317 

74320 
74321 
74322 
74323 
74324 
74325 
74326 
74327 
74330 
74331 
74332 
74333 
74334 
74335 
74336 
74337 
74340 
74341 
74342 



060377 
003000 
103100 

110001 
170001 
102100 
010476 
002003 
126312 
103100 
030506 
003000 

110001 
030462 
170001 
002400 
170632 
044374 
003400 
170001 
102100 
126034 



LDA 
CMA 
CLF 
AND 
STA 
STF 

AND 
SZA, 

JMP 
CLF 
IOR 
CMA 

AND 
IOR 
STA 
CLA 
STA 
ADB 
CCA 
STA 
STF 
JMP 



UNABT 


lrl 

1,1 


ABTRY 
RSS 

ABCHK,I 



CHNFG 

1,1 
C0M14 

1,1 

DCLCl,I 
,+?STAT 

1,1 



SCHR,I 



UNABLE TO 
ABORT 
FLAG 



ABORT ATTEMPTED? 

NO 

YES 

CLEAR ABORT 

TRY FLAG 

SET C0M14 BIT 

TO SIGNAL SCHEDULER 

BLOCK 

CLOCK 

SET STATUS 
TO ABORTING 

RETURN TO SCHEDULER 



** 



SEMI. COMPILE CHECK 



CHECK IF THE PROGRAM WHICH HAS JUST BEEN LOADED FROM THE USER 
LIBRARY IS SEMI-COMPILED, AND SET THE NECESSaRY COMPILER 
VARIABLES, LIBSC, LIBSP, AND LIBPB ARE PASSED TO THIS ROUTINE 
FROM THE LIBRARY ROUTINE WHICH CALLS IT (CHAIN, GET, OR HELLO) 



74343 
74344 
74345 
74346 
74347 
74350 
74351 
74352 
74353 
74354 
74355 
74356 
74357 
74360 
74361 
74362 
74363 
74364 
74365 
74366 
74367 
74370 
74371 



000000 
103100 
060040 
002020 
026362 
002400 
071573 
060045 
070056 
064272 
044341 
060361 
003000 
110001 
026414 
060045 
040350 
070056 
071502 
164000 
075573 
002004 
164000 



SEMIC NOP 
CLF 
LDA 
SSA 

JMP 

CLA 
STA 
LDA 
STA 
LDB 
ADB 
LDA 
CMA 
AND 
JMP 
SEMIl LDA 
ADA 
STA 
STA 
LDB 
STB 
INA 
LDB 




LIBSC 

SEMIl 

8YMTB 

H6PB 

PBPTR 

MLINK+1 

,~?LINK 

CFLAG 

1,1 

SEMI3 

LIBPB 

t »7 

PBPTR 

FILTB 

0,1 

SYMTB 

0,1 



SEMICOMPILED? 
YES 

NQ»»CLEAR OUT-OF- 

STORAGE FLAG 
SET LENGTH 

POINTER 
SET 

uncompiled 
bit 



SET 

LENGTH 
POINTER 

SET END-OF* 

PROGRAM POINTER 
SET <FILES 

STATEMENT 
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0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 

0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344* 

0345* 

0346* 

0347* 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356* 

0357** 

0358* 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371* 

0372** 

0373* 



74372 
74373 
74374 
74375 
74376 
74377 
74400 
74401 
74402 
74403 
74404 

V A AUK 

74406 
74407 
74410 
74411 

74412 
74413 
74414 

74415 
74416 
74417 
74420 
74421 
74422 



075604 
064444 
075603 
064353 
075230 
002004 
164000 
175603 
035603 
035230 
026377 
002004 
164000 
075605 
064272 
044341 
160001 
030361 
030612 
170001 
074255 
064041 
075575 
102100 
126343 



SEMI2 



SEMI3 



STB F1LCT 


COUNTER 


LDB OFILT 


POINTER TO 


STB FILPT 


*FILES STATEMENT** 


LDB ,-4 


4 <FILES 


STB SPTR 


STATEMENTS* POSSIBLE 


INA 


STORE 


LOB 0,1 


POINTER 


STB FILPT, I 


TO <FILEs 


ISZ FI L PT 


st*temEnt> 


ISZ SPTR 


All 4 DONE? 


JMP SEMI2 


NO 


INA 


SAyE 


LDB 0,1 


'USING 


STB USESN 


SEEN* FLAG 


LDB MLINK+l 


SET 


ADB ,-?LINK 


COMPILED 


LDA 1,1 


BIT 


IOR CFLA6 




IOR PUALT 


SET PROGRAM 


STA B,I 


UNALTERED BIT 


STB MAIN 


SET MAIN 


LDB LIBSP 


SET START-OF* 


STB SPROG 


PROGRAM POINTER 


STF 




JMP SEMIC,! 





DATE COMPUTES A WORD CONTAINING 
AND THE DAY IN ITS 9 LOW ORDER I 



74423 000000 

74424 060171 

74425 006400 

74426 100400 

74427 m^mj 

74430 100047 

74431 064170 

74432 101047 

74433 126423 



DATE NOP 

LDA DATIM 

CLB 

Dlv ,+24 

LSL 7 
LDB YEAR 
LSR 7 

JMP DATE, I 



THE YEAR IN ITS 7 HIGH ORDER BITS 
ITS. 



GET HOUR OF YEAR, 
DIVIDE BY 24 TO 
GET THE DAY. 



POSITION ON LEFT, 
POSITION THE YEAR 



MOVE BLOCK BACKWARD 

74434 000000 MOVEB NOP 

74435 006025 SSB,INB,RSS 

74436 126434 JMP MOVEB, I 

74437 160050 LDA MOVES,I 

74440 170051 STA MOVED, I 

74441 003400 CCA 

74442 040051 ADA MOVED 

74443 070051 STA MOVED 

74444 003400 CCA 

74445 040050 ADA MOVES 

7 4446 070050 STA MOVES 

74447 026435 JMP MQVEB+1 

MOVE BLOCK FORWARD 



MOVE BACKWARD „B WORDS FROM 
MOVES TO MQVEDt 



UPDATE POINTERS. 
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0374 


74450 


000000 


MOVEW NOP 




MOVES „8 W 


0375 


74451 


006025 


SSBi 


>INB,RSS 


MOVED, I 


0376 


74452 


126450 


JMP 


MOVEW, I 




0377 


74453 


160050 


LOA 


MOVES, I 


GET A WORD 


0378 


74454 


170051 


STA 


MOVED, I 


STORE IT, 


0379 


74455 


034050 


ISZ 


MOVES 


BUMP 


0380 


74456 


034051 


I3Z 


MQyED 


POINTERS, 


0381 


74457 


026451 


JMP 


MOVEW41 


NO, 
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0383* 
0384* 
0385* 
0386* 
0387* 
0388* 
0389* 
0390* 
0391* 
03g2* 
0393* 
0394* 
0395 

0396 
0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415* 

0416* 

0417* 

0418* 

0419* 

0420* 

0421* 

0422* 

0423* 

0424* 

0425* 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436* 

0437* 

0438* 



#* 



SYSTEM CONSOLE INPUT ROUTINE 



T35CQ IS USED By LIBRARy PROGRAMS TO SCAN THE TT Y 35 INPUT BUFFER, 
EACH TIME IT IS CALLED, IT FETCHES THE NEXT CHARACTER* BUT SKIPS 
BLANKS, THE CHARACTER IS LEFT IN T35LC, AND IN A t WHEN A RETURN IS 
ENCOUNTERED* T35cQ RETURNS TO PMf OTHERWISE TO P*2, IT IS INITI* 
ALIZED BY THE MONITOR BEFORE THE LIBRARY ROUTINE 18 CALLED, 



74460 
74461 
74462 
74463 
74464 
74464 

74465 
7^466 
74467 
74470 
74471 
74472 
74473 
74474 
74475 
74476 
74477 
7A477 
74500 
74501 



000000 
060055 
050374 
126460 

064054 
004065 
160001 
002041 
001727 
010474 
070055 
034054 
050374 
126460 
050417 

026464 
036460 
126460 



T35CQ 



T35C0 



T35C1 



NOP 


ENTRy POINT, 


LDA T35LC 


GET LAST CHARACTER. 


CPA ,+15B 


IF CR # 


JMP T35CQ,I 


return Immediately, 


EQU * 




LDB T35CP 


GET CHARACTER POINTER IN B* 


CLE,ERB 


ADJUST, 


LDA 1,1 


FETCH 


SEZ,RSS 


CHAR, 


ALF,ALF 




AND B177 




STA T35LC 


SAVE IT, 


ISZ T35CP 


BgMP POINTER, 


CPA ,+15B 


IF CR. 


JMP T35CQ,I 


RETURN IMMEDIATELY, 


CPA .+40B 


IF BLANK, 


EQU * 




JMP T35C0 




ISZ T35CQ 


— mm *a agm jj «- im ^% BJ» 


JMP T35CQ,I 


RETURN NORMAL, 



* 



SYSTEM CONSOLE OUTPUT ROUTINES 



* OUTPUT BUFFER jO SYSTEM CONSOLE AND WAIT 

A 5 n OF CHARACTERS (BIT 15 « FOr CrLF) 
B ■> BUFFER (BIT 15 * 1 FOR PUNCHING) 



74502 
74503 
74504 
74505 
74506 
74507 
74510 
74511 
74512 
74513 



000000 

114760 
103100 
062502 
070275 
060276 

070300 
060362 
070276 
126036 



T35SP 



NOP 




JSB TTY35,I 


FIRST OUTPUT. 


CLF 




LOA T35SP 


move return address 


STA T35RS 


INTO TABLE, 


LDA T35ST 


MOVE STATUS INTO PRIORITY 


STA T35PR 




LDA XOUTW 


SET STATUS TO OUTWAlT. 


STA T35ST 




JMP SUSPP,I 


GO HANG 



* OUTPUT LF TO SYSTEM CONSOLE AND TERMINATE 
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0439 


74514 


060722 


lend 


LDA onei 


OUTPUT THE 


0440 


74515 


06*636 




LDB DEH 


LINE FEED. 


0441 


74516 


114760 


LEND2 


JSB TTY35,I 


OUTPUT BUFFER AND TERMINATE 


0442 


74517 


103100 




CLF 




0443 


74520 


002400 




CLA 




0444 


7*521 


070312 




STA T35F2 




0445 


74522 


124740 




JMP 8CHEN,I 




0446* 












0447** OUTPUT ILLEGAL FORMAT MESSAGE 


TO SYSTEM CONSOLE AND TERMINATE 


0448* 












0449 


74523 


060376 


LFRER 


LDA ,415 




0450 


74524 


066713 




LDB LFRDF 




0451 


74525 


026516 




JMP LEND2 




0452* 












0453** OUT p UT DISC 


ERROR 


MESSAGE tO SySjEM CONSOLE AND tE rm * n AtE 


0454* 












0455 


74526 




DDERR 


equ * 




0456 


74526 


060414 




LDA t *29 




0457 


74527 


066531 




LDB *+2 




0458 


74530 


026516 




JMP LEND2 




04§9 


74531 


073565 




DEF DDERL 




0460* 












0461** 










0462*** USER TELETYPE INPUT ROUTINE 




0463** 










0464* 












0465* 












0466* 


LCHAR IS USED By LIBRARY PROGRAMS TO OBTAIN CHARACTERS FROM TH 


4 67* 


USER 1 


»S INPUT 


BUFFER IN THE I/O 


PROCESSOR, EACH TIME IT IS 


0468* 


CALLED, It FETCHES 


THE NEXT CHARACTER, S*IpS BLANK 8 , AND CONyE 


0469* 


LO«£ R CASE ChARACTj 


irRS TO UPPfcR 


case, the character is left in 


0470* 


LCHCN AND A, 


WHEN 


"A CR IS ENCOUNTERED, LCHAR RETURNS TO -**fj 


0471* 


OTHERWISE TO 


P*2. 






0472* 












0473 


74532 


000000 


LCHAR 


NOP 




0474 


74533 


060264 




LDA LCHCR 


GET CARRIAGE RETURN FLAG 


0475 


74534 


050374 




CPA ,+15B 


PREVIOUS RETURN? 


0476 


74535 


126532 




JMP LCHAR, I 


YES 


0477 


74536 


064272 


LCHR1 


LDB MLINK+1 




0478 


74537 


044342 




ADB .+?TNUM-?LINK 


0479 


74540 


160001 




LDA 1,1 


FETCH 


04e0 


74541 


030215 




IOR GTC 


CHARACTER 


0481 


74542 


114736 




JSB Sl4SC,I 


FROM 2114 


0482 


74543 


102 3 11 




SFS CH2 


WAIT FOR 


0483 


74544 


026543 




JMP *-l 


RESPONSE 


0484 


74545 


1025H 




LIA CH2 




0485 


74546 


070264 




STA LCHCR 


SET CARRIAGE RETURN FLAG 


0486 


74547 


050417 




CPA .+40B 


BLANK? 


0487 


74550 


026536 


LCHR2 


JMP LCHRl 


YES, IGNORE IT 


0488 


74551 


050374 




CPA .+15B 


NO, CARRIAGE RETURN 


0489 


74552 


126532 




JMP LCHAR, I 


YES»*EXIT 


0490 


74553 


040317 




ADA M96 




0491 


74554 


002021 




SSA,RSS 


LOWER CASE? 


0492 


74555 


040450 




ADA M32 


YES, CONVERT 


0493 


74556 


040470 




ADA t 14C 


NO 


0494 


74557 


036532 




ISZ LCHAR 


N0**EXIT 
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0495 

0496* 

0497** 

0498** 

0499** 

0500* 

0501* 

0502** 

0503* 

0504 

0505 

0506 

0507 

0508 

0509* 
0510** 

0511* 

0512* 

0513* 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529* 

0530** 

0531* 

0532* 

0533* 

0534 

0535 

0536 

0537 

0538 

0539 

0540* 

0541** 

0542* 

0543 

0544 

0545 



74560 126532 



JMP LChAR,I 



TO (P*2) 



* uSFR TELETYPE OuTPuT ROUTINES 



output character in a to user's teletype 



74561 000000 

74562 064272 

74563 044341 

74564 114724 

74565 126561 



LOUT NOP 

LOB MLINK+1 
ADB „«?LlNK 
JSB DUTCH, I 
JMP LOUT, I 



OUTPUT BUFFER TO USER'S TELETYPE 
A » .NUMBER OF CHARACTERS 
B «> BUFFER 



74566 000000 LTYPR NOP 

74567 072011 STa LTYPl 

74570 076012 STB LTYP2 

74571 162012 LTYP3 LOA LTYP2,I 

74572 001727 ALF,ALF 

74573 016561 JSB LOUT 

74574 036011 ISZ LTYPl 

74575 002001 RS8 

74576 126566 JMP LTYPR, I 

74577 162012 LOA LTYP2,I 

74600 016561 JSB LOUT 

74601 036012 ISZ LTYP2 

74602 036011 ISZ LTYPl 

74603 026571 JMP LTYP3 

74604 126566 JMP LTYPR,! 



SAVE CHARACTER COUNT 
SAVE BUFFER POINTER 
GET FIR8T 

CHARACTER OF WORD 
OUT, 
ANY MORE? 

YES 
NO, 
SEND 2ND 

CHAR, 
BUMP POINTER, 
ANY MORE? 
YES 



OUTPUT BUFFER AND CR-LF TO USER*S TELETYPE 
A m -NUMBER OF CHARACTERS 
B 9> BUFFER 



74605 
74606 
74607 

74610 
74611 
74612 



000000 
016566 
060355 
066026 
016566 
126605 



LTYPE 



NOP 
JSB 
LDA 
LDB 
JSB 
JMP 



LTYPR 
.-2 
PCRLP 
LTYPR 
LTYPE, I 



3 > CR-LF 



OUTPUT LF TO USER'S TTY AND TERMINATE 



74613 060371 

74614 016561 

74615 124740 



LLEND LDA ,+12B 
JSB LOUT 
JMP SCHEN f I 



0547* 

0548** 

0549* 



ErrOr MESSAGE TERMINAL C UC XK 
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IF SYSTEM TELETYPE, PRINT 
ERROR message THERE, 



0550 74616 060044 GTFER LDA GETQH 

0551 74617 050754 CPA T35CH 

0552 74620 026523 JMP LFRER 
0553* 

0554** output illegal format message to user»s tty and terminate 

0555* 

0556 74621 060340 ILFER LDA ,~15 OTHERWISE PRINT IT ON 

0557 74622 066713 LQB LFROF USER TELETYPE. 
0558* 

0559** OUTPUT BUFFER AND CR-LF TO USER'S TTY AND TERMINATE 
0560* 

0561 74623 016605 LIBER JSB LtyPE 

0562 74624 124740 JMP SCheNjI 
0563* 
0564** 

0565*** BUFFERS AND MESSAGES 
0566** 
0567* 

0568 SUP 

0569 74625 000000 T35BF BSS 36 

0570 74671 006412 CRLF OCT 6412 



TERMINATE, 



BUFFER FOR INPUT AND REPLIES, 
MUST FOLLOW T3SBF 



0572 74672 074673 

0573 74673 005111 

0574 74674 046114 



HELK DEF **1 
OCT 5111 
ASC 7 r LLEGAL ACCESS 



0576 74703 074704 

0577 74704 005116 

0578 74705 047440 



HELH DEF *+l 
OCT 5116 
ASC 6r0 TIME LEFT 



0580 74713 074714 

0581 74714 005111 

0582 74715 046H4 
0583 



LFRDF DEF *+l 
OCT 5111 

ASC 7#LLEGAL FORMAT 
UNS 



0585 74724 



BSS 
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0002+ THIS TABLE is used by the tsb paper tape loader, the sleep 

0003* ROUTINE, AND THE M*G TAPE LOADER. IT CONTAINS THE LENGTHS OF 
0004* ALL THE REMAINING LIBRARY ROUTINES, AND ENABLES THE LOA0ER TO 
0005* ALLOCATE THE MINIMUM NUMBER OF DISC SECTORS FOR EACH OF THEM, 
0006* THE TABLE IS WRITTEN ON THE DISC AS THE FIRST LIBRARY RQUTInE, 



0008 


75000 




0009 


75000 3 


177703 


0010 


75001 3 


177000 


0011 


75002 3 


177000 


0012 


75003 ] 


177216 


0013 


75004 1 


i77255 


0014 


75005 1 


L77414 


0015 


75006 1 


177000 


0016 


75007 * 


L77000 


0017 


75010 3 


L77005 


0016 


75011 1 


177433 


0019 


75012 3 


L77321 


0020 


75013 3 


L77267 


0021 


75014 3 


177521 


0022 


75015 ] 


177460 


0023 


75016 3 


177171 


0024 


75017 3 


L77653 


0025 


75020 3 


[77431 


0026 


75021 3 


L77431 


0027 


75022 1 


L77431 


0028 


75023 J 


177332 


0029 


75024 3 


L77425 


0030 


75025 1 


177010 


0031 


75026 3 


177010 


0032 


75027 I 


77644 


0033 


75030 1 


177644 


0034 


75031 1 


177654 


0035 


75032 1 


177654 


0036 


75033 3 


177000 


0037 


75034 3 


177717 


0038 


75035 1 


177737 


0039 


75036 3 


177655 


0040 


75037 1 


177723 


0041 


75040 1 


177625 


0042 


7504! 1 


177426 


0043 


75042 1 


177416 


0044 


75043 1 


177003 


0045 


75044 3 


177003 


0046 


75045 1 


L77635 


0047 


75046 1 


[77663 


0048 


75047 3 


[77606 


0049 


75050 1 


[77614 


0050 


75051 1 


[77624 


0051 


75052 1 


[77362 


0052 


75053 1 


[77362 


0053 


75054 1 


77135 


0054 


75055 1 


[77305 


0055 


75056 3 


[77202 


0056 


75057 1 


77001 


0057 


75060 ] 


[77111 



ORG LIBRA 




ABS LIBRA»$SLPL 




DEC .512 TWO 


HALVES OF 


DEC »512 FUSS TABLE 


ABS LIBRA. $FLB 




ABS LIBRA«$ASN 




ABS LIBRA. $CHN 




ABS LIBRA-SSAV 




ABS LIBRA- $SAV 




ABS LIBRA. $$SAV 


SAVE OVER 


ABS LIBRA. $GET 




ABS LIBRA. SAPP 




ABS LIBRA. $HEL 




ABS LIBRA. $BYE 




ABS LIBRA. $KIL 




ABS LIBRA. $REN 




ABS LIBRA. $NAM 




ABS LIBRA. $CAT 




ABS LIBRA. SCAT 




ABS LIBRA. SCAT 


GROUP 


ABS LIBRA. $DIRs 




ABS LIBRA. $REP$ 




ABS LIBRA. $STAS 




ABS LIBRA. SSTAS 




ABS LI8RA„$DEL 




ABS LIBRA. $TIM 




ABS LIBRA. $PRO 




ABS LIBRA. $PRO 




ABS LIBRA-$OPE 




ABS LlBRA*$LEN 




ABS LIBRA. $ECH 




ABS LIBRA. $MES 


MESSAGE 


ABS LIBRA-SLPR 




ABS LIBRA. SPQRS 




ABS LIBRA. $REP 




ABS LIBRA. $DIR 




ABS LIBRA-SSTA 




AB3 LIBrA«$STA 




ABS LIBRA-SPOR 




ABs LIBRA. $ROs 




ABS LXBRA„$ANN 




ABS LIBRA. SRES 




ABS LIBRA. $CHA 




ABS LIBRA*$SLE 




ABS LIBRA. $SLE 


HIBERNATE 


ABS LIBRA. SNEW 




ABS LIBRA. SKID 




ABS LIBRA. SMUN 




ABS LIBRA. $MLO 




ABS LIBRA. $$MLO 





PAGE 


0360 #30 LIBRARY 


SIZES 




0058 


75061 


177000 




ABS 


LIBRA-SCOP 


0059 


75062 


177000 




A6S 


LIBRA-SBES 


0060 


75063 


177377 




ABS 


LIBRA. SPUR 


0061 


75064 


177730 




ABS 


LIBRA-sMAG 


0062 


75065 


177747 




ABS 


LIBRA«.$pHo 


0063 


75066 


177716 




ABS 


LIBRA»$PRI 


0064 


75067 


177417 




ABS 


LIBRA-SSPE 


0065 


75070 


177671 




ABS 


LIBRA-SBRE 


0066 








REP 


4 


0067 


75071 


177000 




DEC 


-512 


0067 


75072 


177000 




DEC 


• 512 


0867 


75073 


177000 




DEC 


•512 


0067 


75074 


177000 




DEC 


• 512 


0066 


75075 




$SLPL EQU 


* 
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0070* 

0071* 

0072* 

0073* 

0074* 

0075* 

0076* 

m77 

0078 

0079 

0080 

0080 

0080 

0080 

0080 

0080 

0080 
0080 



THE FUSS TABLE CONTAINS A 32 WORD ENTRY FOR EACH PORT, THESE 
WOROS ARE THE DISC ADDRESSES OF THE FILES HE IS CURRENTY USING, 
A ZERO INDICATES NO FILE, THE TABLE IS READ OUT TO THE DISC 
IN TWO HALVES, AND THEY ARE ASSUMED TO Be ON CONTIGUOUS 
SECTORS, (THIS IS GUARANTEED IF FUSS IS ONE OF THE FIRST 
LIBRARY ROUTINES, 

75000 



0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 

0081* 

0082 

0083 

0084 

0084 

0084 

0084 

0084 

0084 

0084 

0084 

0084 

0084 

0084 



75000 
75020 
75040 
75060 
75100 
75120 
75140 
75160 
75200 
75220 
75240 
75260 
75300 
75320 
75340 
75360 
75400 
75420 
75440 
75460 
75500 
75520 
75540 
75560 
75600 
75620 
75640 
75660 
75700 
75720 
75740 
75760 

75000 

75000 
75020 
75040 
75060 
75100 
75120 
75140 
75160 
75200 
75220 
75240 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



ORG 


LIBRA 


SUP 




REP 


32 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


ORG 


LIBRA 


REP 


32 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,010 


OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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0084 


75260 


000000 


OCT 


0084 


75300 


000000 


OCT 


0084 


75320 


000000 


OCT 


0064 


75340 


000000 


OCT 


0084 


75360 


000000 


OCT 


0084 


75400 


000000 


OCT 


0084 


75420 


000000 


OCT 


0084 


75440 


000000 


OCT 


0084 


75460 


000000 


OCT 


0084 


75500 


000000 


OCT 


0084 


75520 


000000 


OCT 


0084 


75540 


000000 


OCT 


0084 


75560 


000000 


OCT 


0084 


75600 


000000 


OCT 


0084 


75620 


000000 


OCT 


0084 


75640 


000000 


OCT 


0084 


75660 


000000 


OCT 


0084 


75700 


000000 


OCT 


0084 


75720 


000000 


OCT 


0084 


75740 


000000 


OCT 


0084 


75760 


000000 


OCT 


0085 






UNS 



0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 



*0#0, 
,0*0, 
*0*0* 
*0*0* 
,0*0, 
*0*0* 
,0*0, 
*0#0* 
#0*0* 
,0*0, 
#0*0* 
,0,0, 

*0#0* 
#0*0* 
*0*0* 
,0*0, 

#0*0* 
*0*0* 
#0#0# 

*0#0# 

#0*0* 



0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0#0#0 
0*0,0 
0,0,0 
0,0,0 
0,0,0 

%0#0 
*j,0,0 
0*0,0 
0,0*0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0#0,0 
0,0,0 
"#0#0 



0,0*0 
0,0*0 
0*0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
- 0,0 
0*0 
0,0 
0,0 
0,0 










0_ 
0,0 

0*0, 

0,0,0 
0,0,0 
0,0,0 
0,6,0 



0,0 
#0 







0,0 
0*0 
0*0 
0*0 
0,0 

0*0! 

0*0 

0*0 

0#0, 

0*0! 

0# 

0#0i 

0*0 

0*0 

0* 
0*0j 

0*0! 

0* 

0#0| 

0*0! 

0*0, 
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0087* 
0086* 
0089* 
0090* 
0091* 
0092* 
0093* 
0094* 
0095* 
0096* 
0097* 
0098* 

0099* 
0100* 
0101* 
0102* 
0103* 

0104* 
0J05* 



THE F IL ES ROUTINE iS USED BY THE BASIC COMPILER TO PROCESS FILES 

STATEMENTS DURING PHASE II, THE PURPOSE OF THE ROUTINE J8 TO PRO* 

VIDE THE COMPILER WITH INFORMATION ABOUT THE REQUESTED FILES. THIS 

INFORMATION CONSISTS OF THE FILE»S DISC ADDRESS, ITS LENGTH, 

AND ITS RECORD SIZE, 

THE COMPILER PASSES PARAMETERS To THE FI L ES ROUTINE A8 FOLLOWSl 

FILCt*-5*# OF FILES StAtEMENjS 
FILTB«>BEGINNING OF TABLE AREA FOR FILE INFO f 
SCHLB,I«>FIRST POSSIBLE RETURN ADDRESS, 

THE CALLING SEQUENCE TO THE FilES ROUTINE IS AS FOLLOWS* 

JSB SCHLB,I 

DEF FILIB 

<ERROR EXIT FOR BAD FORMAT IN FILES STATEMENT* 

<ERROR EXIT IF A FILE IS UNACCESSIBLE> 

<ERROR EXIT IF PROGRAM OVERFLOW* 

<NORMAL EXIT> 



0107 

0108* 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120* 

0121* 

0122* 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133* 

0134* 

0135* 

0136 

0137 

0138 
0139 

0140 

0141 



75000 

75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 



ORG LIBRA 



063561 
070036 
070037 
060336 
070040 
061604 
040364 
003004 
070046 
060444 
070047 



IDA 
STA 

STA 

LDA 

STA 

LDA 

ADA 

CMA, 

STA 

LDA 
STA 



FILBP 

FlBuF 

FLBFP 

.-17 

FLBCl 

FILCt 

,*5 

INA 

FLBFC 

DFILT 

FLBFF 



GET POINTER TO FILE BUFFER 
SAVE BUFFER POINTER, 

SET COUNTER FOR MAXIMUM NUMBER 

OF FILES ALLOWED, 
GET COijNt . 5 OF FILES StAtEMENt 
GET COUNT 
GET NEGATIVE 
SAVE COUNT 

GET POINTER TO FILES 
STATEMENT TABLE 



INITIALIZATION IS COMPLETE, NOW BEGIN PROCESSING THE FILES STMTS, 



75013 
75013 
75014 

7501b 
75016 

75017 

75020 
75021 
75022 
75023 



164047 
003400 
U0001 

040001 

001200 

070042 
006004 

005000 
074043 



FLBA 



GET THF FI L E nAmE 



75024 
75025 

75026 
75027 

75030 

75031 



034040 
002001 
027177 
060354 

070041 

002400 



FLB1 



EQU 
LDB 
CCA 
ADA 
ADA 

RAL 
STA 
INB 
BLS 
STB 



ISZ 
RSS 
JMP 
LDA 
STA 
CLA 



FLBFF*I 

lfl 
1 

FLBP 



GET POINTER TO FILES STATEMENTS 
SET POINTER TO 
LAST CHAR ♦ 1 OF 
FILES STATEMENT, 

INITIALIZE EOF STATEMENT POINTER 
INITIALIZE POINTER TO 



F L BCP FILES STATEMENT. 



FLBCl 

FLB8+1 
, «*3 
FLBC2 



TEST FOR 

TOO MANY 
FILES 
SET FLAG TO SAY 

3 WORDS ALLOWED 
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0142 
0143 
0144 
0145 

0146 
0147 
0148 
0149 
0150 
0151 
0152 

0154 

0155 
0156 
0157 
0158 
0159 
0160 
0161 

0162* 

0163* 

0164* 

0165 

0166 

0167 

0168* 

0169* 

0170* 

0171 

0172 

0173 

0174 

0175* 

0176* 

0177* 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193* 

0194* 

0195* 

0196* 

0197 



75032 
75033 
75034 
75035 

75036 
75037 
75040 
75041 
75042 
75043 
75043 
75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 



070031 
070030 
017527 
050423 

027060 
050431 
027064 
050417 
027177 

040030 

00 1 tOt 

170036 
017527 
130036 
170036 
034036 
017527 
034041 
027044 



STA 
STA 
JSB 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
FLB25 EQU 
ADA 



FLB5 



FL»3 



ALF 
STA 
JSB 
IOR 
STA 
ISZ 
JSB 
ISZ 
JMP 



F^BCM 
FIBS 
FLBCH 
# *44B 

FLB2 
.+52B 

FUB22 
• +40B 
FLB8*1 

* 

FLB$ 
ALF 

FLBUF, I 
FLBCH 

flbuf,i 

FLBUF, I 

FLBUF 

FLBCH 

FLBC2 
FLB3 



TEST 7TH CHARACTER FOR BLANK 



75055 050417 

75056 027103 

75057 027177 



CPA ,+40B 
JMP FLB4 
JMP FLB8*1 



COME HERE IF 1$T CHARACTER Is $ 



75060 060476 

75061 070030 

75062 017527 

75063 027041 



FLB2 



LOA B200 

STA FLB$ 

JSB FLBCH 

JMP FLB5 



COME HERE IF 1ST CHARACTER Is * 



75064 
75065 
75066 
75067 
75070 
75071 
75072 
76073 
75074 
75075 
75076 
75077 
75i»0 
75101 
75102 



061027 
070030 
017527 

050417 
002401 
027043 

064350 
170036 

034036 
006006 
027073 

064502 
174036 

002004 
027104 



FLB22 LOA BIT15 
STA FLB$ 
JSB FLBCH 
CPA .+40B 
CLA,RSS 
JMP FLB25 
LDB t *7 
STA FLBUF, I 
ISZ FLBUF 
INB,SZB 
JMP *-3 
tOB B400 

FLBUF, I 



STB 
INA 
JMP 



FLB26 



THE FILE NAME HAS BEEN TESTED AS 
TEMPORARY BUFFER 

75103 060364 FLB4 IDA t +5 



CL&AR COMMA FLAG, 

GET FIRST CHAR, 

TEST FOR DOLLAR SIGN, 

TE8T FOR 8N0WFLAKE 

BETTER NOT BE A BLANK. 
FAIL IF IT IS, 

* OR $ FLAG FIRST CHARACTER 
POSITION ON LEFT 

AND STORE IN BUFFER, 
GET RIGHT CHARACTER 

AND PACK IN, 

BUMP BUFFER POINTER, 

GET NEXT CHARACTER, 

TEST FOR END OF FILE NAME, 



IF END OF FILE NAME, CHAR MUST 

BE A BLANK, 
FAIL IF NOT, 



IF 1ST CHAR IS S, SET FILS TO 

INDICATE LIBRARY FILE, 
GET NEXT CHAR, 



IF FIRST CHAR 18 *. Ml FIL$ TO 
INDICATE GROUP LIBRARY FILE 

GET NEXT CHARACTER 

IS IT BLANK? 

YES, * IS PLACE HOLDER 

NO, CONTINUE PROCESSING NAmE - 

CLEAR BUFFER 
SINCE NO 
FILE NOW 



RESERVE 256 WORDS 

IN CORE FOR FUTURE FILE 



CORRECT AND STORED IN THE 



LEAVE ROOM FOR STORAGE 



PAGE 0365 #30 FILES 



0196 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207* 

0208* 

0209* 

0210 

0211 

0212 

0213 

0214 

0215* 

0216 

0217 

0216 

0219* 

0220* 

0221* 

0222 

0223 

0224 

0225 

0226* 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238* 

0239 

0240 

0241 

0242 

0243 

0244* 

0245 

0246 

0247 

0248 

0249 

0250 

0251 



75104 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 



Fia26 



040036 
070036 
060031 
002002 
027024 
034047 
034046 

027013 



EQU * 

ADA FLBUF 

STA FLBUF 

LDA FLBCM 
SZA 

JMP FLB1 

ISZ FLBFF 

I3Z FLBFC 

JMP FLBA 



of file information 
from the directory 
test for any more 

files requested 
yes if comma has seen, 
count up pointer into table 
check counter 
process another files statement, 



all file Statements have now been processed 



75114 060040 

75115 040400 

75116 003004 

75117 070040 

75120 070041 

75121 036152 

75122 060037 

75123 070036 



LDA FLBCt 

ADA .+17 
CMA,INA 

STA FLBC1 

STA FLBC2 

ISZ SCHLQ 

LDA FLBFP 

STA FLBUF 



SET FILC1 TO EQUAL 

•* OF FILES REQUESTED 



BUMP RETURN ADDRESS SINCE WE»V£ 
NOW CHECKED FOR TYPE I ERRORS, 
SET POINTER TO BUFFER AGAIN, 



BEGIN BUILDING ThE 'FILES 1 TABLE FQR THIS USER 



75124 060272 

75125 040346 

75126 160000 

75127 070044 



LDA MLINK+i GET USER ID AND SAVE IT, 
ADA „*?ID«.?LINK 
LDA 0,1 
STA FLBID 



75130 
75131 
75132 
75133 
75134 
75135 

751^6 
75137 
75140 
75141 
75142 

75143 
75143 
75144 
75145 
75146 

75147 
75150 
75151 
75152 
75153 
75154 
75155 
75156 
75157 



164036 
006003 
027143 
060044 
006020 
060514 

005727 

006020 
027147 

005727 
027165 



064036 
044367 

074036 
027264 

005665 
005727 
174036 
010512 
006400 
100400 
000472 
100200 
000472 



FLB6 



LDB FLBUF, I 

SZB,RSS 

JMP FLB27 

LDA FLBID 

SSB 

LDA A000 

BLF,BLF 

SSB 

JMP F L B24 

BLF # BLF 

JMP FLB23 



FLB27 EQu * 

LDB FLBUF 
ADB t +8 

STB FLBUF 
JMP FLB28 

FLB24 ELB,CLE,ERB 
BLF,BLF 
STB FLBUF, I 
AND B1777 
CLB 
DIV ,100 

MPY .100 



GET FIRST WORD OF FILE NAME, 
IS THIS A PLACE HOLDER 
YES, SKIP DIRECTORY LOOKUP 

IF BIT 15 OF FIRST WORD IS SET, 

PERFORM SEARCH USING A000, 
IF BIT 7 OF 

FIRST WORD IS SET 

set up for group tis search 

ELSE RESTORE FIRST WORD 



BUMP POINTER 
TO NEXT TEMP 

BUFFER ENTRY 



CLEAR BIT 7 
AND 

RESTORE TO TABLE 
ISOLATE NUMERICAL PART OF ID 

GET 
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0252 


75160 


064000 




ldb 


A 


LIBRARIAN 




0253 


75161 


060612 




LDA 


M2000 






0254 


75162 


010044 




AND 


FLBID 


USER 




0255 


75163 


030001 




IOR 


B 


NUMBER 




0256 


75164 


164036 




LDB 


FLBUF,I 


RESTORE FIRST 


WORD OF FILE NAME 


13257 


75165 
75166 


104400 
000030 


FLB23 


DST 


LTEMP 






0258 


75167 


034036 




ISZ 


FLBUF 


GET NEXT 2 WORDS ALSO. 


0259 


75170 
75171 


104200 
100036 




OLD 


FL8UF, I 






0260 


75172 
75173 


104400 
000032 




DST 


LTEMP+2 






0261* 
















0262 


75174 


116017 




J SB 


DLQKP,I 


SEARCH FOR FILE 


0263 


75175 


027203 




JMP 


FLB7 


FOUND IT. 




0264* 
















0265 


75176 


016056 


FLB8 


JSB 


RDPRG 


FAILURE 




0266 


75177 


002400 




CLA 








0267 


75200 


070257 




STA 


DIRWD 


NO DIRECTORY BLOCK IN CORE NOW 


0268 


75201 


015322 




JSB 


DCMpL 






0269 


75202 


026222 




JMP 


SCHBL 






0270* 
















0271 


75203 




FLB7 


EQU 


* 






0272 


75203 


060034 




LDA 


LTEmP+4 


UoAD POINTER TC 


i direc Entry, 


0273 


75204 


0403e4 




ADA 


• +5 


AND BUMP TO 


DISC ADDRESS 


0274 


75205 


070257 




STA 


DIRWD 


SET DIRWD FOR 


DLOOK 


0275 


75206 


064035 




LDB 


LTEMP+5 


TEST TO SEE 




0276 


75207 


044361 




ADB 


• +2 


IF THIS IS 




0277 


75210 


160001 




LDA 


1,1 


REALLY A 




0278 


75211 


002021 




SSA., 


,RSS 


FILE, 




0279 


75212 


027176 




JMP 


FLB8 


FAIL IF NOT, 




0280 


75213 


060030 




LDA 


LTEMP 


IS THIS THE 




0281 


75214 


050044 




CPA 


FLBID 


FILE OWNER? 




0282 


75215 


027226 




JMP 


FLB9 


YES 




0283 


75216 


044356 




ADB 


f mi 


NO 




0284 


75217 


160001 




LDA 


B,I 


IS THE FILE 




0285 


75220 


002020 




S3A 




PROTECTED? 




0286 


75221 


027I76 




JMP 


FLB8 


YES - FAIL 




0287 


75222 


044361 




ADB 


.♦2 


NO 




0288 


75223 


160001 




LDA 


Br I 


13 THE FILE 




0289 


75224 


002020 




SSA 




MASKED? 




0290 


75225 


027176 




JMP 


FLB8 


YES • FAIL 




0291* 
















0292* 


THE FOLLOWING SECTION OF CODE FILLS EACH INTERIM 8 WORD 


0293* 


FILE 


table with information from the directory 


ENTRIES. 


0294* 


THE TABLE AppEARS 


AS FqLLqWSI 






0295* 


1 


FILE 












0296* 


2 


t * 












0297* 


3 


NAME 












0298* 


4 


not used 










0299* 


5 


DISC 












0300* 


6 


address 










0301* 


7 


FILE LENGTH 










0302* 


8 


RECORD 


SIZE 










0303* 


(NOT* 


1 the f; 


CLE NAME HAD Bi~^N INSERTED in FlB3) 




0304* 
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0305 


75226 


034036 


FIB9 iSZ 


flbup 


CLEAR 


0306 


75227 


034036 


ISZ 


FLBUF 


THE 


0307 


75230 


002400 


CLA 




UNUSED 


0306 


75231 


170036 


STA 


flbuf,i 


WORD 


0309 


75232 


034036 


ISZ 


FLBUF 


BUMP BUFF POINTER TO WORD 5 


0310 


75233 


064035 


LDB 


LTEMP+5 




0311 


75234 


044367 


A06 


,+8 




0312 


75235 
75236 


104200 
100001 


OLD 


B,I 


GET DISC ADORESS AND 


0313 


75237 
75240 


104400 
10&036 


OST 


FLBUF, I 


PUT IT IN THE BUFFER 


0314 


75241 


064035 


LOB 


LTEMP+5 


GET DIRECTORY ENTRY POINTER 


0315 


75242 


044372 


ADB 


. + 11 


ADJUST TO FILE LENGTH WORD 


0316 


75243 


034036 


ISZ 


FLBUF 


BUMP BUFFER POINTER 


0317 


75244 


034036 


ISZ 


FLBUF 


TO LENGTH SLOT 


0318 


75245 


060044 


LOA 


FLBIO 


TEST FOR USER REFERENCE 


0319 


7 524 6 


050030 


CPA 


LTEMP 


TO PUBLIC OR GROUP FILE 


0320 


75247 


002401 


CLA, 


,RSS 


NO f CLEAR BIT 15 


0321 


75250 


061027 


lda 


BIT15 


yes, set bit is 


0322 


7525! 


130001 


IOR 


B,I 


OR IN FILE LENGTH 


0323 


75252 


170036 


STA 


FLBUF,I 


store it in buffer 


0324 


75253 


034036 


ISZ 


Flbup 


BUMP POINTER TO RECORD SIZE SLOT 


0325 


75254 


044350 


ADB 


• w 7 


SAME FOR DIRECTORY POINTER 


0326 


75255 


160001 


LDA 


B,I 


TRANSFER RECORD SIZE 


0327 


75256 


170036 


STA 


FLBUF, I 


TO BUFFER 


0328 


75257 


034036 


ISZ 


FLBUF 


BUMP POINTER TO NEXT ENTRY 


0329 


75260 


016423 


JSB 


DATE 


GET DATE AND SET 


0330 


75261 


064035 


LOB 


LTEMP+5 


INTO PURGE (LAST 


0331 


75262 


044364 


ADB 


. + 5 


REFERENCED) 


0332 


75263 


170001 


STA 


B,I 


DATE, 


0333* 












0334 


75264 




FLB28 EQU 


* 




0335 


75264 


034040 


ISZ 


FLBcl 


TEST FOR ANY MORE FILE8, 


0336 


75265 


027130 


JMP 


FLB6 




0337* 












0338* 


WE HAVE FOUND 


ALL THE FILES. WE 


NOW HAVE TO UPDATE THE FUSS TABLE, 


0339* 


FIRST 


check to see if the progra 


M HAS KOOM ENOUGH FOR THE TABLEt 


0340* 












0341 


75266 


060257 


LDA 


DIRWD 


WRITE DIRECTORY TO DISC 


0342 


75267 


002003 


SZA, 


,RSS 


IF ANY IS IN CORE 


0343 


75270 


027276 


JMP 


F t B29 




0344 


75271 


064676 


LOB 


LIBD 


OUTGOING CORE ADDRESS* 


0345 


75272 


114206 


JSB 


DISCZ,I 




0346 


75273 


114211 


JSB 


SLV A GrI 


CAN'T DO IT, TRY TO $ALV A GE 


0347 


75274 


002400 


CLA 




SAY DIRECTORY 


0348 


75275 


070257 


STA 


DiRWD 


not in core 


0349 


75276 




FLB29 EQU 


* 




0350 


75276 


036152 


ISZ 


sc h lq 


BUMP TO NEXT ERROR EXIT, 


0351 


75277 


060041 


LOA 


FLBC2 


GET # OF FILES, 


0352 


75300 


fd7Q&4d 


STA 


FLBCl 




0353 


75301 


003004 


CMA, 


.INA 




0354 


75302 
75303 


100200 
000376 


MPy 


,+FTEL 


COMPUTE NEw VALUE OF PBPTR 


0355 


75304 


040056 


ADA 


PBPTR 




0356 


75306 


003000 


CMA 






0357 


75306 


040716 


ADA 


L^AUS 


TEST FOR OVERFLOW, 



pAGE 0368 #30 FILES 



0356 

0359 

0360* 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368* 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383* 

03g4* 

0385* 
0386* 
0387* 
0388 

0389 
0390 
0391 

0392* 

0393 

0394 

0395 

0396* 

0397 

0398 

0399 

0400 

0401 

0402* 
0403 

0404 

04^5 

0406 
0407 
0408 
0409 
0410 
0411 
0412 



75307 
75310 

75311 
75312 
75313 
75314 
75315 
75316 
75317 



75321 
75322 
75323 
75324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 



002020 
027176 

036152 
060612 
070204 
060666 
064700 
114206 
114207 

060272 
040342 

160000 
001727 
001722 
040676 
070045 
070030 
064450 
002400 
170030 
034030 
006006 
027332 



SSA 

JMP FLB8 

132 SCHLQ 
LDA M2000 
STA MWORD 
LDA FUSS 
LOB LIBDI 
JSB DX8CZ,I 
JSB SICKP,I 



FAIL«-PROGRAM TOO LARGE, 

BUMP TO NORMAL RETURN ADDRESS, 
INPUT FUSS TABLE 



ITIS STUCK ON THE DISC 



LDA MLINK+1 DETERMINE USER #. 
ADA , + ?TN(jM*?LINk 



LDA 0,1 
ALP,ALF 
ALPfRAL 
ADA LIBD 
STA FLBFS 
STA LTEMP 
LDB M32 
CLA 

STA LTEMP, I 
ISZ LTEMP 
INB,SZB 
JMP **3 



user * in bits 12.8 
right justify u*e* * 
multiply user * by 33 and 
add libd to point at user's 
section of fuss, 

zero out userts section 



NOW CHECK TO SEE IF ANY OF THE REQUESTED FILES ARE BEING USED BY 
ANO T HER ySER, IF T HEy ARE, *E ALLOw ONLY FILE READS But NO WRITES, 
IF THE USER IS AN 'A 1 , WE SKIP THE TEST. * 



75336 060044 

75337 010612 

75340 050514 

75341 027407 

75342 <A 6 Q®37 
75343 

75343 070036 



75344 
75345 
75346 
75347 
75350 

75351 

75352 
75353 
75354 
75355 
75356 
75357 
75360 
75361 
75362 
75363 



164036 
006003 
027372 

040363 
070036 

064676 

077562 
104200 

100036 
153562 
027366 
037562 
037562 
060672 
053562 
027402 



LDA FLBID 

AND M2000 

CPA A000 

JMP FLB10 

LDA FLBFP 

FLBU EqU * 

STA FlBUF 

LDB FLBUFfI 
SZB,RSS 

JMP FLB30 

ADA t +4 

STA FtBUF 

LDB LIBD 

STB FUSCH 

DLD FLBUF*I 

FLB14 CPA FUSCH, I 

JMP FLB18 

ISZ FUSCH 

FLB19 ISZ FUSCH 

LDA L1024 

CPA FUSCH 

JMP FLB13 



SET BUFFER POINTER. 
ADDRESS, 

GET FIRST WORD OF NAME 
PLACE HOLDER? 

YES 

NO f BUMP POINTER TO 
DISC ADDRESS 

PUT ADDRESS OF FUSS 

INTO FUSS SEARCH POINTER 
GET DISC ADDRESS 

UPPER WORDS EQUAL? 
YES, GO COMPARE LOWER 
NO# BUMP 

FUSS POINTER 
GET FUSS END ADDRESS 
HAVE WE EXHAUSTED FUSS? 
YES, 60 CHECK NEXT PILE 
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0413 


75364 


160036 




IDA 


FLBUF, 


I 


0414 


75365 


027355 




JMP 


FLB14 




0415 


75366 


037562 


FLB18 


ISZ 


FUSCH 




0416 


75367 


157562 




CPB 


FUSCH, 


I 


0417 


75370 


027374 




JMP 


FLB12 




041a 


75371 


027360 




JMP 


FLB19 




0419* 














0420 


75372 




FLB30 


EQy 


* 




0421 


75372 


060365 




LOA 


,+6 




0422 


75373 


027403 




JMP 


FLB13+1 


0423* 














0424 


75374 


034036 


FLgl2 


ISZ 


FLBUF 




0425 


75375 


034036 




ISZ 


FLBUF 




0426 


75376 


160036 




LOA 


FLBUF, 


I 


0427 


75377 


031027 




IOR 


BIT15 




0426 


75400 


170036 




ST A 


FLBUF, 


I 


0429* 














0430 


75401 


002401 




CLA, 


,RSS 




0431 


75402 


060361 


FLB13 


LDA 


.+2 




0432 


75403 


040361 




ADA 


.♦2 




0433 


75404 


040036 




ADA 


FLBUF 




0434 


75405 


034040 




ISZ 


FLBC1 




0435 


75406 


027343 




JMP 


FLBU 




0436* 














0437* 


NOw UPDATE FUSS BY 


PLACING THE 




0438* 


INTO 1 


rHE USER 


'S FUSS AREA, 




0439* 














0440 


75407 


060041 


FLB10 


LDA 


FLBC2 




0441 


75410 


070040 




STA 


FLBC1 




0442 


75411 


060037 




LOA 


FlBFP 




0443 


75412 




FLB15 


EQU 


* 




0444 


75412 


040365 




ADA 


.46 




0445 


75413 


164000 




LDB 


0,1 




044$ 


75414 


040355 




ADA 


.-2 




0447 


75415 


006021 




SSB, 


,RSS 




044$ 


7 541 6 


006401 




CLBi 


rRSS 




0449 


75417 


065027 




LDB 


BIT15 




0450 


75420 


144000 




ADB 


0,1 




0451 


75421 


174045 




STB 


FLBFS, 


I 


0452 


75422 


034045 




ISZ 


FIBFS 




0453 


75423 


002004 




INA 






0454 


75424 


164000 




LDB 


A, I 




0455 


75425 


174045 




STB 


flbfs, 


I 


0456 


75426 


034045 




ISZ 


FLBFS 




0457 


75427 


040362 




ADA 


• +3 




0458 


75430 


034040 




ISZ 


FLBC1 




0459 


75431 


027412 




JMP 


FLB15 




0460* 














0461 


75432 


060666 




LDA 


FUSS 




0462 


75433 


064676 




LDB 


LIBD 




0463 


75434 


114206 




J SB 


DISCZ, 


I 


0464 


75435 


114207 




JSB 


SICKP, 


I 


0465* 














0466 


75436 


016056 




JSB 


RDPRG 




0467 


75437 


061502 




LDA 


FIL'3 




0468 


75440 


071574 




STA 


valtb 





NO, RESTORE UPPER ADDRESS WORD 

AND GO COMPARE AGAIN 
BUMP TO LOW ADDRESS WORD 
IS LOW ADDRESS AL3O EQUAL? 
YES, GO FLAG READ ONLY 
NO, GO CHECK NEXT FILE 



BUMP BUFFER POINTER 

TO LENGTH WORD 
SET DISC LENGTH TO SAY 
READ ONLY, 



adjust buffer pointer 

to next file name 
test for a n y more 



SET COUNTER, 

GET POINTER TO FIRST ONE, 

GET FILE LENGTH 

A POINTS TO HIGH DISC ADDRESS 
IF NOT READ ONLy, 
LEAVE BIT 15 0, 
ELSE SET IT, 

AND PUT INTO TABLE. 
BUMP 

POINTERS AND 

STORE LO W 

DISC ADDRESS 
REBUMP 

POINTERS 
TEST FOR DONE, 



THE FUSS TABLE IS STUCK IN CORE 
READ IN USER»S PROGRAM AGAIN, 
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0469 


75441 


064037 


LOB 


flbfp 


GET BUFFER POINTER 


0470 


75442 




FLB16 EQU 


# 




0471 


75442 


044365 


ADB 


,♦6 


BUMP TO LENGTH WORD 


04 7 2 


75443 
75444 


104200 
100001 


OLD 


B,I 


GET LENGTH WORD AND RECORD SIZE 


0473 


75445 
75446 


104400 
101574 


DST 


VALTB,I 


STORE THEM IN FILE TABLE 


0474 


75447 


035574 


I3Z 


VALTB 


BUMP FILE 


0475 


75450 


035574 


I8Z 


VALT8 


TABLE POINTER 


0476 


75451 


001665 


ELA, 


,CLE,ERA 


REMOVE BIT 15 FROM LENGTH 


0477 


75452 


040355 


ADA 


t-2 


COMPUTE RELATIVE 


0478 




002016 


SI A 


T M A « 7 A 

f *.*^ , ~ — *"5 


ADDRESS OF LAST 


0479 


75454 


040356 


AqA 


• -1 


LOGICAL RECORD 


04e0 


75455 


064037 


LOB 


FIBfP 


GET THE ADDRESS 


0481 


75456 


044363 


AOB 


.+4 


OF HIGH DISC ADDRESS 


0482 


75457 


077562 


STB 


FUSCH 


AND SAVE IT 


04g3 


75460 


006004 


INB 




GET POINTER TO LOW DISC ADD WD, 


0484 


75461 


000040 


CLE 






0485 


75462 


140001 


ADA 


B,I 


ADD RELATIVE LAST RECORD ADORES 


0486 


75463 


067562 


L OB 


FUSCH 


B GETS HIGH DIsC 


0487 


75464 


164001 


LOB 


B,I 


ADDRESS WORD 


0488 


75465 


002040 


SEZ 




IF LOW ADD OVERFLOW, 


0489 


75466 


006004 


INB 




ADD l TO HIGH PART 


0490 


75^67 


101100 


SWP 




STORE BOTH WORDS 


0491 


75470 
75471 


104400 
101574 


OST 


VALtB,I 


OF DIsC ADDRESS 


0492 


75472 


060363 


LDA 


.+4 




0493 


75473 


041574 


AqA 


VALTB 




0494 


75474 


071574 


STA 


VALTB 




0495 


75475 
75476 


104200 
175562 


OLD 


FUSCH, I 


BASE DISC ADDRESS 


0496 


75477 
75500 


104400 
101574 


DST 


VALTB, I 


INTO FILE TABLE 


0497 


755*>1 


035574 


ISZ 


VALTB 


ADJUST POINTER 


0498 


75502 


061574 


LDA 


VALTB 


BUMP POINTERS 


0499 


75503 


040363 


ADA 


.♦4 




0500 


75504 


071574 


STA 


VALTB 




0501 


75505 


164037 


LDB 


FLBFP, I 


MOVE 


0502 


75506 


175574 


STB 


VALTB, I 




0503 


75507 


034037 


ISZ 


FLBFP 


FILE 


0504 


75510 


035574 


ISZ 


VALTB 




0505 


75511 
75512 


104200 
100037 


DLD 


FLBFP, I 


NAME 


0506 


75513 
75514 


104400 
101574 


DST 


VALTB,I 




0507 


75515 


061574 


LDA 


VALTB 


INTO 


0508 


75516 


040362 


ADA 


.+FTEL-12 




0509 


75517 


071574 


STA 


VALTB 


TABLE 


0510 


75520 


064037 


ldb 


F L BFP 




0511 


75521 


044366 


AOB 


. + 7 




0512 


75522 


074037 


STB 


FLBFP 




0513 


75523 


034041 


ISZ 


F L BC2 


TEST FOR ANY MORE, 


0514 


75524 


027442 


JMP 


FLB16 




0515 


75525 


070056 


STA 


P8PTR 


ADVANCE PBPTR TO 


0516 


75526 


026222 


JMP 


SCHBL 


FIRST UNUSED WORD 


0517* 













PAGE 0371 #30 FILES 



0516* 

0519* 

0520* 

0521* 

0522* 

0523* 

0524* 

0525 

0526 

0527 

0528 

-£*.« 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0536 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551* 

0552 

0553 

0554 

0555 

0556 
0557 

0558 
0559 
05 6 
0561 
0562 
0563 
0564* 

0565* 
0566 

0567* 

0568 

0569 



FlBCH GETS THE NEXT CHARACTER OuT OF THE FILES 
STATEMENT, IF FLBCM.l, IT ASSUMES A COMMA HAS BEEN 
SEEN AND RETURNS A BLANK, OTHERWISE IF THE CHARAC- 
TER IS A COMMA, IT SETS FLBCM AND RETURNS A BLANK, 
IT ALSO RETURNS BLANKS AT THE END OF THE CODE, 



75527 
75530 
75531 
75532 

75534 
75535 
75536 
75537 
75540 
75541 
75542 
75543 
75544 

75545 
75546 
75547 
75550 
75551 
75552 
75553 
75554 

75556 
75557 
75560 

00030 
00031 
00036 
00037 
00040 
00041 
00042 

00043 
00044 

00045 
00046 
00047 



000000 
060417 
064031 
006002 
127527 
064043 
006004 
054042 
127527 
074043 
004065 
160001 
002041 
001727 
010474 
002003 
027530 
040317 

002021 
040450 
040470 
050433 
002001 
127527 
034031 
027530 



FLBCH NOP 
LDA 
LDB 

SZB 

JMP 

LOB 

INB 

CPB 

JMP 

STB 

CLE, 

LOA 

SEZ, 

ALF, 

AND 

SZA, 

JMP 

ADA 

SSA, 

ADA 

ADA 

CPA 

RSS 

JMP 

ISZ 

JMp 

EQU 
EQU 

EQu 
EQU 
EQU 

EQU 
EQU 

EQy 
EQU 
EQU 

EQU 
EQU 



FLBS 

FLBCM 

FLBuF 

FLBFP 

FLBCi 

FLBC2 

FLBP 

FLBCP 

FLBlD 

FLBFS 

F L BFC 

FLBFF 



,+40B 
FLBCM 

FLBCH, I 
FLBCP 

FLBP 
FlBCH,I 

FLBCP 
ERB 

1,1 

RSS 

ALF 

B177 

RSS 

FLBCH+l 

M96 

RSS 

M32 

,140 

,*54B 

FLBCH,I 

FLBCM 

FLBCH+1 

LTEMP 

LTEMP+1 

LTEMP+6 

LTEMP+7 

LTEMP+8 

LTEMP+9 

LTEMP+10 

LTEMP+ll 

LTEMP+12 

LTEMP+13 

1 TE M P*14 

LTEMP+15 



75561 073601 FILBP DEF FILBF 



75562 

75562 000000 



SFLB EQU * 
FUSCH BSS 1 



RETURN BLANK IF 
FLBCM IS SET, 



get char, pointer, 
otherwise bump 
if end of statement, 
return a blank, 

POINTER, 
GET NEXT CHAR, 



ROTATE IF NECESSARY, 

MASK, 

SKIP 0<S, 



LOWER CASE? 

Y ES, MAKE INTO UPPER CASE 

NO 

TEST FOR COMMA, 

NOT A COMMA, 

IF COMMA, SET FLAG AND 60 
RETURN A BLANK, 

* OR $ FLAG 

COMMA FLAG 

INTERIM FILE TABLE INDEX 

INTERIM FILE TABLE POINTER 

FILE COUNTER (NEC) 

END OF FILE STATEMENT POINTER 

FILE STATEMENT CHARACTER POINTER 

USER ID STORAGE 

POINTER TO USERS FUSS TABLE 

Fit E STATEMENT COUNTER (n^G) 

POINTER TO 4 WORD ARIA CONTAIN. 

ING POINTERS TO THE PI1.E8 

STATEMENTS 

POINTER TO 131 WORD TEMPORARY 

FILE TABLE BUFFER 

FUSS TABLE SEARCH POINTER 



PAGE 0372 #31 ASSIGN 



0003* 
0004* 
0005* 
0006* 
0007* 

0008* 
0009* 
0010* 
0011* 
0012* 
0013* 
0014* 
0015* 
0016* 
0017* 
0018* 
0019* 

0020* 
0021* 

0022* 

0023* 

0024 

0025 

0026 

0027 

0028 

0029* 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

003b 

0039 

0040 

0041* 

0042 

0043 

0044 

0045 

0046 

0047 

004$ 

0049* 

0050 

0051 
0052 

0053 
0054 
0055 



THE ASSIGN ROUTINE IS USED By THE BASIC STATEMENT EXECUTION PROCES 
(PHASE III) TO PROCESS AN ASSIGN STATEMENT, THE PURPOSE OF THE ROU 
TINE IS T REPLACE THE INFORMATION CURRENCY IN yHE FILE CONtROL 
BLOCK REFERENCED BY A SPECIFIED ORDINAL NUMBER WITH INFORMATION AB 
THE NtW FI L E BEInG ASSIGNED TO THAT ORDInAl NUMBER, INPUT PARAmETE 
TO THE ASSIGN ROUTINE ARE AS FOLLOWS! 

ASBFPJ •> BUFFER CONTAINING FH.E NAME 

A SNID5 0« USER LIBRARY 1" SYSTEM LIBRARY, 2» GROUP LIBRARY 

ORDNOs SPECIFIED ORDINAL NUMBER 

FILTBi »> FILE TABLE 

the calling sequence to the assign routine is as follows! 

jsb schl8,i 
def asnib 

<exit for record size too l*rge> 
<exit for non-existent file> 
<exit for 'read-only' (group or system lib.) file* 
<exIt for *read*onLy' (In use)- file* 
<normal exit> 
75000 org libra 

75000 060272 lda mlink+1 get user id and store 

75001 040346 ada ,+?id*?link 

75002 160000 LOA 0,1 

75003 070041 STA ASNID 



75004 
75005 
75006 
75007 
75010 

75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 

75021 
75022 
75023 
75024 

75025 
75026 
75027 

75030 

75031 
75032 

75033 
75034 

75035 

75036 



013505 
070030 
060041 
020030 
006400 
100400 
000472 
100200 
000472 
030030 
070030 
063514 
073512 

064041 
B61466 
050360 
064514 
050361 
064030 
177512 

061550 

070037 

100200 

000376 
041502 
070036 
002004 



AND 


HI6 


STA 


LTEMP 


LDA 


ASNID 


XOR 


LTEMP 


CLB 




DIV 


,100 


MPY 


,100 


IOR 


LTEMP 


STA 


LTEMP 


LDA 


ASFBF 


STA 


ASBUF 


LDB 


ASNID 


LDA 


ASTYP 


CPA 


.♦1 


LDB 


A000 


CPA 


.*2 


lob 


LTEMP 


STB 


ASBUF, 


LDA 


ORDNO 


STA 


ASORD 


MPy 


,+FTEL 


ADA 


FILTB 


STA 


ASFCB 


INA 





LOSE NUMERICS 

SAVE 

GET THE ID BACK 

LOSE THE TOP 

SET uF FOR DIVISION 

PRODUCE GROUP 

LIBRARY ID 

AND SAVE 
IN LTEMP 
INITIALIZE INFORMATION 
BUFFER POINTER 

GET USER ID 

GET LIBRARY INDICATOR 

SYSTEM LIBRARY? 

YES 

GROUP LIBRARY? 

YES 

STORE CORRECT ID IN BUFFER 

SAVE SPECIFIED 

ORDINAL NUMBER 
SAVE POINTER 

TO FILE TABLE 
ENTRY 



PAGE 0373 #31 ASSIGN 



0056 


75037 


164000 


LDB 


A, I 


CLEAR 




0057 


75040 


004066 


CLE, 


,ELB 


"DIRTY" RECORD AND 




0056 


75041 


004066 


CLEi 


>elb 


"DIRTY" FILE 




0059 


75042 


005323 


RBR, 


,RBR 


BITS 




0060 


75043 


077511 


STB 


ASSAV 


SAVE OLD RECORD SIZE 




0061 


75044 


002041 


SEZj 


>RSS 


DID WRITE OCCUR ON OLD 


FILE? 


0062 


7504b 


027111 


JMP 


ASN21 


NO 




0063* 














0064* 


UPDATE LAst CHANGED DATE OF OLD FILE 




0065* 














0066 


75046 


064041 


LDB 


ASNID 


YES, SET UP 




0067 


75047 


074030 


STB 


LTEMP 


LTEMPC0I3) 




0068 


75050 


040371 


ADA 


.♦10 


WITH QLO 




0069 


75051 


164000 


LDB 


0,1 


FILE NAME 




0070 


75 52 


074031 


STB 


LTEMP+i 






0071 


75053 


002004 


INA 








0072 


75054 

75055 


104200 
100000 


DLD 


0,1 






0073 


75056 
75057 


104400 
000032 


DST 


LTEMP*2 






0074 


75060 


061554 


LDA 


asbfp 


SAVE 




0075 


75061 


164000 


LDB 


0,1 


NE W FILENAME 




0076 


75062 


074042 


STB 


LTEMP+10 


BEFORE SWAP 




m?7 


75063 


002004 


INA 




OCCURS 




0078 


75064 
75065 


104200 
100000 


DLD 


0,1 






0079 


75066 
75067 


104400 
000043 


DST 


LTEMP+ll 






0080 


75070 


116017 


JSB 


DLOKP,I 


FIND DIRECTORY ENTRY FOR OLD 


0081 


75071 


002001 


RSS 








0082 


75072 


027102 


JMP 


ASN20 


NOT FOUND 




0083 


75073 


060034 


LDA 


LTEMP+4 


SAVE CURRENT 




0084 


75074 


040364 


ADA 


.+5 


DIRECTORY TRACK 




0085 


75075 


070257 


sta 


DIRWD 


FOR DLOOK 




0086 


75076 


060171 


LDA 


DAUM 


GET HOUR OF YEAR 




0087 


75077 


064035 


LDB 


LTEMP+5 


AND UPDATE 




0088 


75100 


044365 


ADB 


,♦6 


iLAST CHANGE! 




0089 


75101 


170001 


STA 


1,1 


LOCATION 




0090 


75102 


060042 


AsN20 LDA 


LtEMP+10 


GET 




009j 


75*03 


070031 


STA 


LTEMP+j 






0092 


75104 
75105 


104200 
000043 


DLD 


LTEMp + H 


NEW 




0093 


75106 
75107 


104400 
000032 


DST 


LTEMP+2 






0094 


75110 


027121 


JMP 


ASN22 






0095 


75111 


065554 


ASN21 LDB 


ASBFP 






0096 


75112 


160001 


LDA 


1,1 


FILE NAME 




0097 


75113 


070031 


STA 


LTEMP+1 






0098 


75114 


006004 


IN8 




IN 




0099 


75115 
75116 


104200 
100001 


DLD 


1,1 






0100 


75117 
75120 


104400 
000032 


DST 


LTEMP+2 


LTEMP(lt3) 




0101 


75121 


163512 


ASN22 LDA 


ASBUF,I 


SET APPROPRIATE 




0102 


75122 


070030 


STA 


LTEMP 


ID IN LTEMP 




0103* 
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0104 
0105 
0106 
0107 
0108 
0109 

0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 

0130 
0131 

0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 

0153 

0154* 

0155 

0156 
0157 
0158 
0159 



75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 

75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 



123 
124 
125 
12 6 
127 
130 

131 
132 
133 
134 
135 
136 
137 
140 

Ul 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 

155 
156 
157 
160 
161 
162 

163 
164 
165 
166 
167 

170 
171 
172 
173 
174 
175 
176 
177 



75200 
75201 
75202 
75203 

75204 

75205 
75206 
75207 
75210 
75211 



116017 
006401 
007400 
060034 
040364 
050257 
027134 
002400 
070257 
006003 
027151 
036152 
060257 
002003 

027147 

006400 
074257 
064676 
114206 
114211 
016056 
027503 
064035 
044361 
160001 
002021 
027136 
064035 
160001 
050041 
027205 
006004 
160001 
002020 
027136 
044361 
160001 
002021 
027222 
064272 
044347 
160001 
002021 
027136 
044351 
160001 
010612 
002003 
027136 

027222 

061611 
051334 
027222 

160000 
010570 



JSB 

CLB, 

CCB 

LOA 

ADA 

CPA 
JMP 
CLA 
STA 

ASN23 SZB, 
JMP 

ASN24 TS7 

ASN3 LOA 
SZA, 
JMP 
CLB 
STB 
LDB 
JSB 
JSB 

ASN26 JSB 
JMP 



ASN4 



LDB 

ADB 

LDA 

SSA, 

JMP 

LDB 

LDA 

CPA 

JMP 

INB 

LDA 

SSA 

JMP 

ADB 

LDA 

SSA, 

JMP 

L DB 
ADB 

LDA 

SSA, 

JMP 
ADB 
LDA 

AND 
SZA, 
JMP 
JMP 



DLOKP,I 
RSS 

LTEMP+4 

.♦5 

DIRWD 

ASN23 

DIRWD 

RSS 

ASN4 

SCHLQ 

DIRWD 

RSS 

ASN26 

DIRWD 

LIBD 

DISCZ,I 

SLVAG,! 

RDPRG 

ASN14 

LTEMP+5 

• +2 

B,I 

RSS 

ASN24 

LTEMP+5 

B,I 

ASNID 

ASN45 

B,I 

ASN24 

.+2 

8,1 

RSS 

ASN48 

MLlNK+1 

,+?nAmE' 

B,I 

RSS 

ASN24 

„+?FLAG. 

B,I 

PUALT 
RSS 
ASN24 
ASN48 



ASN45 LDA TEMPI 

CPA PRGCT 

JMP ASN48 

LDA A, I 

AND QPMSK 



SEARCH FOR FILE 
IF FOUND, CLEAR B 
IF NOT, B GETS -1 
GET CURRENT 

DIRECTORY TRACK POINTER 
SAME AS OTHER ONE? 
YES (SO NONE HAS BEEN WRITTEN) 
NO, 80 UPDATED ONE HAS 

BEEN WRITTEN OUT 
IF ENTRY WAS FOUND 

CO ChECk IT OUT 

is there a changed 

directory track in core? 
no 
yes, tell dlook 

there isn't 
and write 

IT OUT 
BLEW ITj TRY TO SALVAGE 



IS THE 
ENTRY WE 
FOUND 
A FILE? 
NO, FAIL 
IS OWNER 
TRYING TO 

ACCESS FILE? 
YES 

NO, IS FILE 
PROTECTED? 

YES » FAIL 

IS MASK 

BIT SET? 
NO 
YES 

■?l*nk 

is this file running 

UNDER A PROTECTED PROGRAM? 
NO . FAIL 
-?NAME 

GET PROGRAM 

UNALTERED ^IT 
HAS PROGRAM BEEN JIMMIED? 
ATTEMPTED RiP.qFF, FAIL 



WAS A PROTECT 

MASK REQUESTED? 
NO 
MAYBE 
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0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0166* 

0169 

0170 

8171 

0172 

0173 

0174 
0175 
0176 
0177 
0178 
0179 

0180 
0181 

0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 

0194 
0195 

0196 
0197 
0198 
0199 
0200 
0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208* 

0209 

0210 

0211 

0212 

0213 

0214 

0215 



75212 
75213 
75214 
75215 
75216 
75217 
75220 
75221 

75222 
75223 

75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 
75244 
75245 
7524^ 
75247 
75250 
75251 
75252 
75253 
75254 

75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 

75265 
75266 
75267 
75270 

75271 
75272 
75273 
75274 
75275 
75276 
75277 



050514 
002001 
027222 
064035 
044362 
160001 
031027 

170001 



044363 

173512 
003004 

043511 
002020 
027137 
036152 
037512 
002400 
173512 
037512 
044363 
160001 
173512 
006004 
037512 
160001 
173512 
044361 
037512 
164001 
060041 
050030 

002001 
045027 

177512 

016423 
064035 
044364 
170001 
002 4 00 
070257 
060034 
040364 
064676 
114206 
114211 

036152 
060612 
070204 
060666 
064700 
114206 
114207 



CPA B2000 
RSS 

JMP ASN48 
LDB LTEMP+5 
ADB ,+3 
LDA B,I 
IOR BIT15 
STA B,I 



064035 ASN48 LDB 



ADB 

1 n a 

STA 

CMA, 

ADA 

SSA 

JMP 

ISZ 
ISZ 

CLA 
STA 

ISZ 
ADB 
LDA 
STA 
INB 
ISZ 
LDA 
STA 
ADB 
ISZ 
LDB 
LDA 
CPA 
RSS 
ApB 
STB 
JSB 
LDB 
ADB 
STA 
CLA 
STA 

LDA 
ADA 

LDB 
JSB 
JSB 

ISZ 
LDA 
STA 

LDA 
LDB 
JSB 
JSB 



LTEMP+5 

.♦4 

8.1 

ASBUF, I 

INA 

ASSAV 



ASN3 

schlq 

ASBUF 

ASBUF, I 
ASBUF 
* *** 
1,1 
ASBUFrl 

ASBUF 

1,1 
ASBUF, I 

ASBUF 

1,1 

ASNID 

LTEMP 

BIT15 

ASBUFfI 

DATE 

LTEMP+5 

,♦5 

1,1 

DIRWD 
LTEMP+4 
f +5 

LIBD 

DISCZ,I 

SLVaG,! 



SCHLQ 
M2000 
MWORD 

FUSS 

LIBDI 

DISCZ, 



COMMA NEXT? 

NO 
YES 

SET 
MASK 
BIT 



GET LOGICAL 
prrnpn ST7F 

ANiTsAVlTlT 
IS IT LARGER 

THAN THE ALLOCATED 

BUFFER? 
YES, FAIL 
NO 



PUT 

Disc 

ADDRESS 

IN 
BUFFER 



TEST FOR USER REFERENCE 
TO PUBLIC FILE 

SET Bit 15 OF LENGTH IF IT IS 

store length in buffer 
get date and set in 
purge location 



TELL DLOOK THAT NO DIRECTORY 
TRACK IS IN CORE AND 
WRITE IT BACK 



SCREWED UP - TRY TO SaLVaGE 

FILE EXISTS*.BUMP RETURN ADDRESS 
INPUT FUSS TABlE 



I 



SICKP,I ITS STUCK ON THE DISC 
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0216* 












0217 


75300 


060272 


LOA 


MLINK+1 


DETERMINE USER * 


0218 


75301 


043506 


ADA 


ASNSP 




0219 


75302 


006400 


CLB 






0220 


75303 
75304 


100400 
000403 


DIV 


.♦TTY01* 


■ TTY00 


0221 


75305 


001722 


ALF, 


,RAL 


MULTIPLY USER* By 32 AND 


0222 


75306 


040676 


AqA 


libd 


add libd to point to user's 


0223 


75307 


073507 


STA 


ASUFS 




0224 


75310 


064037 


LOB 


ASORD 


SECTION OF FUSS 


0225 


75311 


005000 


BLS 






0226 


75312 


040001 


ADA 


1 


SET POINTER TO FUSS 


0227 


75313 


070040 


STA 


ASNFS 


ENTRY FOR THE 


0228 


75314 


002400 


CIA 




SPECIFIED ORDINAL NO, 


0229 


75315 


006400 


CLB 






0230 


75316 
75317 


104400 
100040 


OST 


ASNFS,! 


ZERO OUT OLD FILE INFORMATION 


0231* 












0232 


75320 


002400 


CLA 




SAY ENTRY NOT YET 


0233 


75321 


073513 


STA 


ASNlF 


found In fuss tab^e 


0234* 












0235 


75322 


064676 


ASN6 LOB 


LIBD 




0236 


75323 


063512 


lda 


ASBUF 




0237 


75324 


040355 


ADA 


t**2 




0238 


75325 


160000 


LDA 


0,1 


GET FIRST WORD OF DISC ADDRESS 


0239 


75326 


057507 


ASN7 CpB 


ASUFS 


SKIP OVER 


0240 


75327 


044417 


AOB 


, + 32 


USERS OWN FUSS 


0241 


75330 


054672 


CPB 


L1024 


ALL FUSS CHECKED? 


0242 


75331 


027356 


JMP 


ASNH 


YES, NOT THERE 


0243 


75332 


150001 


CPA 


1*1 


TEST FOR THERE 


0244 


75333 


027336 


JMP 


ASN9 


IT IS 


0245 


75334 


044361 


AOB 


• ♦2 


BUMP FUSS POINTER 


0246 


75335 


027326 


JMP 


ASN7 


LOOK AT NEXT ENTRY 


0247* 












0248 


75336 


063512 


ASN9 LDA 


ASBUF 




0249 


75337 


040356 


ADA 


• ■1 


GET 2ND WOrD OF ADDRESS 


0250 


75340 


160000 


LDA 


0*1 




0251 


75341 


006004 


inb 




BUMP FUSS TO 2ND WORD 


0252 


7534? 


150001 


CPA 


1*1 


ARE THEY EQUAL? 


0253 


75343 


027346 


JMP 


ASN10 


YES 


0254 


75344 


006004 


INB 




MOVE TO NEXT FUSS ENTRY 


0255 


75345 


027323 


JMP 


ASN6+1 


RETURN TO CHECKING FUSS 


0256* 












0257 


75346 




ASN10 EQU 


* 




0258 


75346 


077513 


STB 


asnif 


SET TO SAY "IN FUSS* 


0259 


75347 


060041 


LDA 


ASNID 


IS THIS 


0260 


75350 


010612 


AND 


M2000 


AN «A" 


0261 


75351 


0505J4 


CPA 


A000 


USER? 


0262 


75352 


027356 


JMP 


ASNH 


YES 


0263 


75353 


163512 


LDA 


ASBUF, I 


SET DISC LENGTH TO SAY 


0264 


75354 


031027 


IOR 


BIT15 


READ ONLY 


0265 


75355 


173512 


STA 


ASBUF, J 




0266* 












0267 


75356 


063512 


ASNH LDA 


ASBUF 




0268 


75357 


040355 


ADA 


t "»2 




0269 


75360 


160000 


LDA 


0,1 


GET HIGH DISC ADDRESS 
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0270 


75361 


167512 


LOB ASBUF, I 


GET LENGTH 


0271 


75362 


006021 


SSB,RSS 


IF READ ONLY, 


0272 


75363 


027371 


JMP ASN30 




0273 


75364 


031027 


IOR BIT15 


SET BIT 18 OF HIGH ADDRESS, AND 


0274 


75365 


064041 


LOB asnid 


SKIP I OR BOTH RETURN INCRE 


0275 


75366 


054030 


CPB LTEMP 


DEPENDING ON REASON FOR 


0276 


75367 


027374 


JMP ASN31 




0277 


75370 


027375 


JMP ASN32 




0278 


75371 




ASN30 EQU * 




0279 


75371 


067513 


LDB ASNIF 


READ-WRITE! WAS IT 


0280 


75372 


006003 


SZB,RSS 


IN FUSS? 


0281 


t K -i "7 Te 


036152 


IS2 SCHLQ 


NO, BUMP TWICE 


0282 


75374 




ASN31 EQU * 




0283 


75374 


036152 


ISZ SCHLQ 




0284 


75375 




ASN32 EQU * 




0285 


75375 


067512 


LDB ASBUF 




0286 


75376 


044356 


ADB ,-1 




0287 


75377 


164001 


LDB 1,1 


GET LOW ADDRESS IN B 


0288 


75400 
75401 


104400 
100040 


OST ASNFS,I 


STORE NEW FUSS INFORMATION 


0289* 






• 




0290 


75402 


060666 


LDA FUSS 


WRITE FUSS BACK TO DISC 


0291 


75403 


064676 


ldb libd 




0292 


75404 


114206 


JSB DISCZ,I 




0293 


75405 


114207 


JSB SlCKPfl 


CAN'T GET RID 0? IT 


0294* 










0295 


75406 


016056 


JSB RDPRG 


READ USER iS PROGRAM BACK IN 


0296 


75407 


067512 


LDB ASBUF 




0297 


75410 


160001 


LDA 1,1 


GET LENGTH WORD 


0298 


75411 


170036 


STA ASFCB,I 


AND STORE IT 


0299 


75412 


034036 


ISZ ASFCB 




0300 


75413 


044353 


ADB ,-4 




0301 


75414 


164001 


LDB 1,1 


GET NEW RECORD SIZE 


0302 


75415 


174036 


STB AsFCB,I 


AND store IT 


0303 


75416 


034036 


ISZ ASFCB 




0304 


75417 


001665 


ELA,CLE,ERA 


REMOVE BIT \$ FROM LENGTH 


0305 


75420 


040355 


AOA ,-2 


COMPUTE RELATIVE 


0306 


75421 


002016 


SLA,INA,SZA 


ADDRESS OF LAST 


0307 


75422 


040356 


AoA t »l 


LOGICAL RECORD 


0308 


75423 


067512 


LDB ASBUF 


GET ADDRESS 


0309 


75424 


044355 


ADB ,„2 


OF HIGH DISC ADDRESS 


0310 


75425 


077510 


STB ASSCH 


and save it 


0311 


75426 


006004 


IN8 


GET POINTER TO LOW DISC ADDRESS 


0312 


75427 


000040 


CLE 




0313 


75430' 


140001 


ADA 1,1 


ADD RELATIVE LAST RECORD ADORES 


0314 


75431 


167510 


LDB ASSC H fI 


B GETS Hl^H °ISC ADDRESS WORD 


0315 


75432 


002040 


SEZ 


IF LOW ADDRESS OVERFLOWS, 


0316 


75433 


006004 


INB 


ADD 1 TO HIGH RART 


0317 


75434 


101100 


SWP 


STORE BOTH WORDS OF 


0318 


75435 
75436 


104400 
100036 


DST AsFCB,I 


DIsC ADDRESS 


0319 


75437 


060036 


LDA ASFCB 




0320 


75440 


040363 


ADA f +4 




0321 


75441 


070036 


STA ASFCB 




0322 


75442 
75443 


104200 
175510 


DLD ASSCH, I 


STORE BASE DISC ADDRESS 
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0323 

0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 

0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 

0347 
0348 
0349 

0350 

0351* 
0352 
0353 
0354 

0355 
0356 

0357 

0358* 

0359 

0360 

0361* 

0362 
0363 

0364 

0365* 

0366 

0367 

0368 

0369 

0370 

0371* 

0372* 
0373* 
0374* 
0375* 



104400 
100036 
034036 
060036 
040354 
065027 

174000 
063512 
040353 
067511 
007004 
144000 
034036 
160036 
040001 
170036 

034036 
170036 
034036 
002400 
170036 
034036 
061554 
164000 
174036 
002004 
034036 
104200 
100000 
104400 
100036 



016312 
026222 
176000 
120436 



75444 
75445 
75446 
75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 

75464 
75465 
75466 
75467 
75470 
75471 
75472 
75473 
75474 
75475 
75476 
75477 
75500 
75501 
75502 

75503 
75503 
75504 

75505 
75506 
00036 

00037 
00040 



00041 

75507 000000 

75510 000000 



DST ASFCB,I 



75511 
75512 
75513 
75514 
75515 



000000 
000000 
000000 
075515 
000000 



ISZ 

IDA 

ADA 

LDB 

STB 

LOA 

ADA 

LDB 

CMB, 

AOB 

ISZ 
IDA 

ADA 
STA 
ISZ 
STA 
ISZ 
CLA 
STA 
ISZ 
LDA 
LDB 
STB 
INA 
ISZ 
OLD 



ASFCB 
ASFCB 
.-3 

BIT15 

0,1 

ASBUF 

f »4 

ASSAV 

INB 

0,1 

ASFCB 

ASFCB, I 

1 

ASFCB, I 

ASFCB 

ASFCB, I 

ASFCB 

ASFCB, I 

ASFCB 
ASBFP 
0,1 
ASFCB, I 

ASFCB 
0,1 



into file table 
adjust pointer 

SET 

»NULL RECORD' 
CONDITION 



COMPUTE DIFFERENCE BETWEEN 
OLD AND NEW BUFFER SIZES 



ADJUST BUFFER 
ADDRESS 

SET iRECORO FULLi CONDITION 

SET 'NO EOF EXIT' 
CONDITION 

MOVE 

FILE NAME 
TO 

FILE TABLE 



DST ASFCB,! 



ASN14 EQU * 

JSB A8CHK 

JMP SCHBL 

HI6 OCT 176000 

ASNSP ABS *TTY00*?L 

ASFCB EqU LTEMp+6 

ASORD EQU LTEMP+7 

ASNFS EQU LTEMP+8 

ASNID EQU LTEMP*9 

ASUFS ess 1 

ASSCH BS8 1 

ASSAV BSS 1 

ASBUF BSS 1 

ASNIF BSS 1 

ASFBF DEF *+l 

BSS 6 



ALL DONE 



INK 



pointer to ordinal entry in file 

TABLE 

ORDINAL FILE U IN FUSS ENTRY 

POINTER TO ORDINAL ENTRY IN FUSS 

TABLE 

USER ID 

POINTER TO USER FUSS ENTRY 

POINTER TO DISC ADDRESS IN 

TEMPORARY BUFFER 

RECORD SIZE OF OLD FILE 

BUFFER INDEX 

CLEAR UNLESS FILE IN FUSS 

TEMPORARY FILE TABLE INFORMATION 
BUFFER 



LTEMP, LTEMP44, LTEMP+2, LTEMP+3, LTEMP+4, LTEMP+5, LTEMP+10, 
LTEMP + n, AND LTEMP+12 AR^ ALSO USED 
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0376 75523 



SASN FQU * 
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0378* 


THE CHAIN ROUTINE IS USED BY THE 


BASIC COMPILER TO PROCESS A CHA 


0379* 


STATEMENT DURING PHASE ] 


[II, THE 


PURPOSE OF THIS ROUTINE IS TO 


03g0* 


CHECK 


FOR THE 


REQUESTED 


PROGRAM 


ON THE USER'S PRIVATE LIBRARY OR 


0381* 


on t he public 


LIBRARY (IF THE NAME 1$ PRECEDED By A DOLLAR SIGN) 


0382* 


OR ON 


THE GROUP LIBRARY 


(IF THE 


NAME IS PR£CeOe d BY A SNQWpLAKE) 


0383* 


IF THE PROGRAM IS FOUND 


IT IS LOADED AND COMPILATION 18 BEGUN. 


0384 


75000 






ORG 


LIBRA 




0385 


75000 


061500 




LDA 


FCNTR 


SET COUNTER TO 


0386 


75001 


003000 




CMA 




1»3 COMPLEMENT OF 


0387 


75002 


071500 




STA 


FCNTR 


NUMBER OF FILES 


0388 


75003 


002004 




INA 




PUT 2«S COMPLEMENT INTO 


0339 


75004 


070034 




STA 


v> ipir 


SAFE keeping for lco 


0390 


75005 


061232 




L DA 


FCORE 


LOAD FIRST BUFFER ADDRESS 


0391 


75006 


065502 




L DB 


FI L TB 


LOAD POINTER TO 


«392 


75007 


044364 




ADB 


• ♦5 


FIRST DISC ADDRESS (LOW WORD 


0393 


75010 


035500 


CHN01 


IS2 


FCNTR 


MORE FILES? 


0394 


75011 


002001 




RSS 




YES 


0395 


75012 


027027 




JMP 


ChAN0 


no*«FiniSh£d dumping buffers 


0396 


75013 


075236 




STB 


F8ASE 


WRITE 


0397 


75014 


071645 




STA 


RQ3 


OUT 


0398 


75015 


015514 




JSB 


WRBUF 


RECORD 


0399 


75016 


065236 




LDB 


FBASE 




0400 


75017 


044372 




ADB 


.+FTEL-4 


1 


0401 


75020 


160001 




LDA 


1,1 




0402 


75021 


001423 




ALR, 


,RAR 




0403 


75022 


003004 




CMAi 


,INA 




0404 


75023 


044366 




ADB 


.+7 




0405 


75024 


140001 




ADA 


1,1 




0406 


75025 


044354 




ADB 


v «3 




0407 


75026 


027010 




JMP 


CHN01 




040g 


75027 


064272 


CHAN0 


LDB 


MLINK+1 




0409 


75030 


044346 




ADB 


t +?ID*?LlNK 


0410 


75031 


074036 




STB 


CHNI 


s> USER ID 


0411 


75032 


044352 




ADB 


# ~?ID 


CAN THERE BE 


0412 


75033 


160001 




LDA 


B,I 


FILES WHOSE 


0413 


75034 


010502 




AND 


DFCHK 


LCDtS NEED 


0414 


75035 


002003 




SZA, 


rRSS 


UPDATING? 


0415 


75036 


027044 




JMP 


CHN17 


NO 


0416 


75037 


060034 




LDA 


CHNP 


GET NEGATIVE FILE COUNT 


0417 


75040 


044364 




ADB 


,+?ID 


AND ID POINTER 


0418 


75041 


117363 




JSB 


LCDP,I 


GO UPDATE LCD'S 


0419 


75042 


002001 




RSS 




CORE NOT CHANGED (OVERWRITTEN) 


0420 


75043 


016056 




JSB 


RQPRG 


RESTORE USER AREA 


0421 


75044 


160036 


CHN17 


LDA 


CHNI, I 


GET USER'S ID 


0422 


75045 


070030 




STA 


LTEMP 


STORE IN LTEMP 


0423 


75046 


060354 




LDA 


.-3 




0424 


75047 


070034 




STA 


CHNP 




0425 


75050 


063360 




LDA 


TWOSP 




0426 


75051 


064640 




LDB 


DLTEM 




0427 


75052 




CHN00 


EQU 


* 




0428 


75052 


006004 




INB 




INITIALIZE 


0429 


75053 


170001 




STA 


B,I 


NAME TO 


0430 


75054 


034034 




ISZ 


CHNP 


BLANKS 


0431 


75055 


027052 




JMP 


CHN00 




0432 


75056 


002404 




CLA, 


. INA 


ALLOW STRING 


0433 


75057 


071470 




STA 


EOL 


CONSTANT 
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0434 


75060 


015336 


JSB 


FORMx 


EVALUATE STRING 


0435 


75061 


060355 


LOA 


v «2 


PREPARE 


0436 


75062 


015344 


JSB 


PSTR 


STRING 


0437 


75063 


071256 


STA 


TEMP4 


SAVE SOURCE POINTER 


0436 


75064 


054356 


CPB 


• -1 


NULL STRING? 


0439 


75065 


027137 


JMP 


CHAN4 


YES 


0440 


75066 


075410 


STB 


TPRME 


SAVE LENGTH 


0441 


75067 


065256 


LDB 


TEMP4 


EXTRACT 


0442 


75070 


004065 


CLE, 


ERB 




0443 


75071 


160001 


LOA 


B,I 


FIRST 


0444 


75072 


002041 


SEZ, 


RSS 




0445 


75073 


001727 




vnAnHwrcH 


0446 


75074 


010500 


AND 


B377 




&A47 


75075 


050423 


CPA 


,♦448 


!$!? 


0448 


75076 


027116 


JMP 


CHAN2 


YES 


0449 


75077 


050431 


CpA 


.♦52B 


NO, »*t? 


0450 


75100 


002001 


RSS 




YES 


0451 


75101 


027122 


JMP 


CHAN3 


NO 


0452 


75102 


060030 


IDA 


LTEMP 


GET USER'S ID 


0453 


75103 


010512 


AND 


B1777 


CONVERT 


0454 


75104 


006400 


CLB 




IT 


0455 


75105 
75106 


100400 
000472 


OIV 


• 100 


TO 


0456 


75107 
75110 


100200 
000472 


MPy 


,100 


ID 


0457 


75111 


064000 


LOB 


A 


OF 


0458 


75112 


060612 


LDA 


M2000 


GROUP 


0459 


75113 


010030 


AND 


LTEMP 


LIBRARIAN 


0460 


75114 


030001 


IQR 


B 


AND 


0461 


75115 


002001 


RSS 






0462 


75116 




CHAN2 EQU 


* 




0463 


75116 


060514 


LOA 


A000 


SET UP FOR PUBLIC LIBRARY 


0464 


75117 


070030 


STA 


LTEMP 


SAVE ID 


0465 


75120 


035256 


IS2 


TEMP4 


BUMP SOURCE POINTER 


0466 


75l2i 


035410 


ISZ 


TPRME 


BUMP LENGTH 


0467 


75122 




CHAN3 EQU 


* 




0468 


75122 


061410 


LOA 


TPRME 




0469 


75123 


040366 


ADA 


.♦7 




0470 


75124 


002020 


SSA 




LENGTH > 6? 


0471 


75125 


002400 


CLA 




YES# SET TO 6 


0472 


75126 


040350 


ADA 


„ «•/ 


NO 


0473 


75127 


071410 


STA 


TPRME 




0474 


75130 


071406 


STA 


TNULL 




0475 


75131 


060640 


LDA 


DLTEM 




0476 


75132 


002004 


INA 






0477 


75133 


001000 


ALS 






0478 


75134 


071272 


STA 


TEMP5 


DESTINATION POINTER 


0479 


75135 


060654 


LDA 


FCUCA 


UPPER CASE ONLY 


0480 


75136 


015350 


JSB 


TRSTR 


TRANSFER STRING 


0481 


75137 




CHAN4 EQU 


* 




0482 


75137 


007400 


CCB 




SET FLAG FOR NO LINE NUMB 


0483 


75140 


06*611 


LDA 


TEMPI 




0484 


75141 


051334 


CPA 


PRGCT 


END OF STATEMENT? 


0485 


75142 


027147 


JMP 


CHAN5 


YES 


0486 


75143 


015356 


JSB 


FETCH 


NO, GET LINE NUMBER 


0487 


75144 


015342 


JSB 


SBFIX 


round to Integer 
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0488 


75145 


065023 


LOB DVSRS 


ILLEGAL LINE NUMBER 


0489 


75146 


006004 


INB 


READJUST 


0490 


75147 




CHAN5 EQU * 




0491 


75147 


077361 


STB PKCNT 


SAVE THE LINE NUMBER 


0492 


75150 


061575 


LOA SPROG 




0493 


75151 


073362 


STA INWRD 




0494 


75152 


116017 


J8B DL0KP,I 


SEARCH DIRECTORY FOR PRO 


0495 


75153 


002001 


RSS 




0496 


75154 


027354 


JMP CHAN7 


PROGRAM NOT FOUND 


0497 


75155 


064035 


ldb chnpo 


CHECK ILL-STORED 


0498 


75156 


044363 


ADB ,+4 


PROGRAM FLAG 


0499 


TK 4 KT 


168001 


IDA B # I 




0500 


75160 


002021 


SSA, RSS 


UNSUCCESSFULLY STORED? 


0501 


75161 


027166 


JMP CHN14 


NO, CONTINUE 


0502 


75162 


160036 


LOA CHNI,I 


GET USER«S ID 


0503 


75163 


050030 


CPA LTEMP 


DOES HE OWN THE PROGRAM? 


0504 


75164 


036152 


ISZ SCHLQ 


YES, BUMP TO ILL*ST0RED 


0505 


75165 


027354 


JMP CMAN7 


NO, PRINT NONEXISTENT PRi 


0506 


75166 


036152 


CHnU ISZ SCH^q 


PAST SECOND ERROR 


0507 


75167 


036152 


ISZ SCHLQ 


AND ERROR 2,5 


0508 


75170 


044355 


ADB .-2 




0509 


75171 


160001 


LDA 1,1 




0510 


7^172 


002020 


SSA 




0511 


75173 


027354 


JMP CHAN7 


ENTRY IS A FILE 


0512 


75174 


036152 


ISZ SCHlq 


PAST THIRD ERROR 


0513* 










0514* 


FOyND 


CORRECT 


FNtRY. FIRST CHECK 


70 SEE IF IT FITS 


0515* 










0516 


75175 


044356 


ADB ,„1 


«> FIRST WORD OF NAME 


0517 


75176 


160001 


LDA B,I 


MOVE PROTECTED BIT 


0518 


75177 


070031 


STA LTEMP+1 


TO SAFE PLACE 


0519 


75200 


044361 


ADB ,42 


*> THIRD WORD OF NAME 


0520 


75201 


160001 


LDA 1,1 


SAVE SEMI- 


0521 


75202 


070040 


STA LIBSC 


COMPILED FLAG 


0522 


75203 


006004 


INB 




0523 


75204 


160001 


LDA 1,1 


SAVE START-QF* 


0524 


75205 


001665 


ELA,CLE#ERA 




0525 


75206 


070041 


STA LIBSP 


PROGRAM POINTER 


0526 


75207 


044366 


ADB .+7 


GET PROGRAM LENGTH 


0527 


75210 


160001 


LDA 1,1 




0528 


75211 


070042 


STA CHNLN 




0529 


75212 


003004 


CMA,INA 


COMPUTE FIRST 


0530 


75213 


040041 


ADA LIBSP 


UNUSED WORD 


0531 


75214 


070045 


STA LIBPB 




0532 


75215 


003004 


CMArlNA 


COMPUTE NEGATIVE 


0533 


75216 


064040 


LDB LIBSC 




0534 


75217 


006021 


SSBfRSS 


SEMI-COMPILED? 


0535 


75220 


027225 


JMP CHN18 


NO 


0536 


75221 


040716 


ADA LWAUS 




0537 


75222 


002021 


SSA, RSS 




0538 


75223 


027231 


JMP CHNU 


OK 


0539 


75224 


027354 


JMP CHAN7 


TOO BIG 


0540 


75225 




CHN18 EQU * 




0541 


75225 


040714 


ADA LW97 


TOTAL LENGTH 


0542 


75226 


002021 


SSA, RSS 


COMPARE WITH MAX ALLOWED 


0543 


75227 


027231 


JMP CHNU 





MESSAGE 
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0544 
0545 
0546 
0547 
054a 
0549 
0550 
0551 
0552 

0553 

0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0563 
0584 
05 6 5 
0586 
0587 
0588 

0589 

0590 

0691 

0592 

0593* 

0594* 

0595* 



75230 
75231 
75231 
75232 
75233 
75234 
75235 
75236 

75237 
75240 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 

75303 
75304 
75305 
75306 
75307 
75310 
75311 
75312 
753*3 



027354 

036152 
016423 
064035 
044364 
170001 
044362 
104200 
100001 
104400 
000045 
160034 
070204 
060034 
040364 
064676 
114206 
114207 
064272 
044345 
160001 
070037 
063362 
170001 
016056 
064042 
074204 
064041 
045027 
063357 
114206 
002001 
027276 
064272 
044345 
060037 
170001 
027354 
160036 
034036 
06^031 
050030 
005665 

174036 
034036 
104200 
000032 
104400 
100036 
036152 
016343 
016312 



JMP CHAN7 

CHNlt EQU * 

ISZ 8CHLQ 
JS8 DATE 
LOB CHNPD 
ADB ,*5 
STA 1,1 
ADB t *3 
DLD B,I 

DST CHNDI 



LDA 

STA 
LDA 
ADA 
LDB 
JSB 
JSB 
LOB 
ADB 
LDA 
STA 
LDA 
STA 
JSB 
LDB 
STB 
LDB 

*DB 
LDA 
JSB 
RSS 
JMP 

LDB 
ADB 
LDA 
STA 
JMP 
CHN13 LDA 
I3Z 
LDB 
CPA 
ELBr 
STB 
ISZ 
DLD 



CHNP,I 

MWORD 

CHNP 

,+5 

LIBD 

DISCZ,I 

SlCKP,I 

MLINK+1 

.♦?PROG< 

B,I 

CHNC 

INWRD 

1,1 

RDPRG 

CHNLN 

MWORD 

LIBSP 

BIT15 

CHNDP 

DISCZ,I 

CHN13 

MLINK+1 

# *?PROG< 

CHNC 

B,I 

CHAN7 

CHNI, I 

CHNI 

LTEMP+i 

LTEMP 

CLEfERB 
CHNI, I 
CHNI 
LTEMp*2 



PROGRAM TOO LARGE 

PAST FOURTH ERROR 
SET NEW DATE 
INTO 

DIRECTORY 

SET 
DISC 

ADDRESS 

WRITE DIRECTORY 
BACK TO 
DISC 



QUE PA5A? 
SET TO NULL PROGRAM 
>?LINK 

SAVE CURRENT 
PROGRAM BOUND 



READ IN FIXED AREA 



READ 

PROGRAM 
FROM DISC 
READ ERROR 



-?LINK 



GET USER'S ID 

TO FIRST WORD OF NAM! 
GET FIRST WORD 
IF PROGRAM OwNER CUAR 
RUN-ONLY BIT 
STORE FIRST WORD OF NAME 
BUMP POINTER TO NEXT WORD 
GET LAST 2 WQRD$ o? NAM| 



DST CHNI, I STORE IN TABLE 



ISZ SCHLQ 
JSB SEMIC 
JSB ABCHK 



ABORT ATTEMPT? 



SET TO RUN 



PAGE 0384 #31 CHAIN 



0596 


75314 


103100 




CLF 




0597 


75315 


064255 




LDB MAIN 




0598 


75316 


160001 




LDA 1,1 


DON»T ALLOW 


0599 


75317 


030377 




IOR UNABT 


ABORTS 


0600 


75320 


030506 




IOR CHNFG 




0601 


75321 


170001 




STA 1,1 


DURING COMPILE 


0602 


75322 


102100 




stf 




0603 


75323 


061573 




LDA SYMTB 




0604 


75324 


002003 




SZA,RSS 


UNCOMPILED? 


0605 


75325 


060056 




LDA PBPTR 


YES, USE PBPTR 


0606 


75326 


067361 




LDB PKCNT 


LINE NUMBER 


0607 


7532? 


006020 




SSB 


SPECIFIED? 


0608 


75330 


027335 




JMP CHAN6 


NO 


0609 


75331 


015314 




JSB FNDPS 


FIND REFERENCED STATEMNET 


0610 


7533? 


027343 




JMP CHAN9 


BAD LINE NUMBER 


0611 


75333 


000000 




NOP 




0612 


75334 


002001 




RS8 




0613 


75335 




CHAN6 


EQu * 




0614 


75335 


065575 




LDB SPR06 


DEFAULT LINE NUMBER 


0615 


75336 


075334 




stb prgct 


SAVE FIRST STATEMENT 


0616 


75337 


036152 




ISZ SCHLQ 




0617 


75340 




CHAN8 


EQu * 




0618 


75340 


060417 




LDA ,+40B 




0619 


75341 


071571 




STA BLANK 




0620 


75342 


026222 




JMP 8CHBL 




0621 


75343 


016312 


CHAN9 


JSB ABCHK 




0622 


75344 


060506 




LDA CHNFG 




0623 


75345 


003000 




CMA 




0624 


75346 


064255 




LDB MAIN 




0625 


75347 


103100 




CLF 




0626 


75350 


110001 




AND B,I 


CLEAR CHAIN FLAG 


0627 


75351 


170001 




STA B,I 




0628 


75352 


102100 




STF 




0629 


75353 


027340 




JMP CHAN8 




0630 


75354 


016056 


CHAN7 


JSB RDPRG 


READ BACK USER PROGRAM 


0631 


75355 


016312 




JSB ABCHK 


ABORT ATTEMPT? 


0632 


75356 


026222 




JMP SCHBL 


NO 


0633 


75357 


000046 


CHNDP 


D£F CHNDl 




0634 


75360 


020040 


TWOSP 


ASC 1, 




0635 


75361 


000000 


PKCNT 


BSS 1 




0636 


75362 


000000 


INWRD 


BSS 1 




0637 


75363 


073367 


LCDP 


DEF LCD 




0638 


00034 




CHNP 


EQU LTEMP*4 




0639 


00035 




CHnPD 


EQU LTEMP+5 




0640 


00036 




CHNI 


EQU LTEMP+6 




0641 


00037 




CMNC 


EQU LTEMP*7 




0642 


00042 




CHNUN 


EQU LTEMP+10 


PROGRAM LENGTH 


0643 


0004ft 




CHNDI 


EQU LTEMP+14 


DISC 


0644* 








LTEMP+15 


ADDRESS 


0645* 












0646* 


LtEMP, l t emp 


♦1^ ljEMP+2 AND LtEMP*3 ARE ALSO uSED 


0647* 












0648 


75364 




$CHN 


FQU * 
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0002* THE SAVE COMMAND IS USED TO SAVE PROGRAMS IN THE USER LIBRARY. 

0003* THE PROCEDURE IS AS FOLLOWS? 

0004* 1) CHECK THAT PROGRAM IS LISTABLE COR ID«A000), HA0 A NAMg, 

0005* AND ISN'T NULL, 

0006* 2) DECOMPILE, 

0007* 3) CHECK FOR IDT OR ADT OVERFLOW, 

0008* 4) CHECK FOR DUPLICATELY NAMED PROGRAM, 

0009* 5) UPDATE DIRECTORY, 

0010* 6) UPDATE IDT AnP ADT, 

0011* 7) MOVE PROGRAM TO LIBRARY AREA, 

0012* 

0013* STEP 5 IS WRITTEN AS An OVERLAY? WHICH Is CALLED WHENEVER THE pAR< 

0014* ticular directory track needed is already full* its job is to g*r« 
0015* bage collect the directory tracks, 



0017 75000 



0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 

0027 
0028 
0029 
0030 

0031 

0032 

0033 

0034* 

0035* 

0036* 

0037* 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048* 

0049* 

0050* 

0051 

0052 

0053 

0054* 

0055* 



75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 

75014 
75015 
75016 
75017 



064272 
044346 
074050 
044356 

074042 
044355 
074043 
104200 
100050 
006002 
054532 
027531 
164^42 
060344 
054726 
027532 



ORG LIBRA 

LDB MLINK*1 B»>LINK WORD, 

ADB ,+?ID*?LINK ID LOCN, 

STB MOVES 

ADB ,*?PROG*?ID 

STB SAVP 

ADB ,+?DISC»?PRQG 

STB SAVD 

DLD MOVES, I A»ID,B»lST WORD OF NAME, 



SzB 

CPB ASCBB 
.IMP SAV3 
LDB SAVP, I 
LDA ,*H 
CPB PBUFF 
JMP SAV4 



TEST FOR NO PROGRAM NAME 



TEST FOR NULL PROGRAM, 



WELL, Ay LEAS T THE PROGRAM HAS A NAME, NOW MAKE SyRE Ij 13 

DECOMPILED 



75020 016056 

75021 064042 

75022 044353 

75023 160001 

75024 010361 

75025 002003 

75026 027044 

75027 027043 
75030 000000 
75043 015322 



SAV0 



JSB RDPRG READ PROGRAM TO CORE, 

LDB sAyP TEST FOR COMPILED, 

ADB ,+?FLAG w ?P R OG 

LDA 1,1 

AND CFLAG 

SZA,RSS 

JMP SAV5 

JMP SAV5-1 

BSS 11 

JSB DCMPL 



NOT COMPILED. 

ROOM FOR CSAVE CODE 

DECOMPILE IT, 



NExT MAKE SURE 'COMMON* IS ALLOCATED IF NECESSARY 



75044 065575 

75045 054726 

75046 015516 



SAV5 



LDB SPROG 
CPB PBUFF 
JSB AlCOM 



COMMON 

ALLOCATED? 
NO»»Dq it 



PUT THE PROGRAM IN gSERS SwAP AREA SO SOME WORK CAN GET DONE 
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0056* 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068* 

0069* 

0070* 

0071* 

0072 

0073 

0074 

0075 

0076 

m77 

0078 

0079 

0080 

0081* 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 



75047 
75050 

75051 
75052 
75053 
75054 
75055 
75056 
75057 
75060 
7506! 



064056 
174042 

mymA 

045213 
074204 
060043 
065213 
114206 
124210 
027104 

000000 



SAy50 



LD8 PBPTR 


RESET PROGRAM BOUND 


SjS SAvP,I 


INTO TABU 


CMB,INB 


COMPUTE # 


A08 USE 


OF WORDS 


STB MWORD 




LDA SAVD 


GET DISC ADDRESS POINTER 


LDB USE 


WRITE OUT TO 


JSB DI8CZ,J 


SWAP TRACK 


JMP PTZAP,I 


BLEW IT • DUMP THIS DUDE 


JMP sAvSl 




BSS 19 


ROOM FOR CSAVE CODE 



DEtErMINE IF T HI S US^R HA$ ENOuGM ALLOCATED 8 PACE AVAILABLE TO 
SAVE THE PROGRAM, 



0098* 

0099* 

0100* 

0101 

0102 

0103 



75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

SE 

75 
75 
75 



04 
05 
06 
07 
10 
11 
12 
13 
14 

15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 



164042 
007004 
045575 
074040 
101030 
007004 
076460 
065575 
074042 

116022 
044366 
160001 
042460 
003004 
044356 
000040 
140001 
002040 
027145 
067132 
060334 
026623 
075133 
005H4 
044502 
051101 
051131 
020123 
050101 
041505 
020106 
052514 
046040 



SAV51 LDB 5AVP,I 
CMB,INB 

ADS SPROG 

STB SAVWD 

ASR 8 
CMB, INB 

STB SAvLN 

LDB SPROG 

STB SAVP 

JSB GCID,I 

AQB .+7 

LDA 1,1 

ADA SAvLN 
CMA»INA 

AD6 ,-1 
CLE 

ADA 1,1 
SEZ 

JMP SAV6 

LDB *+3 

LDA ,-19 

JMP LIBER 

DEF **i 

OCT 5114 



COMPUTE 
PROGRAM 
LENGTH 
SAVE IN 

NEGATIVE WORDS AND 
POSITIVE 
BLOCKS 
SAVE START-OF* 
PROGRAM POINTER 

GET USER IDT ENTRY 
GET DISC USED TO DATE. 

GET TOTAL AMOUNT TO 

USED AS A NEGATIVE QUANTITY 



COMPARE WITH ALLOTMENT, 



OK„ 



LF«L 



ASC 9*IBRARY SPACE FULL 



RCH ADT FOR SPACE TO PUT THE PROGRAM, 



45 

45 060347 

46 070044 



SAV6 



EQU * 
LDA ,"8 
STA SAVDF 



SET COUNT OF POSSIBLE DISK ADTS 
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0104 

0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138* 

0139 

0140 

0141 

0142 

0143 

0144 

0145 



0146* 
01«7 
014q 
0149 

0150 
0151 

0152 



75147 
75147 
75150 
75151 
75152 
75153 
75154 
75155 
75156 

75157 
75160 
75161 

75162 
75163 
75164 
75165 

75166 
75167 
75*70 
75171 
75172 
75173 
75174 

75175 
75175 

75176 
75177 

75200 
75201 
75202 
75203 
75204 
75205 
75205 
75206 

75207 
75207 
75210 
75211 
75212 
75213 
75214 

75215 
75216 
75217 
75220 
75221 
75222 

75223 
75224 

75225 
75226 
75227 

75230 



062030 
040362 
053553 
063552 
072030 
040361 
070043 
160043 
002003 
027205 
070204 
062030 
064700 
114206 
114207 
007400 
160043 
100400 
000362 
070041 
064676 
044361 

160001 
003100 
042460 
002041 
027237 
044362 
034041 
027175 

034044 
027147 



060337 
067212 
026623 
075213 
005123 
054523 
052105 
046440 
047526 
042522 
046117 
040504 

060337 
067226 
026623 
075227 

005104 
052520 



SAVBA EQU 
LDA 
ADA 
CPA 
LDA 
STA 
ADA 
STA 
IDA 
SZA, 
JMP 

STA 
LDA 
UDB 
JSB 
JSB 
CCB 
LDA 

DIV 



SAV12 



* 

RKCYP 
f + 3 
EALNA 

EALCA 

RKCYP 

, + ADTlN< 

SAVD 

SAVD>I 

RSS 

SAVBF 

MWQRD 

RKCYP 

LIBDI 

DISCZ,I 

SICKP#I 

S*VD,I 
• *3 



GET CYCLIC POINTER 
AND ADVANCE 
IT TO THE 
NEXT ENTRY 
IN THE TABLE 
ADTAT »> LENGTH WORD 

IS THIS DISK AVAILABLE 
ZERO SEZ NO ADT TABLE 
SO WE ADVANCE TO NEXT DISK 
OTHERWISE, SAVE LENGTH 
«> DISC ADDRESS 



READ IT IN 
SORRY, IT'S 
COMPUTE THE 
ENTRY 
COUNT 



STUCK ON THE DISC 



STA 
LDB 
ADB 

SAVBD EQU 
IDA 
CMA 
ADA 
SEZ 
JMP 
ADB 
ISZ 
JMP 

SAyBF EQU 
ISZ 
JMp 

SAy23 EQU 
LDA 
LDB 
JMP 
DEF 
OCT 



SAVC 
LIBD 

.♦2 

* 

BrI 
,CLE 

SAVLN 
f RSS 

SAV7 

.♦3 

SAVC 

SAVBD 

SAvDF 
SAVBA 

,»16 

*+2 

LIBER 

*+i 

5123 



AND SAVE 
«> FIRST ENTRY 
■> LENGTH WORD 

TEST THIS ENTRY FOR BIG ENOUGH 



SKIP IF TOO SHORT 

GOTCHA 

ADVANCE TO NEXT ENTRY 

DECREMENT ENTRY COUNT 

PROCESS NEXT ENTRY 

PROCESS NEXT TRACK 

TRIED ALL DISKS FOR ROOM? 

NO, TRY THE NEXT On£ 



print "System overload* 



LF»S 



A3C 7,ystEm overload 



LDA 


,«16 


LDB 


• 4-2 


JMP 


LIBER 


DEF 


**1 


OCT 


5104 


ASC 


7,UPHCATE 



PRINT "DUPLICATE ENTRY" 



LF»D 



ENTRY 
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0153* 

0154 

0155 

0156 

0157 

0159 
0160 
0161 

0162 

0163* 

0164 

0165 

0166 
0167 
0168 

0169 

0170* 

0171* 

0172* 

0173* 

0174 

0175 

0176 

0177* 

0178 

0179 

0180 

0181* 
0182* 

0183* 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193* 

0194 

0195 

0196 

0197 

0198 

0199 

0200 



75231 
75232 
75233 
75234 
75235 
75236 

75237 
75237 
75240 
75241 

75243 
75244 
75245 
75246 
75247 
75250 

75251 
75252 
75253 
75254 
75255 
75256 



046111 
041501 
052105 
020105 
047124 
051131 



062460 
003004 
140001 

r%1nt% a a 
rjif w v *? •» 

044355 
074041 
104200 

100001 
104400 
000036 

060640 
070051 
06*353 
016450 
027260 
000000 



$Av7 EqU * 

LD* SAVLN 

cma,ina 

ADA B,I 

St A #» A t/HC 

ADB f «2 
STB SAVC 
DID B,I 

DST SAyDS 



lda dltem 

sta moved 

LDB .-4 

JSB MOVEW 

SAV10 JMP sAVll 

BSS 2 



SAVE 

NEGATIVE NUMBER OF 
SECTORS LEFT 

SAVE LOCATION OF 

DISK ADT ENTRY 

GET DISK ADDRESS 

AND SAvE 



MOVE ID/NAME ENTRY TO 
LTEMp(0|3), 



ROOM FOR CsAvE CODE 



SEARCH THE DIRECTORY TO INSURE THE PROGRAM NAME DOES NOT ALREADY 
EXIST 



75260 

75260 116017 

75261 027223 

75262 164034 

75263 054314 

75264 027545 



SAvl 1 EQU * 

JSB DLOKP,I 

JMP SAV12 

LDB SAVI,I 

CPB M8184 

JMP SAV98 



SEARCH FOR ENTRY 
ENTRY F0UND**IkL£&Au 

IF TRACK IS FULL, GO DO 
OVERLAY SECTION, 



EVERYTHING IS FINE. BUILD A NEW DIRECTORY ENTRY AND INSERT 



75265 007000 

75266 044676 

75267 074050 

75270 044373 

75271 074051 

75272 007000 

75273 044407 

75274 044035 

75275 016434 



75276 
75277 
75300 
75301 
75302 
75303 
75304 



060640 
070050 
060035 
040373 
070051 
064353 
016450 



CMB 

ADB LIBD 
STB MOVES 
ADB ,+12 
STB MOVED 
CMB 

ADB ,+24 
ADB SAVS 
JSB MOVES 

LDA DLTEM 

STA MOVES 

LDA SAVS 

ADA t +12 

STA MOVED 

LDB .-4 

JSB MQVEW 



SET UP SOURCE FOR 
MOVE, 

SET UP DESTINATION 

COMPUTE LENGTH, 



MOVE 5 WORDS IN FOR 
NEW ENTRY, 
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0201 


75305 


060042 


LDA 


SAVP 


STORE START-QF- 


0202 


75306 


170051 


8TA 


MOVED, I 


PROGRAM POINTER 


0203 


75307 


016423 


JSB 


DATE 


STORE DATE IN A iSO. 


0204 


75310 


034051 


ISZ 


MOVED 




0205 


75311 


170051 


8TA 


MQVEDfl 


LAST REFERENCE o*TE 


0206 


75312 


034051 


182 


MOVED 




0207 


75313 


060171 


LDA 


DATIM 


GET HOUR OF YEAR 


0208 


75314 


170051 


STA 


MOVED, I 


LAST CHANGE DATE 


0209 


75315 


034051 


ISZ 


MOVED 




0210 


75316 


002400 


CIA 




ZERO 


0211 


75317 


170051 


STA 


MOVED, I 


WORD 7 


0212 


75320 


034051 


ISZ 


MOVED 




0213 


75321 
75322 


104200 
000036 


DUD 


savos 


GET DISK ADDRESS FOR 


0214 


75323 
75324 


104400 
100051 


DST 


MOyED,I 


WORDS 8 AND 9 


0215 


75325 


064051 


LDB 


MOVED 




0216 


75326 


044362 


ADB 


.+3 


s> WORD 11 


0217 


7 532 7 


0g0040 


LDA 


savwd 


GET THE LENGTH WORD FOR 


0218 


75330 


170001 


STA 


B,I 


WORD 11 


0219* 












0220 


75331 


160034 


LDA 


SAVI,I 


ADJUST 


0221 


75332 


040343 


ADA 


,"•12 


DIRECTORY 


0222 


75333 


170034 


STA 


SAVI,I 


LENGTH. 


0223 


75334 


070204 


STA 


MwORD 




0224 


75335 


060034 


LDA 


SAVI 


write directory back out 


0225 


75336 


002004 


INA 






0226 


75337 


070051 


STA 


MOVED 




0227 


75340 


040363 


ADA 


.+4 




0228 


75341 


064676 


LDB 


LIBD 




0229 


75342 


074050 


STB 


MOVES 




0230 


75343 


114206 


JSB 


DISCZ#I 


WRITE OUT 


0231 


75344 


114212 


JSB 


DEADP,I 


FORGET IT 


0232* 












0233 


75345 


064353 


LDB 


t «»4 


RESET DIREC, 


0234 


75346 


016450 


JSB 


MOVEW 




0235* 












0236* 


NOW UPDATE Th£ UsEr*S AMOUNT 0? 


Disc space used 


0237* 












0238 


75347 




SAy21 FQu 


* 




0239 


75347 


116022 


JSB 


GCIDtl 


READ IN THE IDT 


0240 


75350 


044366 


ADB 


.*7 




0241 


75351 


062460 


LDA 


SAVLN 


ADJUST AMOUNT 


0242 


75352 


140001 


ADA 


B,I 


OF DISK SPACE USED 


02 4 3 


75353 


I7000i 


STA 


1,1 




0244* 












0245 


75354 


060075 


LDA 


IDTAD 


GET DISC ADDRESS POINTER 


0246 


75355 


064676 


LDB 


LIBD 


TO WRITE IOT BACK 


0247 


75356 


114206 


JSB 


DISCZ, I 


TO THE DISC 


0248 


75357 


114212 


JSB 


DEADPfl 


THIS SYSTEM HAS HAD IT 


0249* 












0250* 


NEXT. 


UPDATE 


THE AOT 






0251* 












0252 


75360 


160043 


LDA 


SAVOiI 


FETCH THE LENGTH OF THt 


0253 


75361 


070204 


STA 


MWORD 


ADT TRACK 


0254 


75362 


062030 


LDA 


RKCYP 


GET THE DISC ADDRESS POX 
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0255 


75363 


064700 


LDB 


LIBDI 


0256 


75364 


114206 


JSB 


DI8CZ,I 


0257 


75365 


027407 


JMP 


SAV30 


0256* 










0259 


75366 


064044 


LDB 


SAVDF 


0260 


75367 


006002 


SZB 




0261 


75370 


027415 


JMP 


SAyCF 


0262* 










0263 


75371 


064041 


LDB 


SAVC 


0264 


75372 


074051 


8TB 


MOVED 


0265 


75373 


044362 


ADB 


• ♦3 


0266 


75374 


074050 


STB 


MOVES 


0267 


75375 


044774 


ADB 


MLlBD 


0268 


75376 


044204 


ADB 


MWORD 


0269 


75377 


016450 


JSB 


MOVEW 


0270* 










0271 


75400 


060362 


LDA 


• *3 


0272 


75401 


164043 


LDB 


SAVD,I 


0273 


75402 


044000 


ADB 


A 


0274 


75403 


174043 


STB 


SAVD,I 


0275 


75404 


040204 


ADA 


MWQRD 


0276 


75406 


070204 


ST A 


MWORD 


0277 


75406 


027431 


JMP 


SAVCG 


0278* 










0279 


75407 


006400 


SAV30 CLB 




0280 


75410 


002400 


CLA 




0281 


75411 


170043 


STA 


SAVD, I 


0282 


75412 
75413 


104400 
174030 


DST 


RKCYP,I 


0283 


75414 


027435 


JMP 


SAV3I 


0284* 










0285 


75415 




SAyCF EQU 


* 


0286 


754*5 
75416 


104200 
100041 


OLD 


SAVCf I 


0287 


75417 


000040 


CLE 


1 


0286 


75420 


046460 


ADB 


SAVLN 


0289 


75421 


002040 


SEZ 




0290 


75422 


002004 


INA 




0291 


75423 
75424 


104400 
100041 


DST 


SAVC, I 


0292 


75425 


064041 


LDB 


SAVC 


0293 


75426 


044361 


ADB 


t+2 


0294 


75427 


060044 


LDA 


SAyDF 


0295 


75430 


170001 


STA 


B,I 


0296* 










0297 


75431 




SAyCG EQ(J 


* 


0298 


75431 


062030 


LDA 


RKCYP 


0299 


75432 


064676 


LDB 


LIBD 


0300 


75433 


114206 


JSB 


DISCZ,I 


0301 


75434 


027407 


JMP 


SAV30 


0302* 










0303* 


RETRIEVE THE 


USSR'S PROGRAM FROM 


0304* 


THE SELECTED 


AREA ON DISC. 


0305* 










0306 


75435 


016056 


SAV31 JSB 


RDPRG 


0307 


75^36 


060040 


LDA 


SAVWD 



AND READ IN THE 
ADT TRACK AGAIN 
CAN'T - MAKE IT DISAPPEAR 



ADT ENTRY COMPLETELY USED? 
NO, SHORTEN IT 

YES, REMOVE IT 

SET UP POINTERS FOR MOVE 

CALCULATE THE NEEDED 
WORD COUNT 

SHORTEN THE APPROPRIATE COuNtS 
SHORTEN THE TABLE ENTRY 
AND THE DISC DRIVER COUNT 



ZERO OUT ADT'S LEnGTH 
AND DISC ADDRESS WORDS 



MOVE UP THE DISK ADDRESS 



BY SAVLN BLOCKS 
CHECK FOR OVERFLOW 



AND UPDATE THE COUNT 
«> LENGTH WORD 
GET SAvED LENGTH 
AND PLUG IN 



GET DISC ADDRESS POINTER 
AND WRITE THE DISK ADt 
BACK TO THE DISC 
CANiT . MAKE IT DISAPPEAR 

THE SWAP AREA & WRITE It OUT TO 



READ USER PROGRAM AGAIN 
WRITE IT OUT. 
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0308 

0309 

0310 

0311* 

0312 

0313 

0314 

0315 

0316 

0317 

0318* 

0319* 

0320* 

0321* 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 
0336 
0337 
0338 
0339 
0340 



0341 

0342 
0343 
0344 
0345 
0346 



75437 070204 

75440 027463 

75441 000000 

75463 

75463 063555 

75464 064042 

75465 114206 

75466 002003 

75467 026613 



STA MWORD 
SAV24 JMP SAV25 

B3S 18 

SAV25 EQU * 

LDA SAVOP 
LOB SAVP 
JSB DISCZ,1 
SZA,RSS 
JMP LLEND 



TO LIBRARY 
ROOM FOR C8AVE CODE 



WRITE TO DISC 
TRANSFER SUCCESSFUL* 



IF THE TRANSFER TO DISC WAS UNSUCCESSFUL, INDICATE »BADLy SAVED 
PROGRAM' IN THE DIRECTORY ENTRY AND PRINT ERROR MESSAGE, 



75470 
75471 
75472 
75473 
75474 

75475 
75476 
75477 
75500 
75501 
75502 
75503 
75504 

75505 
75506 
75507 
75510 

75511 
75512 
75513 
75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
75541 



116017 
002001 
102^35 
064035 
044363 
160001 
031027 
170001 
060034 
040364 
064676 
114206 
114211 
063557 
067510 
026623 
075511 

005125 
047123 

052503 
041505 
051523 
043125 
046073 
020113 
044514 

046040 
040516 
042040 
051105 
050105 
040524 
027040 
060337 
067534 
026623 
075535 
005116 
047440 
050122 
047507 
051101 



JSB 

RSS 

HLT 
LDB 
ADB 
LDA 

I OR 
STA 

LDA 
ADA 
L DB 
JSB 

JSB 
LDA 
LDB 
JMP 
DEF 

OCT 
AsC 



SAV3 
SAV4 



DLOKP, I 

DEATH*35B 
LtEMP+5 

B,I 

Bins 

B,l 
LTEMP+4 

.+5 
LIBD 

DISCZ,I 

SLV A G,I 

8M3I 

* + 2 
LIBER 

* + l 
5125 



NO, GO GET DIRECTORY ENTRY AGAIN 

FOUND IT 

NOT FOUNDt TROUBLE 

GET POINTER TO ENt«Y 

«> END OF COMMON POINTER 

SET BIT 15 TO 

INNATE BADLY SAVED 
PROGRAM 

WRITE OUT 

DIRECTORY TRACK 



CAN'T DO IT, TRY TO SaUaGE 



PRINT FAILURE 
LF-U 



l5,NsuCCEss F ULJ KILL AND REPEAT, 



LDA t *l6 

LDB **2 

JMP LIBER 

DEF **i 

OCT 5116 l f *N 

ASC 7,0 PROGRAM NAME 
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0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359* 

0360 

0361 

0362* 

0363 

0364* 

0365 

0366 

0367* 

0368* 

0369 

0370 

0371 

0372* 

0373* 

0374* 

0375 

0376* 

0377* 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 



75542 
75543 
75544 
75545 
75545 
75546 
75547 
75550 
75551 
75552 

75553 
75554 
75555 
75556 
75557 

00034 
00035 

00036 

00040 
00041 



00042 

00043 
00044 



046440 
047101 
046505 

063556 

070204 
063554 
064610 
027773 
000116 

000146 
072057 
000036 
177005 
177741 



SET UP 
OVERLAY, 



3Ay98 EQU * 

IDA SM507 

STA MWORD 

IDA SAVOV 

LOB #LIBI 

JMP SAV99 
EALCA DEF ADTAT 
EALNA DEF DKTBL 

SAVOV DEF COM6*8AVO*COM3*SAVO«COM3 
SAvDP DEF SAVDS *> DISK ADDRESS 
SM507 DEC .507 
SM31 DEC »3i 



SAVI EQU LTEMP+4 
SAVS EQU LTEMP+5 

SAVDS EQU LTEMP*6 

LTEMP+7 

SAVWD EQU LTEMP+8 

SAVC EQU LTEMP*9 



SAVP EQU LTEMP*10 
SAVD EQU LTEMP+H 
SAVDF EQU LTEMP+12 



•* direc entry of track in core 
»> directory Entry preceedxng 
space for new entry 

DISC 

ADDRESS 
LENGTH IN WORDS OF PROGRAM 
NUMBER OF ENTRIES IN ADT (NgG) 
& POINTER TO DISC A0DRE8S OF 1ST 
AVAILABLE LOCATION FOR STORAGE 

start*of*program POINTER 

DISC ADDRESS POINTER 



LTEMP, LTEMP+l, LTEMP+2, AND LTEMP+3 ARE ALSO USED HERE 
74460 SAVLN EQU T35CQ LENGTH IN BLOCKS OF PROGRAM 



75773 
75773 

75773 114206 

75774 102077 

75775 027000 

75776 027347 

75777 027207 
76000 



ORG LIBRA*507 

SAV99 EQU * 

JSB DIsCZf I 

HLT 77B 

JMP LIBRA 

JMP 8AV21 

JMP SAV23 

$SAV EQU * 



NORMAL RETURN 
ERROR RETURN 
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0387* 


THE CSAVE COMMAND IS USED TO SAVE 


PROGRAMS IN THE USER LIBRARY 


0388* 


IN SEMI-COMPILED FORM, CSAVE BORROWS CODE FROM SAVE AND MUST 


0389* 


FOLLOW IT, 








0390* 












0391 


75000 




ORG 


LIBRA 




0392 


75000 


064272 


LDB 


MLINK+1 




0393* 












0394 


75025 




ORG 


SAV0 




0395 


75025 


002002 


S?A 




COMPILED? 


0396 


75026 


027042 


JMP 


CSAV1 


YES 


0397 


75027 


065575 


LDB 


SPROG 


NO# COMMON 


0398 


75030 


054726 


CPB 


PBUFF 


ALLOCATED? 


0399 


75031 


015516 


JSB 


ALCQM 


NO«*Oo IT 


0400 


75032 


065575 


L DB 


SPRQG 


SET PROGRAM 


0401 


75033 


075334 


STB 


prgct 


counter 


0402 


75034 


060417 


LDA 


,4.408 


TURN ON 


0403 


75035 


071571 


STa 


BLANK 


BLANK SUPPRESSION 


0404 


75036 


002400 


CLA 




CLEAR OyT-OF 
STORAGE FLAG 


0405 


75037 


071573 


STA 


symtb 


0406 


75040 


127041 


JMP 


* + l*I 


GO COMPILE IT 


&Ad7 


75041 


036070 


DEF 


CMP00 




040a 


75042 


061230 


CSAV1 LDA 


SPTR 




0409 


75043 


002002 


SZA 




SEMICOMPILED? 


0410 


75044 


015520 


JSB 


RSTPT 


RESTORE SYMBOL TABLE POINTERS 


0411 


75045 


002400 


CSAV2 CLA 




FLAG AS 


0412 


75046 


071230 


STA 


SPTR 


SEMI-COMPILED 


0413 


7^047 


065502 


LDB 


FILTB 




0414* 












0415 


75060 




ORG 


SAV50 




0416 


75060 


065502 


LDB 


FILTB 




0417 


75061 


044366 


ADB 


. + 7 




0418 


75062 


007004 


CMB, 


»INB 




0419 


75063 


044716 


ADB 


LWAUS 




0420 


75064 


006021 


SSB, 


,RSS 


TOO BIG? 


0421 


75065 


027103 


JMP 


CSAV4 


NO 


0422 


75066 


060335 


LDA 


,-18 


YES 


0423 


75067 


067071 


LDB 


*+2 




0424 


75070 


026623 


JMP 


LIBER 




0425 


75071 


075072 


DEF 


* + l 




0426 


75072 


005120 


OCT 


5120 


LF-P 


0427 


75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 


051117 
043522 
040515 
020124 
047517 
020114 
040522 
043505 


ASC 


8,R0GRAM 


TOO LARGE 


0428 


75103 




CSAV4 EQy 


* 




0429 


75103 


065502 


LDB 


FILTB 




0430 


75104 


044366 


ADB 


.♦7 




0431* 












0432 


75255 




ORG 


SAV10 




0433 


75255 


060033 


LDA 


LTEMP+3 


FLAG NAME 


0434 


75256 


031027 


IOR 


BIT15 


TO INDICATE 


0435 


75257 


070033 


STA 


LTEMP+3 


SEMI-COMPILED 
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0436* 
0437 


75440 




ORG 


SAV24 




0438 


75440 


061502 


L DA 


FIUTB 


«* FIRST WORD AFTER 


0439 


75441 


065573 


L.D8 


8YMTB 


SAVE ENDiiOF 


0440 


75442 


174000 


STB 


0,1 


PROGRAM POINTER 


0441 


75443 


002004 


INA 






0442 


75444 


065604 


LOB 


FILCT 


SAVE # OP 


0443 


75445 


174000 


STB 


0,1 


<FILE8 STATEMENTS* 


0444 


75446 


064444 


LDB 


OFILT 


SAVE 


0445 


75447 


075603 


STB 


FILPT 




0446 


75450 


064353 


LOB 


t «4 




0447 


75451 


075230 


STB 


SPTR 


POINTERS 


044^ 


75452 


002004 


CSAV3 INA 






0449 


75453 


165603 


LOB 


FILPT, I 




0450 


75454 


174000 


STB 


0,1 


TO <FILE8 


0451 


75455 


035603 


I3Z 


FiuPT 




0452 


75456 


035230 


ISZ 


SPTR 




0453 


75457 


027452 


JMP 


C3AV3 


STATEMENTS* 


0454 


75460 


002004 


INA 




SAvE 


0455 


75461 


065605 


LDB 


U3ESN 


'USING 


0456 


75462 


174000 


STB 


0,1 


SEEN* FLAG 


0457* 












0456* 


THIS F 


ROUTINE 


USES ALL LjEMPS ySEO 


IN »SAvE ( 


0459* 
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0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0008* 

0009* 

0010* 

0011* 

0012 

0013* 

0014 

0015* 

0016* 

0017* 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042* 

0043* 

0044* 

0045* 

0046* 
0047 
0048 
0049 

0050 
0051 

0052 
0053 
0054 
0055 



THE SAVE OVERLAY ROUTINE IS CALLED BY THE SAVE AND OPEN ROUTINES 
* WHENEVER THEY WANj 1*0 HAKE A DIrECtQrY £N|rY ON A TRACK THAT 1$ 
ALREADY FULL. THE FOLLOWING LOCATIONS MUST BE APPROPRIATELY S&Ti 
LTEMPC0j3)«13T 4 WORDS OF ENTRY. 
LtEMP(4)«P0INtER TO DIREC ENfRY OF TRACK IN CORE 
LTEMP(5)*C0RE ADDRESS OF ENTRY TO PRECEED NEW ENTRY 
LTEMP(6*7)*DISC ADDRESS 
LTEMP(8)*LEN6TH OF ENTRY IN .WORDS 
L.TEMP(10)«START OP PROGRAM POINTER OR RECQRD gj^E 



75000 

75000 063722 



ORG LIBRA 
LDA SOIR0 



»> 1ST DIREC ENTRY 



COMPUTE TOTAL # OF WOrDs IN DIRECTORIES, 



75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75024 
75025 
75026 
75027 



040364 
164000 
002104 
144000 
002040 
006004 
040351 
006003 
027024 
164000 
006103 
027023 
047730 
077730 
067727 
002041 
044356 
Q77727 
037732 

053723 
027030 
040373 
027002 



SUP1 



SUP2 



ADA 

LDB 

CLE, 

ADB 

SE2 

INB 

ADA 

SZB, 

JMP 

LDB 

CLE, 

JMP 

ADB 

STB 

LDB 

SEZ, 

ADB 
STB 
ISZ 
EQU 
CPA 

JMP 
ADA 
JMP 



.♦5 
A, I 
INA 
Arl 



RSS 
SUP2 
0,1 
SZB, RSS 

SUP2-1 

SUPS 

SUPS 

SUPS-1 

RSS 

,*1 

SUPS-1 

SUPB 

* 

SDIRL 
*+3 
, + 12 
SUP! 



A T THIS POIN T T HE DOuBLEwORD SgP.1 

SUP 
TOTAL NUMBER qF WQRDS in ALL DIRECTORY TRACKS, 



«> DIRECTORY DISC ADDRESS 
DOES 
THE 

DIRECTORY 

TRACK 

EXIST? 
NO 
GET DIRECTORY LENGTH. 
LENGTH ZERO? 

YES 
ADD TO 
TOTAL, 

INCREMENTING DOUBLE WORD QUANTIT 



BUMP DIRECTORY TRACK COUNTER. 

LAST DIRECTORY TRACK? 
YES 
NO • GO TO NEXT ONE, 



C0N T AINS 12 LESS THAN jHE 



75030 063730 

75031 067727 

75032 100400 

75033 000373 

75034 007400 
7503«j 100400 

75036 075732 

75037 053715 

75040 006003 

75041 053716 

75042 027705 



LDA SyPS 
LDB SUPS.l 
DIV ,+12 

CCB 

DIV SUPB 

CPA M682 
SZB,RSS 
CPA M683 
JMP SUP3 



GET TOTAL # OF DIRECTORY WORDS, 

GET ENTRY COUNT IN A 

COUNT < 65535 

COMPUTE * IN EACH DIRECTORY, 

TEST FOR FULL UP. 
ALL TRACKS ARE FULL 
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0056 
0057 
0058 
0059 

0060 

0061* 

0062* 

0063* 

0064 

0065 

0066 

0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

m77 

0078 

0079 

0080 

0081 

0082 

0083 

0084* 

0085* 

0086* 

0087* 

0086 

0089 

0090* 
0091* 

0092* 
0093* 
0094 

0095 
0096 
0097 

0098 
0099 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0106 
0109 
0110 



75043 
75044 
75045 
75046 

75047 
75050 



040356 
044356 
077732 
100200 
000373 
073730 



ADA .-1 
AOB ,«*1 
STB SUPB 
MPY ,*12 

STA SUPS 



INCREASE # OF ENTRIES/TRACK BY 1 
LET 6 COUNT HOW MANY WILL HAVE 
THIS LARGER SIZE. 

convert to -word size 
and save 



COMPUTE AN EyEN DISTRIBUTION OF ENTRIES OyER ALL AVAILABLE TRACKS 



75051 
75052 
75053 
75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75065 
75066 
75067 
75070 
75071 
75072 
75073 



067722 
044364 

160001 
006004 
130001 
002003 
027065 
063730 
037732 
027065 
040373 
073730 

173733 
044351 
057723 
027074 
044373 
037733 
027053 



LDB 
ADB 
SUP4 LDA 
INB 
IOR 
SZA, 
JMP 
L DA 
ISZ 
JMP 
ADA 
STA 
SUP50 £QU 
SUP5 STA 
ADB 
CPB 
JMP 
ADB 
ISZ 
JMP 



SDIR0 
, + 5 
1,1 

B,I 
RSS 
SUP5 

SUPS 

SUPB 

SUP50 

, + 12 

SUPS 

* 

SUPP, I 

. «6 

SDIRL 
SUP6 

.412 

SUPP 
SUP4 



GET POINTER TO FIRST TRACK AGAIN 
GET THE DISC ADDRESS 



IF TRACK DOES NOT EXIST 

DO NOT INCLUDE IT 
GET TRACK LENGTH 
HAVE ALL BIG TRACKS BEEN PROCESS 

YES .DECREMENT BY 1 ENTRY 
AND SAVE 

STORE IN TABLE. 
TEST FOR DONE. 

FINISHED 
BUMP TO NEXT TRACK 
BUMP TABLE POINTER ALSO. 



THE TABLE POINTED TO BY PEFnn NOW CONTAINS THE NEW LENGTHS OF EACH 
OF THE DIRECTORY TRACKS 



75074 063712 

75075 073733 



SUP6 



LDA DEFNN 
STA SUPP 



SET UP POINTER 
TO NN AGAIN. 



squeeze all the Directory Entries onto the l*stmost o? the 
available tracks, 



75076 
75077 
75100 
75101 

75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75112 
75113 
75114 



063723 
073735 

040364 

16^000 
002104 
144000 
002040 
006004 
006002 
027112 
040347 
027101 

040351 
073737 

002400 



LDA 
STA 
ADA 

SUP20 EQU 
LDB 
CLE, 
ADB 
SEZ 
INB 
SZB 
JMP 

ADA 
JMP 

SUP21 EQU 
ADA 
STA 
CLA 



SDIRL 
SUPK1 

* 

Ail 

INA 

A, I 



SUP21 

# -8 

SUP20 

* 

SUPL1 



«> 1ST TRACK 
FOR READ 



GET ADDRESS 



ZERO? 

NO, THE TRACK EXISTS 



»> 1ST TRACK 

FOR WRITE 
# OF WORDS IN BUFFER 
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111 


751 


112* 




113 


751 


114 


751 


115 


751 


116 


751 


117 


751 


118 


751 


119 


751 


120 


751 


121 


751 


122 


751 


123 


751 


124 


751 


125 


751 


126 


751 


127 


751 


128 


751 


129 


751 


130 


751 


13U 




132 


751 


133 


75l 


134 


751 


135 


751 


136 


751 


137 


751 


138 


751 


139 


751 


1 4 


751 


141 


751 


142 


751 


143 


751 


U4 


751 


14g 


751 


146 


751 


147* 




148 


751 


149 


75l 


150 


751 


151 


751 


152 


751 


1 5 3 


751 


154 


751 


155 


751 


156 


751 


15 7 


751 


158 


751 


159 


751 


160 


751 


161 


751 


162 


751 


163 


75l 




751 


164 


751 


165 


751 



75115 073736 



STA SUPK2 



16 
17 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 

33 
34 
35 
36 

37 

40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 

56 

56 
57 

6* 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 
77 



063735 

164000 
006003 
027262 
047736 
047720 
006020 
027156 
164000 
074204 
047736 
077736 
044712 
045027 
040364 
114206 

114212 

063736 
050314 
002001 
027262 
070204 
067737 

170001 
044364 

060001 
067721 
114206 
114212 
006400 
077736 
027245 



007004 
005121 
005121 

005121 
005121 
Q77742 
005727 
077741 
144000 
074204 
047736 
044712 
074050 
040364 
104200 
100000 
000040 
047742 



LDA 
SUP22 EQU 
LDB 
SZ8, 
JMP 
ADB 
ADB 
SSB 
JMP 
LOB 
STB 
AOB 
STB 
ApB 
ADB 
ADA 
JSB 
JSB 



SUPK1 

* 

A, I 
RSS 
SUP27 
SUPK2 

S8l8 4 

SUP23 

A»I 

MWQRD 

SUPK2 

SUPK2 

LULEN 

8IT15 

,+5 

DISCZ#I 

DEADP,I 



LDA SUPK2 
CPA M8184 
RSS 

JMP SUP27 
STA MWORD 
LOB SUPL1 
STA B,I 
ADB t *5 
LDA B 
LDB X2056 

JSB DISCZrX 

JSB DEADP,I 

CLB 

STB SUPK2 

JMP SUP24 



SUP23 EQU 
CMB 
BRS 
BR3 
BRS 
BRS 
STB 
BLF 
STB 
ADB 
STB 
ADB 
ADB 
STB 
ADA 
OLD 



f INB 

,BRS 

,BRS 

,BRS 

,BRS 
SUPES 

f BLF 
SUPEX 
A, I 
MWORD 
SUPK2 
LULEN 
MOVES 
.♦5 
A, I 



INITIALIZED TO ZERO 



GET LENGTH FOR READ 

ZERO? 

YES 

NO, ADD IN # OF WORDS IN WffW 

ARE THE NUMBER OF WORDS IN THE 

BUFFER > 8184? 
YES 
NO# SET 

LENGTH 
UPDATE # OF 

WORDS IN CORE 

CORE ADDRESS 
*> DISC ADDRESS 



EXACTLY 8184 WORDS? 
YES 

NO 

SET LENGTH 
IN PIREC 

»> DISC ADDRESS 
CORE ADDRESS 



BUFFER NOW EMPTY 



CONVERT TO POSITIVE VALUE 
COMPUTE 
NUMBER 
OF 

EXTRA 
BLOCKS 
COMPUTE # OF 

EXTRA WORDS 
# OF WORDS 
TO READ 



CLE 

ADB SUPES 



COMPUTE 

ADDRESS 

OF REMAINING 
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0166 


75200 


002040 


SEZ 




WORDS 


0167 


75201 


002004 


INA 




TO 


0168 


75202 
75203 


104400 
075744 


DST 


SUPET 


READ 


0169 


76204 


063743 


LDA 


SUPEA 


■> DISC ADDRESS 


0170 


75205 


064050 


LOB 


MOVES 




0171 


75206 


045027 


A08 


BIT15 


CORE ADDRESS 


0172 


75207 


114206 


JS8 


DI8CZ,I 




0173 


75210 


114212 


JSB 


DEADP,I 




0174* 












0175 


75211 


060314 


LDA 


M8184 


U OF WORDS 


0176 


75212 


070204 


STA 




TO WRITE 


0177 


75213 


067737 


LDB 


SUPL1 




0178 


75214 


170001 


STA 


Btl 


SAVE IN DIREC 


0179 


75215 


044364 


AOB 


• ♦5 




0180 


75216 


060001 


LDA 


B 


«> DISC ADDRESS 


0181 


75217 


067721 


LDB 


X2056 


CORE ADDRESS 


0182 


75220 


114206 


JSB 


DISCZ,I 




0183 


75221 


114212 


JSB 


D£ADP,I 




0184* 












0185 


75222 


067721 


LDB 


X2056 


# OF 


0186 


75223 


007004 


CMB, 


rINB 


EXTRA 


0187 


75224 


044050 


ADB 


MOVES 


WORDS 


0188 


75225 


077736 


STB 


SUPK2 


TO MOVE 


0189 


75226 


060712 


LDA 


LULEN 




0190 


75227 


040001 


ADA 


B 




0191 


75230 


070051 


SjA 


MOVED 


DESTINATION POINTER 


0192 


75231 


016450 


JSB 


MOVEW 


MOVE THEM 


0193* 












0194 


75232 


067741 


LDB 


SUPEX 


# OF WORDS 


0195 


75233 


007004 


CMB, 


,INB 


TO READ FROM 


0196 


75234 


074204 


STB 


MwORD 


PARTIAL TRACK 


0197 


75235 


047736 


ADB 


SUPK2 




0198 


75236 


077736 


STB 


SUPK2 


# OF WORDS IN BUFFER 


0199 


75237 


044712 


ADB 


LULEN 




0200 


75240 


045027 


ADB 


BIT15 


CORE ADDRESS 


0201 


75241 


063735 


LDA 


SUPK1 




0202 


75242 


040364 


ADA 


.♦5 


a> DISC ADDRESS 


0203 


75243 


114206 


JSB 


DISCZ,I 




0204 


75244 


114212 


JSB 


DEADP,I 




0205* 












0206 


75245 




SUP24 EqU 


* 




0207 


75245 


060355 


LDA 


• -2 


BUMP TO NEXT 


0208 


75246 


043737 


ADA 


SUPLi 


TRACk TO WRITE 


0209 


75247 




SUP25 EQU 


* 




0210 


75247 


164000 


LDB 


A, I 


GET ADDRESS 


0211 


75250 


002104 


CLE, 


,INA 




0212 


75251 


144000 


ADB 


A, I 




0213 


75252 


002040 


SEZ 






0214 


75253 


006004 


INB 






0215 


75254 


006002 


SZB 




ZERO? 


0216 


75255 


027260 


JMP 


SUP26 


NO 


0217 


75256 


040347 


ADA 


4 <»8 


YES, MOVE TO NEXT ONE 


0218 


75257 


027247 


JMP 


SUP25 




0219 


75260 




SUP26 FQU 


* 




0220 


75260 


040351 


ADA 


t"* 6 


BUMP TO LENGTH WORD 



PAGE 0399 #33 SUPERSaVE 



0221 
0222* 
0223 
0224 

0225 

0226 

0227 

0226 

0229 

0230 

0231* 

0232 

0233 

0234 

0235 

0236 

0237 

0236 

0239 

0240 

0241 

0242 

0243 

0244* 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0256 

0259 

0260 

0261 

0262 

0263 

0264 

0265* 

0266* 

0267* 

0266* 

026g* 

0270* 

0271* 

0272* 

0273* 
0274* 

0275* 
0276* 



75261 073737 

75262 

75262 06373b 

75263 053722 

75264 027270 

75265 040350 

75266 073735 

75267 027117 
75270 



STA SUPLl 



75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 
75303 

75304 
75305 
75305 
75306 
75307 
75310 
75311 
75311 
75312 
75313 
75314 
75315 
75316 
75317 
75320 
75321 
75322 
75323 
75324 
75325 



063736 
002003 
0273U 
070204 
067737 
170001 
044364 
060001 
064204 

044712 
114206 

114212 
063737 

053722 
027326 
040350 
002001 

063737 
040364 
164000 
002104 
144000 
002040 
006004 
040351 
006003 
027305 
006400 
174000 
027305 



SUP27 EQU 
LDA 
CPA 
JMP 
AOA 
STA 
JMP 

8UP28 EQU 

LDA 

JMP 
STA 
LDB 
STA 
ADB 
LDA 
LDB 
ADB 
JSB 
JSB 

LDA 

SUP29 EQU 

CPA 

JMP 

ADA 

RSS 

SUP30 EQU 

LDA 

ADA 
LDB 

CLE* 

ADB 

SEZ 

INB 

ADA 

SZB, 

JMP 

C L B 

STB 

JMP 



* 

SUPKl 
SDIR0 
SUP28 

SUPKl 
SUP22 



SUPK2 

RSS 

SUP30 

MWORD 

SUPLt 

B,I 

• ♦5 

B 

MWORD 

LULEN 

DISCZ,I 
DEAOP,I 

SUPLl 



S&IR0 
SUP31 



SUPLl 
f +5 
A, I 

INA 
A, I 



• *6 
RSS 
SUP29 

A, I 
SUP29 



SAVE POINTER 



■> CURRENT READ TRACk 

LAST ONE 

YES 

NO, BUMP TO NEXT ONE 



# OF WORDS IN SUFFER 
ZERO? 
YES 

NO, MUST WRITE OUT BUFFER 
SET LENGTH 
IN DIREC 

«> DISK ADDRESS 
CORE ADDRESS 



LAst WRITE TRACK? 

YES, DONE 

NO, BUMP TO NEXT ONE 



GET ADDRESS 



ZERO? 

YES 

NO# SET 
LENGTH *0 



THE MAIN PART OF THE ALGORITHM CONSISTS OF T w O SECTIONS, IN THE 
FIRST SECTION WE READ AS POSSIBLE INTO THE SWaP AREA. JN THE 2ND 
SECTION WE WRITE OUT A3 MUCH AS POSSIBLE, THE ENTIRE PROCEDURE II 
THEN REPEATED UNTIL WE ARE FINISHED. THE FOLLOWING MEANINGS ARE 
ASSOCIATED WITH THESE VARIABLES! 

SuPKl»>DIREC ENtRY FOR tRACK BEING READ, 
SUPLi»>DIREC ENTRY FOR TRACK BEING WRITTEN, 
SUPK2»# OF WORDS READ SO FAR FROM Kl t 
SUPL2«# OF WORDS WRITTEN SO FAR ON LI. 
SUP «# OF WORDS IN CORE, 
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0277* 

0278* 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286* 

0287 

0288 

0289 

0290 

0291* 

0292 

0293 

0294 

0295 

0296 

0297* 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0306 

0309* 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320* 

0321 

0322 

0323 

0324 

0325 
0326 

0327 

0328 

0329 
0330 
0331 



SUPP «> «* OF WORDS TO BE WRITTEN ON Li, 



75326 SUP31 EQu * 

75326 002400 CLA 

75327 073736 STA SUPK2 

75330 073740 STA SUPL2 

75331 063722 LDA SDIR0 

75332 073735 STA SUPK1 

75333 073737 STA SUPL1 



75334 063740 SUP7 



75336 
75337 

75340 
75341 
75342 
75343 
75344 

75345 
75346 
75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 

75360 
75361 
75362 
75363 
75364 
75365 
75366 
75367 
75370 
75371 

75372 
75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 
75405 



153733 
027542 

063731 
043726 
002021 
027553 
070204 

067735 
057724 
027553 
163735 
043736 
002002 
027360 
044366 
077735 
073736 
027340 

070001 
007004 
044204 
006020 
027370 
060204 
040500 
010316 
002003 
027553 

070204 
063736 
006400 
101030 
073744 
067735 
044364 
104200 
100001 
000040 
047744 
002040 



SUPS 



SUP9 



LDA SUPL2 

£M£ TWA 

cpa'supp,i 

JMP SUP10 

LDA SUP 
ADA STLE 
S8A,RSS 
JMP SUP11 
STA MWORD 

LDB SUPKl 
CPB SDIRU 
JMP SUPH 
LDA SUPKl, I 
ADA SUPK2 
SZA 

JMp SUP9 
ADB , + 7 
STB SUPKl 
STA SUPK2 
JMP SUP8 

STA 1 
CMB,INB 
ADB MWORD 
SSB 

JMP *+4 
LDA MWORD 
ADA B377 
AND M256 

SZ*,Rss 
JMP SuPll 

STA MWORD 
LDA SUPK2 
CLB 
ASR 8 
STA SUPET 
LDB SUPKl 
ADB .+5 
OLD B,I 

CLE 

ADB SUPET 

SE2 



INITIALIZE 

LENGTH 

WORDS 
INITIALIZE 
DIREC 

POINTERS 

IS # OF WORDS WRITTEN SO FAR ON 
ti«g qf wQRDs tD 81 W&lTTENf 

YES«»GO ADVANCE Ll9 

IS THE SWAP AREA PULL 



YES*-Go TO WRITE SECTION, 
NO » SAVE •# OF CORE W0R03 

AVAILABLE 
HAVE WE READ ALL OF THE TRACKS? 

YE3.«*60 TO WRITE SECTION, 

A««* OF WORDS ON THIS TRACK, 

A»«# NOT READ YET, 

ENTIRE TRACK READ? 

NO f 

YES*-BUMP Kl TO NEXT TRACK. 

SET # OF WORDS READ TO 0, 
TEST THIS TRACK, 

B«-# OF WORDS NOT YET READ ON Kl 

MAKE POSITIVE, 

IS * OF WORDS ON TRACK > * OF 

WORDS wE HAVE ROOM FOR? 
NO««READ IN ENTIRE TRACK, 
GET .# WE HAVE ROOM FOR, 
REDUCE TO NEXT SMALLER 

BLOCK SIZE, 
IF WE CANit READ IN ANy, GO TO 

WRITE SECTION, 

SET WORD « -# OF WORDS TO READ, 
GET # OF WORDS READ SO FAR, 
DIVIDE BY 64 TO GET 
BLOCK ADDRESS, 

GET DIRECTORY 
TRACK ADDRESS 
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0332 
0333 

0334 

0335 

0336 

0337 

0338 

0339* 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348* 

0349 

0350 

0351 

0352 

0353 

0354 

0355 
0356 
0357 
0358 
0359 
0360 

0361 

0362 
0363 
0364 
0365 
0366 

0367 
0368 
0369 
0370 
0371 

0372 
0373 

0374 
0375 
0376 

0377 
0378 
0379 

0380 
0381 
0382* 
0383 



75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 

75416 
75417 
75420 
75421 
75422 
75423 
75424 
75425 

75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 
75445 
75446 
75447 
75450 
75451 
75452 

75453 
75454 
75455 
75456 
75456 
75457 
75460 
75461 
75462 
75463 
75464 
75465 
75466 
75467 
75470 

75471 



002004 
104400 
075744 
063743 
064700 
047731 
114206 
114212 

064204 
007004 
047731 
077731 
064204 
007004 
047736 
077736 

063734 

002002 
027340 
063740 
006400 
100400 
000373 
060001 
007004 
077741 

043731 
006400 
100400 
000373 
100200 
000373 
040676 
043741 
006003 
040343 
073741 

06464 
117725 
027340 

067741 
077742 
044343 
077741 
044774 
006020 
027471 
067741 
060640 
117725 
027456 



INA 

DST SUPET 

LDA SUPEA 
LOB LIBOI 
AOB SUP 
J3B DISCI, I 
JSB DEADP,I 



LDB 

CMB, 

ADS 

STB 

LDB 

CMB, 

ADB 

STB 



MWORO 

INB 
SUP 

SUP 

MWORD 

INB 

SUPK2 

SUPK2 



LDA SUPT6 

SZA 

JMP SUP8 

LDA SUPL2 

CLB 

DIV ,412 

LDA B 

CMB, INB 

STB SUPEX 

ADA SUP 

CLB 

DIV t M2 

MP Y ,+12 



ADA 
ADA 
SZB, 
ADA 
STA 
LDB 
JSB 
JMP 
SUP32 EQU 
LDB 
STB 
ADB 
STB 
ADB 
SSB 
JMP 
LDB 
LDA 
JSB 
JMP 



LIBD 

SUPEX 

RSS 

,*»12 

SUPEX 

DLTEM 

DIRCS,I 

SUP8 

* 

SUPEX 

SUPES 

.*12 

SUPEX 

MLIBD 

SUP33 
SUPEX 
DLTEM 

DIrCS,I 
SUP32 



»> DISC ADDRESS 
COMPUTE CORE LOCATION 
TO READ INTO, 



UPDATE # OP WORDS 
IN CORE, 



UPDATE # OF WORDS 
READ pROM Kl„ 



HAVE WE INSERTED THE NEW ENTRY 
YET? 

yes«*go try to read more, 
get the amount already written 

on this track 
find excess over even entry 



GET THE COUNT 

OF WORDS IN CORE 
CONVERT TO ENTRY COUNT 

AND BACK TO W ORO COUNT 

SO THAT WE LOOK AT 
AN EVEN BOUNDARY 



■> ID/NAME OF NEW ENTRY 

GO COMPARE 

DOESN f T GO ON THIS TRACK 

GOES ON THIS 
TRACK, SO 

SEARCH BACKWARDS 
TO FIND 

NO SKIP IF SEARCH DONE 



OUT WHERE 
COMPARE THIS fcNTRY 
NOT THIS ONE 



SUP33 EQu * 
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0384 


75471 


037734 


ISZ 


SUPTG 


SET TOGGLE TO SAY WE'VE INSERTED 


0385 


75472 


060676 


LDA 


LIBD 


COMPUTE DESTINATION 


0386 


75473 


043731 


ADA 


SUP 


OF WORDS TO BE 


0387 


75474 


064000 


LOB 


A 


MOVED 


0388 


75475 


040372 


ADA 


.♦11 




0389 


75476 


070051 


STA 


MOVED 




0390 


75477 


040343 


ADA 


,«12 


COMPUTE SOURCE 


0391 


75500 


070050 


STA 


MOVES 




0392 


75501 


007004 


CMBi 


rINB 




0393 


75502 


047742 


ADB 


SUPES 




0394 

0395* 

0396 


75503 


016434 


JS8 


MOVEB 


CALL REVERSE MOVER, 


75504 


063742 


LDA 


SUPES 


»> HOLE 


0397 


75505 


070051 


STA 


MOVED 




0398 


75506 


060640 


LDA 


dltem 


SET SOURCE AT LTEMP, 


0399 


75507 


070050 


STA 


MOVES 




0400 


75510 


064353 


LDB 


*~4 


MOVE IN FIRST 4 


0401 


75511 


016450 


JSB 


MOVEW 


WORDS, 


0402 


75512 


060042 


LDA 


SAvP 


STORE STARTUP,. 


0403 


75513 


170051 


STA 


MOVED, I 


PROGRAM POINTER 


0404 


75514 


034051 


ISZ 


MOVED 




0405 


75515 


016423 


JSB 


DATE 


INSERT DATE IN WORD 5 


0406 


75516 


170051 


STA 


MOVED, I 




0407 


75517 


034051 


ISZ 


MOVED 


AND 


0408 


75520 


060171 


LDA 


DATIM 


GET HOUR OF yEAR FOR 


0409 


75521 


170051 


STA 


MOVED, I 


WORD 6 


0410 


75522 


034051 


ISZ 


MOyED 




0411 


75523 


002400 


CLA 






0412 


75524 


170051 


STA 


MOVED, I 




0413 


75525 


034051 


ISZ 


MOVED 




0414 


75526 
75527 


104200 
000036 


OLD 


SAVOS 


GET THE DISK ADDRESS AND SET IT 


0415 


75530 
75531 


104400 
100051 


DST 


MOVED, I 


INTO WORDS 8 AND 9 


0416 


75532 


064051 


LDB 


MOVED 




0417 


75533 


044362 


ADB 


.+3 


s> WORD 11 


0418 


75534 


060040 


LDA 


SAVWD 


GET LENGTH 


0419 


75535 


170001 


STA 


B,I 


AND STORE AwAy 


0420 


75536 


063731 


LDA 


SUP 


UPDATE THE COUNT OF WORDS 


0421 


75537 


040373 


ADA 


.♦12 


IN CORE BY TWELVE 


0422 


75540 


073731 


STA 


SUP 




0423 


75541 


027340 


JMP 


SuP8 




0424* 












0425* 


COME H'ErE WHEN 


current output tr 


ACK HAs BEEN FILLED, 


0426* 












0427 


75542 


063737 


SUP10 LDA 


SUPL1 


TEST FOR LAST TRACK, 


042a 


75543 


053723 


CPA 


SOIRL 




0429 


75544 


027672 


JMP 


SUP16 


ALL DONE— GO CLEAN UP DIrEC, 


0430 


75545 


040366 


ADA 


.♦7 


BUMP TO NEXT TRACK. 


0431 


75546 


073737 


STA 


SUPL1 




0432 


75547 


002400 


CLA 




SET # OF WORDS WRITTEN SO FAR 


0433 


75550 


073740 


STA 


SUPL2 


TO B, 


0434 


75551 


037733 


ISZ 


SUPP 


BUMP POINTER TO WORDS TO BE 


0435 


75552 


027334 


JMP 


SUP7 


WRITTEN, 
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0437* THE NEXT SECTION IS THE OUTPUT SECTION, WE ONLY COME TO THIS SEC* 

0438* TION WHEN W E HAVE DETERMINED THAT NO MORE CAN BE READ, IN THIS 

0439* PART WE WRITE OUT AS MUCH A3 POSSIBLE UNTIL WE HAVE EXHAUSTED ALL 

0440* WE HAVE IN CORE OR WE REACH THE POINT WHEN FURTHER OUTPUT WOULD 

0441* DESTROY INFORMATION NOT YET READ, IN THIS SECTION, THE VARIABLE 

0442* SUPS B # OF wORD S THAT HAyE BEEN OUTPUT FROM fNE CURRENT CORE 

0443* LOAD. 



0445 
0446 

0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 

0461 
0462 
0463 
0464 
0465 
0466 

0«67 

0468 

0469 

0470* 

0471* 

0472* 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481* 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491* 



75553 
75554 

r w w \* v 

75556 
75557 
75560 
75561 
75562 
75563 
75564 
75565 
75566 
75567 
75570 
75571 
75572 

75573 
75574 
75575 
75576 
75577 
75600 

75 6 01 
75602 
75603 



002400 
073730 
063740 
143733 
067737 
057735 
027575 
067730 
007004 
047731 
077732 
044000 
006021 
027604 
063732 
010316 

003004 
027604 
067740 
007004 
047736 
044000 
007025 
040001 
027562 



SUPH 
SUP15 



SUP13 



SUP12 



CLA 

STA 

LDA 

ADA 

LDB 

CPB 

JMP 

LDB 

CMB, 

ADB 

STB 

ADB 

SSB, 

JMP 

LDA 

AND 

CMA, 

JMP 

LDB 

CMB, 

ADB 

AD8 

CMB, 

ADA 

JMP 



SUPS 

SUPL2 

SUPP,I 

SUPL1 

SUPK1 

SUP12 
SUPS 

INB 

SUP 

SUPB 



RSS 

SUP14 

SUPB 
M256 

INA 

SUP14 

SUPL2 

INB 

SUPK2 



SSB,INB, 

1 

SUP13 



SET # OF WORDS OUTPUT SO FAR TO 

ZERO, 
SET WORD « *# OF WORDS LEFT 

TO BE WRITTEN ON Ll, 
TEST FOR WRITING ON A TRACK NOT 

COMPLETELY READ, 
WE ARE, 
SET B»# OF WORDS LEFT IN CORE, 



SAVE IN B, 

COMPARE WITH U wE WANT TO WRITE, 

HAVE ENOUGH, -# IS IN A, 
ONLY WRITE WHAT WE HAVE, 
USE ONLY FULL BLOCK'S WORTH 
MAKE NEGATIVE, 

IF WRITING ON UNREAD TRACK, MAKE 
SURE WE DON'T GO INTO UNREAD 
AREA, 



RSS 



CHANGE A TO AVOID OVERLAY, 



A NOW CONTAINS -# OF WORDS WE'RE GOING TO WRiTE, 



75604 070204 

75605 002003 

75606 027655 

75607 003004 

75610 073732 

75611 063740 

75612 002002 

75613 027625 



75614 
75615 
75616 
75617 
75620 
75621 
75622 
75623 
75624 



063737 
002004 
070051 
060676 
043730 
070050 
064353 
016450 
002400 



SUP14 STA MWORD 
SZA,RSS 
JMP SUP17 
CMA, INA 
STA SUPB 
LDA SUPL2 
SZA 
JMP S(jPt8 

LDA SUPL1 
INA 

STA MOVED 

LDA LIBD 

ADA SUPS 

STA MOVES 

LDB ,-4 

JSB MOVEW 
CLA 



IF NO WORDS TO BE 
WRITTEN GO TO SLIDI CORE FOR 
NEW INPUT, 



TEST FOR FIRST WRITE ON THIS 
TRACK. 



if first write, 

adjust direc to tell 
new first entry on that 

TRACK, 
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0492 
0493 
0494 
0495 
0496 
0497 

0498 
0499 
0500 
0501 
0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514* 

0515* 

0516* 

0517 

0518 

0519 

0520 

0521 

0522 
0523 

524 
0525 
0526 
0527 
0528 

0529 

0530* 

0531* 

0532* 

0533* 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 



75625 006400 SUplS CLB 

75626 101030 ASR 8 

75627 067737 LDB SUPL1 

75630 044364 ADB ,+5 

75631 073744 SjA SuPET 

75632 104200 DID B,I 

75633 100001 

75634 000040 CLE 

75635 047744 ADB SUPET 

75636 002040 SEZ 

75637 002004 INA 

75640 104400 DST SUPET 

75641 075744 

75642 063743 LDA SUPEA 

75643 064676 LOB LIBO 

75644 047730 ADB SUPS 

75645 114206 JSB DISCZtl 

75646 114212 JSB DEADP f I 

75647 063732 LDA SUPB 

75650 043740 ADA SUPL2 

75651 073740 STA SUPL2 

75652 063732 LDA SUPB 

75653 043730 ADA SUPS 

75654 027554 JMP SUP15 



CONVERT WORDS TO BLOCK 

ADDRESS 
ADD IN TRACK ADDRESS, 



*> DISC ADDRESS 
COMPUTE CORE 

ADDRESS, 
OUTPUT TO DISC 

ADJUST * OF WORDS OUTPUT TO 
TRACK, 

ADJUST ft OF CORE WORDS WRITTEN 

OUT SO FAR, 
LOOP FOR ANY MORE WRITING, 



COME HERE WHEN WE CANfT WRITE ANYMORE, 



75655 053730 SUP17 CPA SUPS 

75656 027334 JMP SUP7 

75657 067730 LDB SUPS 

75660 007004 CMB,INB 

75661 047731 ADB SUP 

75662 077731 STB SUP 

75663 007004 CMB,INB 

75664 06^676 LDA LIBD 

75665 070051 STA MOVED 

75666 043730 ADA SUPS 

75667 070050 STA MOVES 

75670 016450 JS0 MOVEW 

75671 027334 JMP SUP7 



ALL TRACK S WRITTEN BACK, NOW UPDATE WORD COUNTS IN 
DIREC, 



IF NOTHING WRITTEN AT ALL# GO TO 

TRY AND READ AGAIN, 
ADJUST # OF WORDS IN CORE, 



MAKE NEGATIVE FOR CORE MOVE, 
SET DESTINATION AND SOURC£» 



75672 
75672 
75673 
75674 
75675 
75675 
75676 
75677 
75700 
75701 
75702 
75703 



063713 
073731 
067722 

163712 
170001 
037712 
044366 
037731 
027675 
063717 



SUP16 EQU 
LDA 
STA 
LOB 

SUPLL EQU 
IDA 

STA 
ISZ 
ADB 
ISZ 
JMP 
LDA 



* 

M80 

SUP 

3DIR0 

* 

DEFNN,I 

B,I 

DEFNN 

• + 7 

SUP 

SUPLL 

SUPR1 



set count 

of directory trax 
»> First Direc entry 

copy new length words into 
the direc table entries 
wipe out "constant 11 
advance direc pointer 



SET UP RETURN ADDRESS. 
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0546 
0547 
0546 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
055b 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
05e3 

0584 
0585 



75704 
75705 
75705 
75706 
75707 
75710 
75711 
75712 
75713 
75714 
75715 

7K7 i « 

75717 

75720 
75721 
75722 
75723 
75724 
75725 
75726 

75727 
75730 
75731 

75732 
75733 

75734 
75735 
75736 
75737 
75740 
75741 
75742 
75743 
75744 

75770 
75770 
75770 
7577I 

75772 
75773 



073772 

063714 
070204 

060256 
064610 
027770 
073601 
177660 
177010 
176526 
176525 
027776 

017770 
005240 
030000 
031051 
031060 
031203 
154024 
177777 
177764 

000000 
000000 
073601 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
075744 
000000 



114206 
114212 
$27777 



STA 

SUP3 EQU 

LOA 

STA 

LDA 

LDB 

JMP 

DEFNN DEF 

M80 DEC 

SM504 DEC 

M682 DEC 
M683 DEC 
SUPR1 JMP 
S8184 DEC 
X2056 DEF 
SDIR0 DEF 
SDIRL DEF 
SDIRU DEF 
DIRCS DEF 
STLE ABS 

OCT 
SUpS DEC 
SUP OCT 
SUPB OCT 
SUPP DEF 
SUPTG OCT 
SUPK1 BSS 
SUPK2 BSS 
SUPLl BSS 
SUPl,2 BSS 
SUPEX BSS 
SUPES BSS 
SUPEA DEF 
SUP£T BSS 

ORG 
SUPRR EQU 

J3B 

JSB 
SUPR JMP 
$$SAV EQU 



SET WORD COUNT 
■> DISC ADDRESS 



SUPR 

* 

SM504 

MwORD 

LIB 

#LIBI 

SUPRR 

FItBF 

*80 

•504 

w682 

-683 

LXBRA+510 JUMP FOR NORMAL RETURN 

8184 

LIBUS*ULEN-8184 

DIREC 

DIREL 

DIREU 

DIRCM 

-ULEN+20 

-1 

• 12 





FILBF 



1 

1 

1 

1 

1 

1 

SUPET 

2 

LIBRA+504 

DIsCZ,I OVERLAY WITH OrIGINAL ROUTINE 
DEADP^I CAN'T GET IT BACK, ARRGHl 
LIBRA+511 SET FOR ERROR ROUTINE 



POINTER TO DISC ADDRESS 
DOUBLEWORD TO HOLD DJSC ADDRESS 
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0002* the get routine is responsible for loading a program from the 
0003* user library. it can be used to load from either the user's 
0004* private library, the group library, Or the public library. 
0005* if the program is to be from the user's group library, the 

0006* PROGRAM NAmE SHOULD BE PRECEDED BY A SNQMFlAkE <*), IF IT IS TO 
0007* BE FROM THE PUBLIC LIBRARY, THE PROGRAM NAME SHOULD BE PRECEDED 
0008* BY A DOLLAR SIGN <$), 



0010 75000 



0012 
0013 
0014 
0015 
0016 
0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

003S 

0039 

0040 

0041* 

0042 

0043 
0044 
0045 
0046 
0047 



0048* 

0049* 

0050* 

0051 

0052 



75000 
7500i 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 

75032 
75033 
75034 

75035 
75036 
75037 
75040 
75041 
75042 
75043 
75044 
75045 
75046 
75047 



060272 
040346 
070036 
160000 
070030 
060640 
002004 
070034 
060354 
070037 
016532 
027035 
050423 
027050 

050431 
027055 

001727 
170034 
01.6532 
060417 
130034 
170034 
034034 
016532 
060417 
034037 

027020 
050417 

027074 

060342 
067040 
026623 
075041 
005111 
047126 
040514 
044504 
020116 
040515 
042440 



GET3 



GET! 



ORG LIBRA 




LDA MLINK+l 


GET USER'S ID. 


ADA „♦ lIOwl LINK 


STA GETI 




LDA 0,1 




STA LTEMP 


STORE IN LTEMP § 


ldA dltem 


SET UP POINTER FOR NAME. 


INA 




STA GETP 




LDA f *3 


SET UP COUNTER, 


STA GETC 




JSB LCHAR 


get first Input char. 


JMP GETt 


ERROR IF NONE. 


CPA # +44B 


IF $ GO TO SET UP FOR 


JMP GET2 


SEARCHING PUBLIC LIBRARY, 


CPA ,+528 


IF * GO TO SET UP FOR 


JMP GET14 


SEARCHING GROUP LIBRARY 


ALF,ALF 


SAVE CHARACTER IN TABLE, 


STA GETP, I 




J3B LCHAR 


GET RIGHT CHARACTER. 


LDA t + 408 


IF END CHANGE TO BLANK, 


IOR GETP, I 




STA GETP, I 




ISZ GETP 


BUMP POINTER, 


JSB LCHAR 


GET NEXT CHARACTER, 


LDA f +40B 




132 GETC 


DO WE WANT IT? 


JMP GET3 


YES, 


CPA t +40B 


NO— A SHOULD NOW Bg BLANK. 


JMP GET4 




LDA t „13 




LDB *+2 




JMP LIBER 




DEF *+i 




OCT 5111 




ASC 6,NVALID 


NAME 



PUBLIC LIBRARY PROGRAM 

75050 060514 GET2 LDA A000 

75051 070030 STA LTEMP 



SET UP FOR PUBLIC LIBRARY SEARCH 



PAGE 0407 #34 GET 



0053 

0054 

0055 

0056* 

0057* 

005a* 

0059 
0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072* 

0073* 

0074* 

0075* 
0076* 

m?7 

0078 

0079 

0080 

0081 

0082* 

0083 

0084 

0085 

0086 

0087 

0066 



75052 016532 

75053 027035 

75054 027020 



JSB LCHAR 
JMP GETl 

JMP 6ET3 



0089 
0090 
0091 
0092 
0093 
0094 



GROUP LIBRARY PROGRAM 



75055 
75056 
75057 
75060 
75061 
75062 

75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 



060030 
010512 
006400 
100400 
000472 
100200 
000472 
064000 
060612 
010030 
030001 
070030 
016532 
027035 
027020 



GET14 



LDA LTEMP 

AND B1777 

CUB 

Dly ,100 

MPy s 100 

LOB A 

LO A M2000 
AND LTEMP 
IOR B 
8TA LTEMP 
JSB LCHAR 
JMP GETl 
JMP GET3 



GET FIRST CHAR OP NAME* 
FAIL IF NONE, 



get user's id 
isolate numerical part 

DlylDE BY 100 AND 

MULTIPLY BACK. DROPPING REMAIN 

SAyE RESULTING MULTIPLE OF 100 
GET UPPER 6 BITS MASK 
GET ALPHABETIC PART OF ID 
MERGE NEW NUMERICAL PART 
STORE LIBRARIAN ID 
GET FIRST CHAR OF NAME 
FAIL IF NONE 
EL3E# CONTINUE 



AT THIS POINT THE ID OF THE LIBRARY CONTAINING THE DiSlRiD PROGRAM 
IS IN LTEMP AND THE PROGRAM NAmE IS In lTEmP*I# LTEmP*2# AND 
LTEMP+3 



75074 
75075 
75076 
75077 
75100 

75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 
75114 
75115 
75116 
75117 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75127 
75130 



016056 
061575 
070043 
116017 

027133 

060337 
067104 
026623 
075105 
005116 

047440 

051525 
041510 
020120 
051117 
043522 
040515 
060334 
067120 
026623 

075121 
005111 
046114 
026523 
052117 
051105 
042040 
050122 
047507 



GET4 



GET19 



JSB 
LDA 
STA 
JSB 
JMP 

LDA 
LDB 
JMP 
DEF 
OCT 
ASC 



RDPRG 

SPROG 

GETS 

DLOKP#I 

GET18 

.-16 

*+2 

LIBER 

*M 
5116 
7,0 SUCH 



SAVE END«OF« 

COMMON POINTER 
SEARCH DIRECTORY 



FOR PROGRAM 



PROGRAM 



GET22 



LDA 


.-19 




LDB 


*+2 




JMP 


LIBER 




DEF 


* + l 




OCT 


5111 




ASC 


9,LL-ST0RED 


PROGRAM 
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75131 
75132 



051101 
046440 



0095* 

0096* 

0097* 

0098* 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113* 

0114 

0115 

0116 

0117 

0118 

0119 



0120* 

0121* 

0122* 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 



THE PROPER DIRECTORY TRACK IS NOW IN CORE WITH GETPD POINTING TO 
THE PROGRAM ENTRY 



75133 
75134 
75135 
75136 
75137 
75140 
75141 
75142 
75143 
75144 
75145 
75146 
75147 
75150 

75151 
75152 
75153 
75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 



064035 
044363 
160001 
002021 
027144 
160036 
050030 
027115 
027101 
044355 
160001 
044^65 
002021 
027165 

060337 
067154 
026623 
075155 
005105 
047124 
051131 
020111 
051440 
040440 
043111 
046105 



GET18 LDB 
AOB 
IDA 
SSA 
JMP 
LDA 

cpa 

JMP 
JMp 
GET9 ADB 
LDA 
ADB 
SSA 
JMP 



GETPD 
c +4 
B,I 
,RSS 
GET9 
GETI,I 
LTEMP 

GET22 
GET19 
« *2 

1,1 
*+6 
,RSS 
GET15 



CHECK ILL-STORED 
PROGRAM FLAG 

UNSUCCESSFULLY STORED? 

NO, CONTINUE 

YES* GET USER'S ID 

DOES HE (OR SHE) OWN THE PROG? 

YES, PRINT ILL.STORID PROGRAM 

NO, PRINT NO SUCH PROGRAM 

TEST FOR file 

»> DISC ADDRESS 
SKIP IF FILE 



LDA ,-16 

LDB * + 2 

JMP LIBER 

DEF *+i 

OCT 5105 lF«E 

ASC 7,NTRY IS A FILE 



FOUND CORRECT ENTRy, CHECK TO SEE IF THE PROGRAM FITS 



75165 
75166 
75167 
75170 
75171 
75172 
75173 
751/4 

75175 
75176 

75177 

75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 



044350 
160001 
070031 
0443 6 t 
160001 
070040 
006004 

160001 
001665 
070041 
044366 
160001 
070042 
003004 
040041 
070045 
003004 
064040 
006021 
027215 



GEt15 ADB 
LDA 

ST* 
ADB 
LDA 
STA 
INB 

LDA 

ELA, 

STA 

ADB 

LDA 

STA 

CMA, 

ADA 

STA 

CMA, 

LDB 

SSB, 

JMP 



• -7 

B,I 

LTEMp*l 

.♦2 

1,1 
LIB$C 

1,1 

CLE, ERA 
LIBSP 

.♦7 

1,1 

getln 

INA 

LIBSP 

LIBPB 

INA 

LIB3C 

RSS 

GET25 



■> FIrsT WOrD OF NAME 
MOVE WITH PROTECTED FLAG 

To SAFE pLACE 
m> THIRD WORD OF NAME 
SAyE SEMI. 

COMPILED FLAG 
RETRIEVE START. 

OF*PROGRAM 

POINTER 
GET PROGRAM 
LENGTH, 

COMPUTE FIRST 
UNUSED WORD 

COMPUTE NEGATIVE 

SEMICOMPILED? 
NO 
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0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151 

0152 
0153 
0154 
0155 
0156 
0157 
0158 



0159* 

0160* 

0161* 

0162 

0163 

19164 
0165 
0166 
0167 

0168 

0169* 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177* 

0178* 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 



75211 
75212 
75213 
75214 
75215 
75215 
75216 

75217 
75220 
75220 

' "«i & * 

75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 



040716 

002021 
027235 
027220 

040714 
002021 

027235 

060335 
067223 
026623 
075224 
005120 
051117 
043522 
040515 
020124 
047517 
020114 
040522 
043505 



GET25 



ADA LWAUS 
S8A,RSS 
JMP GET13 
JMP GET26 
EQU * 
ADA LW97 
S8A,RSS 



GET26 



JHP 
EQU 
LDA 
LPB 
JMP 
DEF 
OCT 
A3C 



GET13 

* 

18 



TOO BIG? 

NO 

YES 

TOTAL LENGTH 

COMPARE WITH MAX AU'ONCO, 

OK 






LIBER 
* + l 
5120 
8,R0GRAM 



LF*P 
TOO LARGE 



EVERYTHING CHECKS, GO GET THE PROGRAM 



75235 
75236 

75237 
75240 
75241 
75242 
75243 
75244 
75245 

75246 
75247 
75250 
75251 
75252 
75253 
75254 



75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 



016423 
064035 

044364 
170001 

044362 
104200 

100001 

104400 
000046 

160034 
070204 
060034 
040364 
064676 
114206 
114207 



064272 
044345 
160001 
070037 
060043 
170001 
016056 

064042 
074204 
064041 
045027 



GET13 JSB DATE 

LDB GETPD 

ADB ,+5 

STA 1,1 

ADB ,+3 

DLD B,I 

DST GETDI 



LDA GETP,I 
STA MwORD 
LDA GETP 
ADA ,+5 
LDB LIBD 
JSB DI8CZ,I 
JSB SICKP,I 



set new date 

Into 
directory, 

get program 

DISC 

ADDRESS 



WRITE DIRECTORY 
BACK TO 
DISC 



MUY MALOi 



LDB MLINK+1 SET TO NULL PROGRAM 
ADB „+?PRQG-?LINK 



LDA B,I 
STA GETC 
LDA GETS 
STA 1,1 
JSB RDPRG 
LDB GETLN 
STB MWORD 
LDB LIBSP 
ADB BIT15 



SAVE PROGRAM 
LENGTH 



READ IN CURRENT USER PROGRAM, 
GET WORD COUNT 
STORE WORD COUNT 
GET START OF PROGRAM POINTER 
AND READ BIT 
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0190 

0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 



0207* 

0208* 

0209* 

0210 

0211 

0212 
0213 

0214 
0215 
0216 
02*7 

0218 

0219 
0220 
0221 

0222* 
0223 

0224 
0225 
0226 
0227 
0228 
0229 



75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 

761(11 

75304 
75305 
75306 
75307 
75310 
75311 
75312 
75313 
75314 
75315 
75316 
75317 
75320 
75321 
75322 
75323 
75324 

/ O J z. O 

75326 



063344 
114206 
002001 
027327 
064272 
044341 
074255 
044363 
060037 
170001 
016056 
060450 
067306 
026623 
075307 
005125 
047101 
04H14 
042440 
052117 
020122 
042524 
051111 
042526 
042440 
043122 
047515 
020114 
044502 
051101 
051131 



LOA 


GtTDP 


JSB 


DISCZfl 


RS3 




JMP 


6ET17 


LOB 


MLINK+l 


AOB 


,~?LINK 


STB 


MAIN 


AOB 


,+?PROG 


LOA 


GETC 


STA 


B,I 


JSB 


ROPRG 


LOA 


M32 


LDB 


*42 


JMP 


LIBER 


DEF 


* + l 


OCT 


5125 


asc 


l5fNABLE 



GET PTR TO DISK ADDRI3S 



LF.U 
TO RETRIEVE FROM LIBRARY 



THE PROGRAM IS NOW IN CORE, W*AP THINGS [)P , 



75327 
75330 
75331 
75332 

75333 
75334 
75335 
75336 
75337 
75340 
75341 
75342 
75343 
75344 

00034 
00035 
00036 
00037 
00042 
00043 

00046 



160036 
034036 

064031 
050030 
005665 
174036 
034036 

10420 
000032 
104400 
100036 
016343 
026613 
000046 



G ET17 lda gEti,i 

ISZ GETI 

LDB LTEMP41 

CPA LTEMP 
ELB,CLE,ERB 

STB GEU,I 

ISZ SE T I 

DLD LTEMP+2 



GET USER'S ID 

FIRST WORD OF NAMEt 

GET IT 

IF PROGRAM OWNER CLtAR 

RUN«ONLY BIT, 
STORE FIRST WQrD OF NAME, 
BUMP POINTER TO NEXT WORD, 
GET LAST 2 WORDS OF NAME, 



DST GETI, I STORE IN TABLE, 



JSB SEMIC 

JMP LLEND 

GETDP DEF GETDI 

GEtP EQU LTEMP+4 
GETPD EQU LTEmP+5 
GETI EQU LTEMP+6 
GETC EQU LTEMP+7 
GETLN EQU LTEMP+J0 
GETS EQU LTEf ^11 
GETDI EQU LTEMP+14 



TERMINATE, 

*> DISK ADDRESS 

■> DIREC ENTRY 

*> DIRECTORY EnTRY 

USER ID 

COUNTER 

PROGRAM LENGTH 

»> 3TART*0F«PRQGRAM 

DISC 



PAGE 0411 #34 GET 

0230* LTEMP+15 ADDRESS 

0231* 

0232* LTEMP, LTEMP+l, LTEMP+2, LTEMP+3, LTEMP+8 & LTEMP+9 ARE ALSO USED 

0233* 

0234 75345 $GET EQU * 
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0236* 
0237* 
0238* 
0239* 
0240* 
0241* 
0242* 
0243* 

0245 

0246 

0247 

0246* 

0249* 

0250* 

0251* 

0252 

0253 

0254 

0255 

0256* 

0257 

0258 

0259 

0260 

0261 

0262 



0263* 

0264* 

0265* 

0266 

0267 

0268 

0269 

0270* 

0271 

0272 

0273 

0274 

0275 

0276 



THE APPEND COMMAND ALLOWS A USER TO APPEND A LIBRARY PROGRAM ON TO 
THE END OF HIS CURRENT PROGRAM, THE FIRST STATEMENT OF THE NEW 
PROGRAM MUST HAVE A SEQUNCE NUMBER GREATER THAN THAT OF THELAST 
STATEMENT OF THE ORIGINAL PROGRAM, IF THE NEW SECTION IS PROTECTED 
THE ENjIRE PROGRAM WILL BE PROTECTED, SEMI-COMPILED PROGRAMS AND 
PROGRAMS WITH COMMON MAY NOT BE APPENDED 

THE CODE FOR APPEND MUST FOLLOW THE CODE FOR "GET", 



75000 

75000 060272 



ORG LIBRA 
LDA MLINK+i 
ORG GETiS 



THE CODE IS IDENTICAL TO "GET" 
UP TO LOCATION GET15 



THE PROPER DIRECTORY ENTRy IS NOW IN CORE AND IS POINTED TO By 
GETPD, 



75165 044352 

75166 160001 

75167 002021 
75170 027210 



ADB ,*5 
LDA 1,1 
SSA f RSS 
JMP APP01 



m> THIRD WORD OF NAME 

SEMICOMPILED? 
NO 



75171 
75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 



060331 
067174 
026623 
075175 
005123 
042515 
044455 
041517 
046520 
044514 
042504 
020120 
051117 
043522 
040515 



LDA ,-22 

LDB *+2 

JMP LIBER 

DEF *+i 

OCT 5123 LF«S 

ASC 10,EMUCOMPILED PROGRAM 



THE PROGRAM TO BE APPENDED IS NOT SEMICOMPILED 



75210 006004 

75211 160001 

75212 050726 

75213 027234 



APP01 



INB 

LDA 1,1 
CPA P8UFF 
JMp App02 



COMMON AREA? 
NO 



75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 
75227 



060330 
067217 
026623 

075220 
005116 

047440 
041517 
046515 
047516 
020101 
051105 
040440 



LDA ,-23 

LDB **2 

JMP LIBER 

DEF *+l 

OCT 5116 iFmH 

ASC 11,0 COMMON AREA ALLOWED 
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0277* 

0276* 

0279* 

0280 

0281 

0282 
0283 

0284 
0285 
0286 
0287 
0268 

0289 

0290 

0291 

0292 

0293 

0294* 

0295* 

0296* 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304* 

0305 

0306 

0307* 

0308* 

0309* 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0316* 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 



75230 040514 

75231 046117 

75232 053505 

75233 042040 

NOR DOES It CONTAIN ANY COMMON StAtEMENtS 



75234 016423 APP02 JSB DATE 

75235 064035 LDB GETPD 

75236 044364 ADB .+5 

75237 170001 STA 1,1 

75240 044353 ADB ,«*4 

75241 160001 LDA 1,1 

75242 070036 STA APPLS 

75243 044366 ADB ,*7 

75244 104200 OLD B,I 

75245 100001 

75246 104400 DST 6ETDI 

75247 000046 

75250 064035 IDB GETPD 

75251 044372 ADB .+11 

75252 160001 LDA B,I 

75253 070042 STA GETLN 

RETURN UPDATED DIRECTORY TO DISC 



75254 
75255 
75256 
75257 
75260 
75261 
75262 



160034 
070204 
060034 
040364 
064676 
114206 
114211 



75263 016056 

75264 015322 



LDA GETP,I 
STA MNORD 
LDA GETP 
ADA t +5 
LDB LIBD 
JSB DISCZ,I 
JSB SLVAG,I 

JSB RDPRG 
JSB DCMPL 



set date op last reference 
into directory entry, 



SAVE 'PROTECTED* BIT 

GET PROGRAM 
DISC 

ADDRESS 

AND 

PROGRAM 
LENGTH 



WRITE DIRECTORY 
BACK TO DISC 



BLEW IT, TRY TO SALVAGE 

READ IN USER* 3 PROGRAM AND 
DECOMPILE IT, 



CHECK IF COMBINED PROGRAMS wILL FIT IN CORE 



75265 
75266 

75267 
75270 
75271 
75272 
75273 
75274 

75275 
75276 
75277 

75300 
75301 
75302 
75303 
75304 



060042 
003004 

040056 
070045 
003004 
040714 

002021 
027315 

060272 
040341 
070255 
060335 
067303 
026623 
075304 
005120 



LDA 

CMA, 

ADA 

STA 

CMA, 

ADA 

SSA, 

JMP 



GETLN 

INA 

PBPTR 

LIBPB 

INA 

LW97 

RSS 

APPl 



LDA MLINK+l 
ADA t -?LINK 
STA MAIN 
LDA ,-18 
LDB *+2 
JMP LIBER 
DEF *+l 
OCT 5120 



TEST FOR PROGRAM TOO 

LARGE, 
LAST WORDM OF COMBINED PROGS, 

COMPUTE NEGATIVE 

TOTAL LENGTH 

COMPARE WITH MAX ALLOWED, 

O.K. 

SET MAIN TO SAY PROGRAM IN 
CORE. 



LF-P 



PAGE 


0414 #34 APPl 


•ND 








0327 


75305 
75306 
75307 
75310 
75311 
75312 
75313 
75314 


051117 
043522 
040515 
020124 
047517 
020114 
040522 
043505 




ASC 


8,R0GRAM 


TOO LARGE 


0326* 














0329* 


EVERYTHING IS 


FINE, 


GO 


GET THE 


PROGRAM 


0330* 














0331 


75315 


064042 


APPl 


108 


6ETLN 


GET LENGTH OF PROGRAM TO BE APPD 


0332 


75316 


074204 




STB 


MWORD 


STORE WORD COUNT 


0333 


75317 


064056 




LDB 


PBPTR 


INITIATE 


0334 


75320 


045027 




ADB 


BIT15 




0335 


75321 


063456 




LOA 


APPDP 


DISK 


0336 


75322 


114206 




JTSB 


DXSCZ, I 


READ 


0337 


75323 


027403 




JMP 


APP9 


UNABLE TO READ PROGRAM 


0338* 














0339* 


SCAN ( 


3RIGINAL 


PROGRAM TO DETERMINE LAST SEQUENCE NUMBER. 


0340* 














0341 


75324 


061575 




LDA 


SPROG 


A «> LENGTH OF 


03«2 


7532§ 


002004 




INA 




FIRST STATEMENT. 


0343 


75326 


064056 




LDB 


PBPTR 


SET B TO POINT AT LENGTH OF 


0344 


75327 


005004 




INB 




FIRST NEW PROGRAM, 


0345 


75330 


050001 




CPA 


1 


IF EQuAL, PROGRAM IS NyLL, SO 


0346 


75331 


027354 




Jmp 


App2 


IT'S 0*« 


0347 


75332 


003004 




CMA, 


rINA 




0348 


75333 


040001 




ADA 


B 




0349 


75334 


002021 




SSA, 


,RSS 


IS SPROG*PBPTR? 


0350 


75335 


027341 




JMP 


APP5-2 


NO 


035t 


75336 


060056 




LDA 


PBPTR 


YES, RESET SPROG 


0352 


75337 


071575 




STA 


SPROG 




0353 


75340 


027354 




JMP 


APP2 




0354* 














0355 


75341 


061575 




LDA 


SPROG 


RESTORE 


0356 


75342 


002004 




INA 




(A) 


0357 


75343 


070037 


App5 


STA 


Apps 


SAVE L0 Cn 0? THIS STATE, t,£N$TH t 


0358 


75344 


140000 




ADA 


M 


link to next one, 

if save as b# app$*»last state. 


0359 


75345 


050001 




CPA 


1 


0360 


75346 


002001 




RSS 






0361 


75347 


027343 




JMP 


APPS 


OTHERWISE, LOOP, 


0362* 














0363 


75350 


003400 




CCA 




GET SEQUENCE # OP LAST 8TAT£» 


0364 


75351 


040037 




ADA 


APRS 


MENT, 


0365 


75352 


160000 




LDA 


0,1 


MAKE NEGATIVE AND SUBTRACT 


0366 


75353 


003001 




CMA, 


,R3S 


ONE. 


0367 


75354 


003400 


APP2 


CCA 




SET TO .1 (SEQNO»0) IF NO PROG, 


0368* 














0369* 


SEQUENCE NUMBER CHECK 






0370* 














0371 


75355 


140056 




ADA 


PBPTR,! 


CHECK THAT FIRST SEQUENCE * IS 


0372 


75356 


002021 




SSAi 


rRSS 


GREATER THAN LAST ONE OF OLD 


0373 


75357 


027432 




JMP 


APP3 


PROGRAM. 


0374* 














0375 


75360 


060272 




LDA 


MLINK+1 


SET MAIN TO SAY PROGRAM IN 



